ORACLE数据库记录输出到文本文件的方法

ORACLE数据库记录输出到文本文件的方法

浏览选项：大中小

　　ORACLE数据库记录输出到文本文件的方法
　　中国科技信息研究所
　　涂悦红
　　---- 在某些情况下，比如说为了与其他数据库进行数据交换，我们需要把ORACLE数据库
里的数据输出来，保存到一个中间文件，然后再作处理。那么如何输出ORACLE数据库里的数据
　　---- 假设这些数据是文本类型的数据（字符、数字、日期），我们至少有两种办法输出
，一种是利用制表功能，把所有数据以表格形式输出，并把表格保存到一个文本文件。另一种
办法更简单，就是利用UTL_FILE包，直接把数据输入到文本文件。
　　---- 在使用UTL_FILE包前需要在ORACLE数据库的初始化文件(initsid.ora）定义
　　UTL_FILE=/export/home/oracle/output
　　---- 另外,还要注意的是输出记录中字段最大大小是1023字节，如果有字段超过这个限制
，就需要把它截断成几部分，就如下面的例子一样。
　　---- 这里给出一个实例，朋友们可以先照搬，然后根据自己数据库的实际情况，修改后
　　DECLARE
　　OutputFile UTL_FILE.FILE_TYPE;

　　vart_title perd11.ART_TITLE%TYPE;
　　vart_author perd11.ART_AUTHOR%TYPE;

　　vart_keyword perd11.ART_KEYWORD%TYPE;

　　vart_abstract perd11.ART_ABSTRACT%TYPE;

　　vart_abs1 perd11.ART_ABSTRACT%TYPE;
　　vart_abs2 perd11.ART_ABSTRACT%TYPE;
　　vart_authorinstitute perd11.ART_AUTHORINSTITUTE%TYPE;
　　vperd_volume perd11.PERD_VOLUME%TYPE;

　　vperd_issue perd11.PERD_ISSUE%TYPE;
　　vperd_date perd11.PERD_DATE%TYPE;

　　vpub_name perd11.PUB_NAME%TYPE;

　　vpub_issn perd11.PUB_ISSN%TYPE;
　　vclass_name perd11.CLASS_NAME%TYPE;

　　CURSOR cperd11 IS
　　select * from perd11;
　　BEGIN
　　OutputFile := UTL_FILE.FOPEN
　　('/export/home/oracle/output','perd11.out','a');
　　open cperd11;
　　LOOP
　　fetch cperd11 into vart_no,vart_title,
　　vart_author,vart_keyword,vart_abstract,
　　vart_authorinstitute,vperd_volume,
　　vperd_issue,vperd_date,vpub_name,
　　vpub_issn,vclass_name; 　　IF length(vart_abstract)>1000 THEN
　　vart_abs1:=substr(vart_abstract,0,1000);

　　vart_abs2:=substr(vart_abstract,1001);
　　ELSE
　　vart_abs1:=vart_abstract;
　　vart_abs2:=';
　　END IF;
　　UTL_FILE.PUTF(OutputFile,'
　　【期刊类别】 %s ',vclass_name);
　　UTL_FILE.PUTF(OutputFile,'
　　【期刊刊号】 %s ',vpub_issn);
　　UTL_FILE.PUTF(OutputFile,'
　　【期刊名称】 %s ',vpub_name);
　　UTL_FILE.PUTF(OutputFile,'
　　【期刊卷号】 %s ',vperd_volume);
　　UTL_FILE.PUTF(OutputFile,'
　　【期刊期号】 %s ',vperd_issue);
　　UTL_FILE.PUTF(OutputFile,'
　　【出版日期】 %s ',vperd_date);
　　UTL_FILE.PUTF(OutputFile,'
　　【中文标题】 %s ',vart_chntitle);
　　UTL_FILE.PUTF(OutputFile,'
　　【中文作者】 %s ',vart_chnauthor);
　　UTL_FILE.PUTF(OutputFile,'
　　【作者单位】 %s ',vart_authorinstitute);
　　UTL_FILE.PUTF(OutputFile,'
　　【中文关键词】 %s ',vart_chnkeyword);
　　UTL_FILE.PUTF(OutputFile,'
　　【中文文摘】 %s ',vart_engabs1);
　　UTL_FILE.PUTF(OutputFile,'
　　【中文文摘2】 %s ',vart_engabs2);
　　UTL_FILE.FFLUSH(OutputFile);
　　exit when cperd11%NOTFOUND;
　　END LOOP;
　　close cperd11;
　　END;