ORACLE數據庫記錄輸出到文本文件的實現

Oracle數據庫記錄應該如何才能輸出到文本文件呢？下面就教您一個Oracle數據庫記錄輸出到文本文件的實現方法啊，希望對您學習Oracle數據庫記錄方面能有所幫助。

在某些情況下，比如說為了與其他數據庫進行數據交換，我們需要把ORACLE數據庫裡的數據輸出來，保存到一個中間文件，然後再作處理。那麼如何輸出Oracle數據庫裡的數據呢？

假設這些數據是文本類型的數據（字符、數字、日期），我們至少有兩種辦法輸出，一種是利用制表功能，把所有數據以表格形式輸出，並把表格保存到一個文本文件。另一種辦法更簡單，就是利用UTL_FILE包，直接把數據輸入到文本文件。

在使用UTL_FILE包前需要在Oracle數據庫的初始化文件(initsid.ora）定義UTL_FILE的可寫目錄，例如

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,’  
【期刊類別】\n%s\n’,vclass_name);  
UTL_FILE.PUTF(OutputFile,’  
【期刊刊號】\n%s\n’,vpub_issn);  
UTL_FILE.PUTF(OutputFile,’  
【期刊名稱】\n%s\n’,vpub_name);  
UTL_FILE.PUTF(OutputFile,’  
【期刊卷號】\n%s\n’,vperd_volume);  
UTL_FILE.PUTF(OutputFile,’  
【期刊期號】\n%s\n’,vperd_issue);  
UTL_FILE.PUTF(OutputFile,’  
【出版日期】\n%s\n’,vperd_date);  
UTL_FILE.PUTF(OutputFile,’  
【中文標題】\n%s\n’,vart_chntitle);  
UTL_FILE.PUTF(OutputFile,’  
【中文作者】\n%s\n’,vart_chnauthor);  
 
UTL_FILE.PUTF(OutputFile,’  
【作者單位】\n%s\n’,vart_authorinstitute);  
UTL_FILE.PUTF(OutputFile,’  
【中文要害詞】\n%s\n’,vart_chnkeyWord);  
UTL_FILE.PUTF(OutputFile,’  
【中文文摘】\n%s\n’,vart_engabs1);  
UTL_FILE.PUTF(OutputFile,’  
【中文文摘2】\n%s\n’,vart_engabs2);  
UTL_FILE.FFLUSH(OutputFile);  
exit when cperd11%NOTFOUND;  
END LOOP;  
close cperd11;  
 
END;   
 
-