教你快速掌握Oracle数据库中的 bfile

create DIRECTORY 'tmpdir' AS '/tmp';

GRANT READ ON DIRECTORY bfile_dir1 TO scott; 

建立一个含有bfile字段的表 

 create table bfiletest(id number(3), fname bfile); 

 建立一个含有BLOB字段的表


create table blobtest(id number(3),ablob blob);

INSERT INTO bfiletest 

 VALUES (1, BFILENAME ('tmpdir', 'tmptest'));

CREATE OR REPLACE PROCEDURE loadLOBFromBFILE_proc(

TID IN NUMBER,rfilename in varchar2,rfiledir 
in varchar2,upmessage out varchar2) 
AS 
   Dest_loc       BLOB; 
   Src_loc        BFILE;
BEGIN
  INSERT INTO BLOBTEST(ID,ABLOB) 
VALUES(TID,EMPTY_BLOB()) RETURN ABLOB INTO DEST_LOC;

  Src_loc := BFILENAME(rfiledir,rfilename);
      

   /* 如果bfile文件实际存在 */ 
   IF (DBMS_LOB.FILEEXISTS(Src_loc) != 0) 
   THEN 
       /* 打开bfile源文件 */  
       DBMS_LOB.OPEN(Src_loc, DBMS_LOB.LOB_READONLY); 
       /* 打开目标blob: */  
       DBMS_LOB.OPEN(Dest_loc, DBMS_LOB.LOB_READWRITE); 
       /*从文件中装入 */ 
       DBMS_LOB.LOADFROMFILE(Dest_loc, 
Src_loc,DBMS_LOB.GETLENGTH(Src_loc)); 
       /* 记得关闭: */  
       DBMS_LOB.CLOSE(Dest_loc); 
       DBMS_LOB.CLOSE(Src_loc); 
       COMMIT;
       upmessage := '0'; 
   END IF; 
   EXCEPTION 
       WHEN OTHERS THEN 
          ROLLBACK;
          upmessage := '操作失败'; 

END;