Question

oracle将表A里的数据导出为txt文件，用存储过程怎么写？

例如A表，字段id 字段form ，要求导出的数据之间以tab键隔开，如

10 1111
导出数据为前一天的数据

Answer 1

分几个步骤

1，创建输出路径，比如你要在c盘test目录下输出，你就先要建立好这个test路径

 

2，sqlplus下以sysdba登录，执行以下语句

 

3，create or replace directory TMP as 'c:\test';

 

4，grant read,write on directory TMP to 你要生成文件的用户;

 

5，alter system set utl_file_dir='c:\test' scope=spfile;

以上步骤执行完，需要重启数据库

 

6，最重要的一步开始了，创建存储过程

create or replace PROCEDURE SP_OUTPUT
is
file_handle utl_file.file_type;
Write_content VARCHAR2(1024);
Write_file_name VARCHAR2(50);
v_id int;
v_form varchar2(10);
cursor cur_sp_out
is
select id,form from a;
begin
open cur_sp_out;
loop
    fetch cur_sp_out into v_id,v_form;
    exit when cur_sp_out%notfound;
    write_file_name := to_char(SYSDATE,'YYYYMMDD')||'.txt';
    file_handle := utl_file.fopen('TMP',write_file_name,'a');
    write_content := v_id||' '||v_form;
    --write file
    IF utl_file.is_open(file_handle) THEN
     utl_file.put_line(file_handle,write_content);
    END IF;
    --close file
    utl_file.fclose(file_handle);
    end loop;
    close cur_sp_out;
end;

 

我建立了一个跟你一样的测试表，数据如下

create table a(id int,
form varchar2(10));

insert into a values (1,'你好');
insert into a values (2,'你很好');

然后执行存储过程

begin
 SP_OUTPUT;
end;

执行完毕后，你在c盘test路径下会发现已经有新文件生成

 

文件内容

 

存储过程的话，如果表名和字段名跟你一致的话，你无须修改

追问

我在哪儿控制导出为前一天当天的数据，比如2013-11-12？我的字段里面有date这个字段

追答

哦，那稍微改动一下就行，我那个是生成当天的了，你用下边这个

create or replace PROCEDURE SP_OUTPUT
is
file_handle utl_file.file_type;
Write_content VARCHAR2(1024);
Write_file_name VARCHAR2(50);
v_id int;
v_form varchar2(10);
cursor cur_sp_out
is
select id,form from a where to_char(日期,'yyyymmdd')=to_char(sysdate-1,'yyyymmdd'); --如果表里有日期字段的话这么用就行
begin
open cur_sp_out;
loop
    fetch cur_sp_out into v_id,v_form;
    exit when cur_sp_out%notfound;
    write_file_name := to_char(SYSDATE-1,'YYYYMMDD')||'.txt';--如果这个地方要修改文件名的话，在sysdate处减1就好，其他不用改
    file_handle := utl_file.fopen('TMP',write_file_name,'a');
    write_content := v_id||' '||v_form;
    --write file
    IF utl_file.is_open(file_handle) THEN
     utl_file.put_line(file_handle,write_content);
    END IF;
    --close file
    utl_file.fclose(file_handle);
    end loop;
    close cur_sp_out;
end;

Answer 2

--以下从系统获得日期和时间，用于文件命名。
select trim (to_char (operating_unit)) c_org_id,
trim (to_char (sysdate +12/24, 'YYYY-MM-DD_HH24.MI.SS')) c_datetimestamp
from apps.org_organization_definitions
where organization_code = 'JiangsuChangzhou'

--以下创建文件（既然你要tab隔开，那就直接以tsv作为后缀）
spool .\Delivery\CZ_Booking_Report_&&datetimestamp..TSV

--query start @这里加入文件头描述，可有可无
select 'The report was launched @ '||to_char (sysdate + 12/24, 'YYYY-MM-DD_Day_HH:MM:SS') from dual -- approximate timezone translation
/

--以下是输出表格的表头标题（3列为例）
select 'Operating_id' ||chr(9)||
'order_number' ||chr(9)||
'XXEGE_OM_DEFAULT_CODE'
from dual
/

--以下查询数据行
select hou.name ||chr(9)||
ooh.order_number ||chr(9)||
ooh.CUST_PO_NUMBER
from OM.tableX
--这句是你要的“前一天”条件。
where ooh.date like to_date('&&2', 'yyyy-mm-dd')+13/24
/

select 'The report was Finished @ '||to_char (sysdate + 13/24, 'YYYY-MM-DD_Day_HH:MM:SS') from dual

/
spool off