ORACLE批量導(dǎo)入圖片到BLOB字段代碼示例
要插入圖片的表不是固定的,而且是批量插入很多張,還要考慮到因?yàn)閳D片的文件名錯(cuò)誤,修改后要再次插入,此時(shí)應(yīng)避免已經(jīng)插入的重復(fù)執(zhí)行操作, 浪費(fèi)時(shí)間。
所以就選擇先用一張臨時(shí)表來暫時(shí)保存從文件系統(tǒng)讀取的照片,用DBMS_LOB的方法來處理。
第一步:創(chuàng)建一個(gè)數(shù)據(jù)庫可以訪問的目錄(注意:這個(gè)目錄是數(shù)據(jù)庫服務(wù)器上的目錄,不是客戶機(jī)上的)
-- Create directory create or replace directory 圖片目錄 as 'E:\照片';
第二步:將圖片文件放入剛建好的目錄下面,不要在新建文件夾,就放在這個(gè)根目錄
第三步:根據(jù)自己的具體需求,編寫存儲過程,在做之前,我也在網(wǎng)上找了很多,但基本都只是大概說一下,沒有找到比較完整的,這里就把自己的項(xiàng)目源碼貼出來,供大家學(xué)習(xí)交流。
CREATE OR REPLACE PROCEDURE PRO_插入圖片(V_表名 IN VARCHAR2) IS
P_FILENAME VARCHAR2(50); --照片名,動態(tài)拼接得到
P_證件號碼 VARCHAR2(50);
P_姓名 VARCHAR2(50);--這個(gè)照片名是通過姓名+證件號拼接得到的,因?yàn)榛A(chǔ)測試數(shù)據(jù)沒有提供真實(shí)的證件號碼,就選擇用手機(jī)號來代替
P_查詢SQL VARCHAR2(500);
P_更新SQL VARCHAR2(5000);
P_LOB BLOB;
P_FILE BFILE;
TYPE P_REF_CURSOR IS REF CURSOR; --定義動態(tài)游標(biāo)變量類型
P_CURSOR P_REF_CURSOR; --定義動態(tài)游標(biāo)變量,因?yàn)橐淮我迦肴淼恼掌?,所以選擇用游標(biāo)來處理
TYPE P_ROW_RECORD IS RECORD(
證件號碼 VARCHAR2(50),
姓名 VARCHAR2(50));
C_ROW P_ROW_RECORD;
V_ERR VARCHAR2(300);
BEGIN
P_更新SQL := 'update ' || V_表名 || ' set 證件號碼=手機(jī)號碼 WHERE 證件號碼 IS NULL';
--用手機(jī)號來代替證件號碼為空的數(shù)據(jù)
EXECUTE IMMEDIATE P_更新SQL;
COMMIT;
P_查詢SQL := 'SELECT 證件號碼,姓名 FROM ' || V_表名 ||
' WHERE 證件號碼 IS NOT NULL and 照片 IS NULL order by 證件號碼';
OPEN P_CURSOR FOR P_查詢SQL;
LOOP
begin
FETCH P_CURSOR
INTO C_ROW;
EXIT WHEN P_CURSOR%NOTFOUND;
--獲取證件號碼和姓名,先排除空格等臟數(shù)據(jù),然后拼接成文件名;
P_證件號碼 := C_ROW.證件號碼;
P_姓名 := C_ROW.姓名;
SELECT REPLACE(P_證件號碼, ' ', '') INTO P_證件號碼 FROM DUAL;
SELECT substr(P_證件號碼, 1, 11) INTO P_證件號碼 FROM DUAL;
SELECT REPLACE(P_姓名, ' ', '') INTO P_姓名 FROM DUAL;
P_FILENAME := P_證件號碼 || P_姓名 || '.jpg';
SELECT REPLACE(P_FILENAME, ' ', '') INTO P_FILENAME FROM DUAL;
--以下便是插入圖片的核心代碼
INSERT INTO TA_照片總表_TEMP
(證件號碼, 姓名, 照片)
VALUES
(P_證件號碼, P_姓名, EMPTY_BLOB()) RETURN 照片 INTO P_LOB;
--獲取指定目錄下的文件
P_FILE := BFILENAME('圖片目錄', P_FILENAME);
--以只讀的方式打開文件
DBMS_LOB.FILEOPEN(P_FILE, DBMS_LOB.FILE_READONLY);
--傳遞對象
DBMS_LOB.LOADFROMFILE(P_LOB, P_FILE, DBMS_LOB.GETLENGTH(P_FILE));
--關(guān)閉原始文件
DBMS_LOB.FILECLOSE(P_FILE);
COMMIT;
--通過更新語句來向目標(biāo)表插入圖片
P_更新SQL := 'UPDATE ' || V_表名 ||
' A SET a.照片=(SELECT 照片 FROM TA_照片總表_TEMP b
WHERE A.證件號碼 = B.證件號碼 and a.姓名=b.姓名 AND ROWNUM=1)
WHERE EXISTS (SELECT 1 FROM TA_照片總表_TEMP B WHERE A.證件號碼 = B.證件號碼 and a.姓名=b.姓名)';
EXECUTE IMMEDIATE P_更新SQL;
COMMIT;
EXCEPTION
--處理異常情況,這個(gè)可以在出現(xiàn)異常時(shí)跳過異常繼續(xù)跑。正常數(shù)據(jù)依然可以插入,并且記錄異常信息,方便異常處理。這個(gè)是因?yàn)榈谝淮螌懙倪^程一報(bào)錯(cuò)就斷掉了,本來可以插入的圖片也無法繼續(xù),然后就做了這個(gè)優(yōu)化。
WHEN OTHERS THEN
rollback;
V_ERR := SUBSTR(SQLERRM, 1, 150) || '照片名:' || P_FILENAME;
--定義一張異常信息記錄表,是一個(gè)非常好的習(xí)慣
INSERT INTO TA_程序運(yùn)行異常記錄
VALUES
(SQ_異常序列.NEXTVAL, 'PRO_插入圖片', V_ERR, SYSDATE);
COMMIT;
end;
END LOOP;
CLOSE P_CURSOR;
COMMIT;
DELETE TA_照片總表_TEMP;
COMMIT;
END PRO_插入圖片;
總結(jié)
然后測試、運(yùn)行,基本都沒問題,不過圖片的大小,很影響實(shí)際插入的時(shí)間,這個(gè)時(shí)間的優(yōu)化目前還沒有好的對策。
以上就是本文關(guān)于ORACLE批量導(dǎo)入圖片到BLOB字段代碼示例的全部內(nèi)容,希望對大家有所幫助。感興趣的朋友可以參閱:oracle 數(shù)據(jù)庫啟動階段分析 、ORACLE SQL語句優(yōu)化技術(shù)要點(diǎn)解析 、oracle中l(wèi)ength、lengthb、substr、substrb函數(shù)用法介紹 等,有什么問題可以隨時(shí)留言,小編會及時(shí)回復(fù)大家的。也希望朋友們對腳本之家網(wǎng)站多多支持!
相關(guān)文章
詳解PL/SQL Developer連接本地Oracle 11g 64位數(shù)據(jù)庫
本篇文章主要介紹了PL/SQL Developer連接本地Oracle 11g 64位數(shù)據(jù)庫 ,具有一定的參考價(jià)值,感興趣的小伙伴們可以參考一下2017-04-04
WINDOWS下使用DOS命令行連接oracle數(shù)據(jù)庫
本文講述了通過windows下的DOS命令連接oracle數(shù)據(jù)庫并進(jìn)行簡單操作的方法2018-03-03
詳解azure 云上準(zhǔn)備oracle11g的vnc安裝環(huán)境
本篇文章主要介紹了詳解azure 云上準(zhǔn)備oracle11g的vnc安裝環(huán)境,具有一定的參考價(jià)值,感興趣的小伙伴們可以參考一下。2017-03-03
Oracle使用range分區(qū)并根據(jù)時(shí)間列自動創(chuàng)建分區(qū)
這篇文章主要介紹了Oracle使用range分區(qū)并根據(jù)時(shí)間列自動創(chuàng)建分區(qū),本文給大家介紹的非常詳細(xì),對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2023-04-04
PLSQLDeveloper登錄遠(yuǎn)程連接Oracle的操作
這篇文章主要介紹了PLSQLDeveloper登錄遠(yuǎn)程連接Oracle的操作方法,通過圖文并茂給大家介紹的非常詳細(xì),對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2021-09-09
淺談入門級oracle數(shù)據(jù)庫數(shù)據(jù)導(dǎo)入導(dǎo)出步驟
這篇文章主要介紹了淺談入門級oracle數(shù)據(jù)庫數(shù)據(jù)導(dǎo)入導(dǎo)出步驟,文章通過步驟解析介紹的非常詳細(xì),對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-08-08
基于Oracle的面向?qū)ο蠹夹g(shù)入門基礎(chǔ)簡析開發(fā)者網(wǎng)絡(luò)Oracle
基于Oracle的面向?qū)ο蠹夹g(shù)入門基礎(chǔ)簡析開發(fā)者網(wǎng)絡(luò)Oracle...2007-03-03

