Oracle导出sql语句存储过程

以下是Oracle导出sql语句存储过程的一个方法：

　　先修改init.ora

　　例如：

　　utl_file_dir=/usr //路径为 oracle所在的盘:/usr

　　然后就是Oracle导出sql语句的过程。此过程将用户TEMP的P1过程的代码保存到ORACLE安装盘下/USR/TEXT.TXT中

 

 

     

　　这样就实现了Oracle导出sql语句存储过程。

create or replace procedure TEST is
  file_handle utl_file.file_type;
  STOR_TEXT   VARCHAR2(4000);
  N           NUMBER;
  I           NUMBER;
begin
  I := 1;
  SELECT MAX(LINE)
    INTO N
    FROM ALL_SOURCE
   WHERE OWNER = 'TEMP'
     AND NAME = 'P1';
  file_handle := utl_file.fopen('/usr', 'test.txt', 'a');
  WHILE I <= N LOOP
    SELECT TEXT
      INTO STOR_TEXT
      FROM ALL_SOURCE
     WHERE OWNER = 'TEMP'
       AND NAME = 'P1'
       AND LINE = I;
    I := I + 1;
    utl_file.put_line(file_handle, stor_text);
  END LOOP;
  utl_file.fclose(file_handle);
  commit;
end TEST;
/
exec TEST;

原文地址： http://www.360cat.cn/detail/38.html