以前曾寫過(guò)PL/SQL,當(dāng)時(shí)還是第一次接觸,什么都不明白
順手寫了篇 《Oracle內(nèi)建包UTL_FILE使用說(shuō)明 》的博文,沒(méi)想到還被轉(zhuǎn)載(譬如百度搜索utl_file,第一篇就是,不過(guò)沒(méi)寫我的出處,可惜……)
http://www.tkk7.com/liwei/archive/2007/01/10/92902.html
當(dāng)時(shí)項(xiàng)目做完就沒(méi)接觸PL/SQL了,時(shí)隔2年半,又要寫PL/SQL了,而且遇到的問(wèn)題居然還是和UTL_FILE有關(guān)。
于是上網(wǎng)找了些資料
http://www.shift-the-oracle.com/plsql/utl_file/utl_file_dir.html
http://www.shift-the-oracle.com/plsql/utl_file/create-directory.html
日文的,不得不說(shuō),日本人做事實(shí)在是認(rèn)真,資料非常詳細(xì),看完之后,我就覺得我是高手了,可以整理點(diǎn)東西出來(lái)教別人了……哈哈
廢話少說(shuō),開始
現(xiàn)在一般跑UTL_FILE.FOPEN時(shí)會(huì)出現(xiàn)ORA-29280的錯(cuò)誤,出現(xiàn)這個(gè)錯(cuò)誤主要有2個(gè)原因
1.文件夾沒(méi)有讀寫權(quán)限
2.文件夾沒(méi)有進(jìn)行Oracle讀寫配置
注意:這里討論的Oracle是在Unix類(包括linux,Solaris等)主機(jī)下安裝的。
對(duì)于第1個(gè)原因,直接設(shè)定文件夾權(quán)限即可,譬如
# chmod 700 /u05/file_storage/recv_dir
這個(gè)沒(méi)啥好說(shuō),不是我要說(shuō)的重點(diǎn)。
第2個(gè)原因,可以好好說(shuō)說(shuō)。
Oracle進(jìn)行文件夾讀寫配置有2種方式
1.設(shè)定UTL_FILE_DIR
2.使用DIRECTORY 對(duì)象
1.設(shè)定UTL_FILE_DIR
Oracle 8i之前,貌似沒(méi)有DIRECTORY這個(gè)概念,所以只有一種方式。
編輯 initORACLE_SID.ora 文件(ORACLE_SID是個(gè)變數(shù),因DB設(shè)定有所不同),添加
UTL_FILE_DIR='/u05/file_storage/recv_dir','/u05/file_storage/send_dir'
即可。
Oracle 9i之后還可以利用ALTER SYSTEM 命令進(jìn)行設(shè)定
ALTER SYSTEM SET
UTL_FILE_DIR='/u05/file_storage/recv_dir','/u05/file_storage/send_dir'
SCOPE = SPFILE ;
也可以用命令來(lái)確認(rèn)設(shè)定是否正確
SELECT NAME, VALUE FROM V$PARAMETER2 WHERE NAME='utl_file_dir' ;
注意:Oracle 8i 之后的DB不推薦使用這種方式,主要是情報(bào)泄露方面,日本很在意這個(gè)。
另外,讓所有文件夾有效可使用('*')。
這種方法不方便的就是,設(shè)定了之后必須重啟Oracle才能使設(shè)定有效。
使用例
CREATE OR REPLACE PROCEDURE RIVUS.UTL_FILE_DIR_WRITE_SAMPLE
AS
vHandle UTL_FILE.FILE_TYPE;
vDirname VARCHAR2(250);
vFilename VARCHAR2(250);
vOutput VARCHAR2(32767);
BEGIN
vDirname := '/u05/file_storage/send_dir'; -- 絕對(duì)路徑
vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname ,vFilename,'w', 32767);
vOutput := '利用 UTL_FILE_DIR 進(jìn)行的文件處理';
UTL_FILE.PUT_LINE(vHandle, vOutput);
UTL_FILE.FCLOSE(vHandle);
EXCEPTION WHEN OTHERS THEN
UTL_FILE.FCLOSE_ALL;
RAISE;
END;
2.使用DIRECTORY 對(duì)象
從Oracle 9i 開始UTL_FILE就能使用CREATE DIRECTORY了。
首先文件夾必須存在,要有權(quán)限,我就不多說(shuō)了。
然后做成DIRECTORY 對(duì)象
CREATE DIRECTORY recv_area AS '/u05/file_storage/recv_dir';
CREATE DIRECTORY send_area AS '/u05/file_storage/send_dir';
當(dāng)recv_area已存在時(shí),會(huì)出錯(cuò),可使用下面這句
CREATE OR REPLACE DIRECTORY recv_area AS '/u05/file_storage/recv_dir';
接著,賦予用戶該DIRECTORY 對(duì)象的讀寫權(quán)限
GRANT READ ON DIRECTORY recv_area TO user_name ;
GRANT WRITE ON DIRECTORY send_area TO user_name ;
同時(shí)讀寫權(quán)限
GRANT READ,WRITE ON DIRECTORY recv_area TO user_name ;
做好這些就可以確認(rèn)了
SELECT * FROM ALL_DIRECTORIES ;
看到自己做成的DIRECTORY了吧
這里需要注意的是,當(dāng)初CREATE DIRECTORY的時(shí)候是小寫recv_area,現(xiàn)在這里是大寫RECV_AREA
之后利用該DIRECTORY 對(duì)象時(shí)必須用大寫。
還有,該DIRECTORY對(duì)象不包括上層目錄(這個(gè)是當(dāng)然的),也不包括子目錄。
要利用子目錄需要再定義一個(gè)子目錄的DIRECTORY對(duì)象。
使用例
CREATE OR REPLACE PROCEDURE RIVUS.CREATE_DIR_WRITE_SAMPLE
AS
vHandle UTL_FILE.FILE_TYPE;
vDirname VARCHAR2(250);
vFilename VARCHAR2(250);
vOutput VARCHAR2(32767);
BEGIN
vDirname := 'SEND_AREA'; -- 必須用大寫
vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname ,vFilename,'w', 32767);
vOutput := '利用CREATE DIRECTORY進(jìn)行的文件處理';
UTL_FILE.PUT_LINE(vHandle, vOutput);
UTL_FILE.FCLOSE(vHandle);
EXCEPTION WHEN OTHERS THEN
UTL_FILE.FCLOSE_ALL;
RAISE;
END;
到此為止,問(wèn)題應(yīng)該解決了。