把文本sql写入BLOB的数据类型中

版权声明：未经允许，不能转载 https://blog.csdn.net/qq_37535558/article/details/83308507

create or replace directory UTL_FILE_DIR as 'E://';

DECLARE
    b_file bfile;
    b_lob BLOB;
  BEGIN
    --return a into b_lob将该列与一个blog类型的变量绑定在一起，以后只要为b_lob赋值，即等于将该值插入了表中
    INSERT
    INTO VOUCHER
      (
        VOUCHER_ID, 
        ATNO,
        DIRECTION,
         SQLSTR,
          TYPE,
           CARDTYPE, 
           ISAUTOCHARGE,
            VOUCHER_DESC,
             ASSIST_NO,
              DETAILSQL,
              ASSIST_CUST_NO,
              ASSIST_XJL
     )
     VALUES
     (
       '99',
       '60519910',
       '贷',
       empty_blob(),
       '1',
       '0',
       '0,1,2,3',
       '手续费收入',
       '',
       empty_blob(),
       '',
       ''
     )
     RETURN SQLSTR
    INTO b_lob;
   --将文件转换为bfile
   b_file := bfilename('UTL_FILE_DIR', 'test.txt');
   dbms_lob.open(b_file, dbms_lob.file_readonly);
   -- 将b_file中的内容转换到b_lob
   dbms_lob.loadfromfile(b_lob,b_file,dbms_lob.getlength(b_file));
   dbms_lob.close(b_file);
   COMMIT;
 END;