| |||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||
terça-feira, 18 de novembro de 2014
O convite de Cícero Augusto Fogaça está aguardando sua resposta
sexta-feira, 14 de novembro de 2014
Gostaria de adicioná-lo à minha rede profissional no LinkedIn.
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
segunda-feira, 13 de outubro de 2014
★ Cfogaca Plsql, Cícero te mandou uma mensagem
| |||||||||||||||||
| |||||||||||||||||
quinta-feira, 11 de setembro de 2014
★ Cfogaca Plsql, Cícero te mandou uma mensagem
E-mail enviado por Badoo Trading Limited. Se não quer mais receber e-mails do Badoo, por favor clique aqui para sair. | |||||||||||||||
sábado, 16 de janeiro de 2010
quarta-feira, 13 de janeiro de 2010
Gravando arquivo com dados de uma tabela
-- Gravando arquivo com dados de uma tabela
serveroutput on
BEGIN
DECLARE
arquivo_saida UTL_FILE.FILE_TYPE;
vsqlerrm Varchar2(1024):=null ;
BEGIN
-- abre arquivo
arquivo_saida := Utl_File.FOpen('/utl_file/log', 'arquivox.txt','W',9192); -- 'W'); --
-- abre um cursor com os dados a serem gravados
for c in (select substr(a.coluna,1,37)||' '||substr(a.coluna,39) coluna FROM LITXLS a )
loop
-- escreve no arquivo
Utl_File.put_line(arquivo_saida, c.coluna );
end loop;
-- fecha arquivo
Utl_File.FClose(arquivo_saida);
EXCEPTION -- tratamento de alguma EXCEPTION
WHEN UTL_FILE.INVALID_OPERATION THEN
Dbms_Output.Put_Line('Operação inválida no arquivo.'||Sqlerrm);
UTL_File.Fclose(arquivo_saida);
WHEN UTL_FILE.WRITE_ERROR THEN
Dbms_Output.Put_Line('Erro de gravação no arquivo.'||Sqlerrm);
UTL_File.Fclose(arquivo_saida);
WHEN UTL_FILE.INVALID_PATH THEN
Dbms_Output.Put_Line('Diretório inválido.'||Sqlerrm);
UTL_File.Fclose(arquivo_saida);
WHEN UTL_FILE.INVALID_MODE THEN
Dbms_Output.Put_Line('Modo de acesso inválido.'||Sqlerrm);
UTL_File.Fclose(arquivo_saida);
WHEN Others THEN
Dbms_Output.Put_Line('Problemas na geração do arquivo.'||Sqlerrm);
UTL_File.Fclose(arquivo_saida);
END;
END;
/
quinta-feira, 17 de dezembro de 2009
ROWTOCOL ( linhas para colunas )
SQL> CREATE OR REPLACE FUNCTION rowtocol (
2 p_slct IN VARCHAR2,
3 p_dlmtr IN VARCHAR2 DEFAULT ',' )
4 RETURN VARCHAR2
5 AUTHID CURRENT_USER AS
6 TYPE c_refcur IS REF CURSOR;
7 lc_str VARCHAR2(4000);
8 lc_colval VARCHAR2(4000);
9 c_dummy c_refcur;
10 l number;
11 BEGIN
12 OPEN c_dummy FOR p_slct;
13 LOOP
14 FETCH c_dummy INTO lc_colval;
15 EXIT WHEN c_dummy%NOTFOUND;
16 lc_str := lc_str || p_dlmtr || lc_colval;
17 END LOOP;
18 CLOSE c_dummy;
19 RETURN SUBSTR(lc_str,2);
20 END;
21 /
Function created.
SQL> SELECT ROWTOCOL('SELECT ENAME FROM EMP') FROM DUAL;
ROWTOCOL('SELECTENAMEFROMEMP')
------------------------------------------------------------------
SMITE,ALLEN,WARD,JONES,MARTIN,BLAKE,SCOTT,TURNER,ADAMS,JAMES,FORD
SQL>
