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;

/