利用存储过程将表中数据导出到

--*********************************************************************
--***
--***首先以dba或者是其他具有create directory的用户创建directory，然后授权
--***
--*********************************************************************
CREATE OR REPLACE DIRECTORY dir_jiang AS 'd:\oracle';
GRANT READ,WRITE ON directory dir_jiang TO scott;

--*********************************************************************
--***
--***执行导出文本文件的存储过程：p_exp
--***p_tname:要导出的表明；p_query：where条件，根据这个条件导出，如果为null,则全表导出
--***
--***
--*********************************************************************
CREATE OR REPLACE procedure p_exp(p_tname varchar2,p_query varchar2)
AS
  v_line  varchar2(2000);                       --记录的数据
  v_sql    varchar2(2000);                      --动态sql变量
  v_fname  varchar2(40);                        --导出数据的文件名字
  cursor cursor_column                          --游标：通过数据字典查找出表有哪些字段
        IS SELECT column_name,data_type
        FROM user_tab_columns WHERE table_name=upper(p_tname);
  type type_cursor IS ref cursor ;
  mycursor type_cursor;
  outf utl_file.file_type;

BEGIN
  v_fname:=p_tname||'.txt';
  FOR col IN cursor_column loop
    IF col.data_type='DATE' THEN
          v_sql:=v_sql||'to_char('||col.column_name||',''yyyy-mm-dd-hh24:mi:ss'')'||'||chr(9)||';
    ELSE
          v_sql:=v_sql||col.column_name||'||chr(9)||';
    END IF;
  END loop;
  v_sql:=rtrim(v_sql,'||chr(9)||');
  v_sql:='select '||v_sql||' from '||p_tname||' '||p_query;
  dbms_output.put_line(v_sql);
  outf:=utl_file.fopen('DIR_JIANG',v_fname,'w');
  open mycursor FOR v_sql;
  loop
    fetch mycursor INTO v_line;   
    exit when mycursor%notfound;
    utl_file.put_line(outf,v_line);
  END loop;
  utl_file.fclose(outf);
  dbms_output.put_line('导出成功');
END;