ORACLE开发知识：Oracle 实现将查询结果保存到文本txt中

spool j:\test.txt
select sysdate from dual;
spool off;

CREATE OR REPLACE PROCEDURE PROC_INSERTSQLTXT AS

V_FILE UTL_FILE.FILE_TYPE;
V_INPUT CLOB;
BEGIN
V_FILE := UTL_FILE.FOPEN(‘DATA_PUMP_DIR’, ‘EMPNO.TXT’, ‘W’);
FOR I IN (SELECT EMPNO||’|’||
ENAME||’|’||
JOB ||’|’||
MGR ||’|’||
to_char(HIREDATE,’yyyy-mm-dd’) ||’|’||
SAL ||’|’||
COMM ||’|’||
DEPTNO as stringname FROM SCOTT.EMP)
LOOP
UTL_FILE.PUT_LINE(V_FILE,I.STRINGNAME);
END LOOP;
UTL_FILE.FCLOSE(V_FILE);
EXCEPTION
WHEN UTL_FILE.ACCESS_DENIED THEN
DBMS_OUTPUT.PUT_LINE(‘拒绝访问!’);
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(‘SQLERRM: ‘ || SQLERRM);
END;