ORACLE批量導入圖片到BLOB字段

要插入圖片的表不是固定的，並且是批量插入不少張，還要考慮到由於圖片的文件名錯誤，修改後要再次插入，此時應避免已經插入的重複執行操做， 浪費時間。

因此就選擇先用一張臨時表來暫時保存從文件系統讀取的照片，用DBMS_LOB的方法來處理。

第一步：建立一個數據庫能夠訪問的目錄（注意：這個目錄是數據庫服務器上的目錄，不是客戶機上的）

-- Create directory
create or replace directory 圖片目錄
  as 'E:\照片';

第二步：將圖片文件放入剛建好的目錄下面，不要在新建文件夾，就放在這個根目錄

第三步：根據本身的具體需求，編寫存儲過程，在作以前，我也在網上找了不少，但基本都只是大概說一下，沒有找到比較完整的，這裏就把本身的項目源碼貼出來，供你們學習交流。

CREATE OR REPLACE PROCEDURE PRO_插入圖片(V_表名 IN VARCHAR2) IS
  P_FILENAME VARCHAR2(50); --照片名，動態拼接獲得
  P_證件號碼 VARCHAR2(50);
  P_姓名     VARCHAR2(50);--這個照片名是經過姓名+證件號拼接獲得的，由於基礎測試數據沒有提供真實的證件號碼，就選擇用手機號來代替
  P_查詢SQL  VARCHAR2(500);
  P_更新SQL  VARCHAR2(5000);
  P_LOB      BLOB;
  P_FILE     BFILE;
  TYPE P_REF_CURSOR IS REF CURSOR; --定義動態遊標變量類型
  P_CURSOR P_REF_CURSOR; --定義動態遊標變量，由於一次要插入全表的照片，因此選擇用遊標來處理
  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 證件號碼=手機號碼 WHERE 證件號碼 IS NULL';

--用手機號來代替證件號碼爲空的數據
  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;

--獲取證件號碼和姓名，先排除空格等髒數據，而後拼接成文件名；
      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));
      --關閉原始文件
      DBMS_LOB.FILECLOSE(P_FILE);
      COMMIT;

--經過更新語句來向目標表插入圖片
      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

--處理異常狀況，這個能夠在出現異常時跳過異常繼續跑。正常數據依然能夠插入，而且記錄異常信息，方便異常處理。這個是由於第一次寫的過程一報錯就斷掉了，原本能夠插入的圖片也沒法繼續，而後就作了這個優化。
      WHEN OTHERS THEN
        rollback;
        V_ERR := SUBSTR(SQLERRM, 1, 150) || '照片名:' || P_FILENAME;

--定義一張異常信息記錄表，是一個很是好的習慣
        INSERT INTO TA_程序運行異常記錄
        VALUES
          (SQ_異常序列.NEXTVAL, 'PRO_插入圖片', V_ERR, SYSDATE);
        COMMIT;
    end;
  END LOOP;
  CLOSE P_CURSOR;
  COMMIT;
  DELETE TA_照片總表_TEMP;
  COMMIT;
END PRO_插入圖片;

而後測試、運行，基本都沒問題，不過圖片的大小，很影響實際插入的時間，這個時間的優化目前尚未好的對策。