Oracle 查詢文件輸出簡介一

REM 當能大家也可以使用c來寫，這個也比較簡單，在 這裏就不給介紹了

REM Remember to update initSID.ora, utl_file_dir='D:\oralce_log\utl' parameter

declare

  oraload utl_file.file_type;

  CURSOR sql_out IS

    SELECT EMPNO||' ' || ENAME ||' ' || JOB || ' ' ||MGR || ' ' ||

    HIREDATE || ' ' || SAL ||' '||COMM as A from emp_001;

  sql_out_all sql_out%ROWTYPE;

begin

  oraload := utl_file.fopen('D:\oralce_log\utl', 'tab1.txt', 'w');   --這裏就是和 java 寫文件是一個道理

  OPEN sql_out;

  LOOP

    FETCH sql_out INTO sql_out_all;

    EXIT WHEN sql_out%NOTFOUND;

    utl_file.putf(oraload, '%s,%s\n',sql_out_all.A,'');

  end loop;

  utl_file.fclose(oraload);  -- 一定得關閉文件

end;

/