Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General » Oracle »

guardar datos en txt

Estas en el tema de guardar datos en txt en el foro de Oracle en Foros del Web. Tengo un problema, quiero almacenar informacion que me da un procedure en un .txt o un .log ... alguien me puede pasar algun ejemplo...
  #1 (permalink)  
Antiguo 15/06/2010, 12:52
 
Fecha de Ingreso: enero-2010
Mensajes: 41
Antigüedad: 10 años, 10 meses
Puntos: 0
guardar datos en txt

Tengo un problema, quiero almacenar informacion que me da un procedure en un .txt o un .log ... alguien me puede pasar algun ejemplo
  #2 (permalink)  
Antiguo 16/06/2010, 17:02
Avatar de xf_corp  
Fecha de Ingreso: mayo-2008
Mensajes: 57
Antigüedad: 12 años, 7 meses
Puntos: 3
Respuesta: guardar datos en txt

Un ejemplo básico:

CREATE OR REPLACE PROCEDURE "EXTRACT" IS

VALOR1 TABLA.CAMPO1%TYPE;
VALOR2 TABLA.CAMPO2%TYPE;
VALOR3 TABLA.CAMPO3%TYPE;

ARCHIVO UTL_FILE.FILE_TYPE;


TEXTO VARCHAR2(1000);
ERRMSG VARCHAR2(500);

CURSOR C_VALORES IS
SELECT CAMPO1,CAMPO2,CAMPO3
FROM TABLA;

BEGIN

OPEN C_VALORES;
ARCHIVO:= UTL_FILE.FOPEN('/path','archivo.txt','W');

LOOP
FETCH C_VALORES INTO VALOR1,VALOR2,VALOR3;
EXIT WHEN C_VALORES%NOTFOUND;
TEXTO:= VALOR1||VALOR2||VALOR3;
UTL_FILE.PUT_LINE(ARCHIVO,TEXTO);
END LOOP;

CLOSE C_VALORES;
UTL_FILE.FCLOSE(ARCHIVO);

EXCEPTION
WHEN UTL_FILE.INVALID_PATH THEN
DBMS_OUTPUT.PUT_LINE('Path Invalido');
WHEN UTL_FILE.INVALID_MODE THEN
DBMS_OUTPUT.PUT_LINE('Modo Invalido');
WHEN UTL_FILE.INVALID_FILEHANDLE THEN
DBMS_OUTPUT.PUT_LINE('Filehandle invalido');
WHEN OTHERS THEN
ERRMSG := SQLERRM;
DBMS_OUTPUT.PUT_LINE('ERROR: '||ERRMSG);
END;
/

Saludos.

Etiquetas: txt
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:51.