create or replace directory utllobdir as '/updates';
create table bfile_tab (bfile_column BFILE);
create table exe (blob_column BLOB);
create table dll (blob_column BLOB);
create table liveupdate(VER number);
----------------------------------------
declare
   a_blob BLOB;
   a_bfile BFILE := BFILENAME('UTLLOBDIR','bus_mana.exe');
begin
   insert into bfile_tab values (a_bfile)
     returning bfile_column into a_bfile;
   insert into exe values (empty_blob())
     returning blob_column into a_blob;
   dbms_lob.fileopen(a_bfile);
   dbms_lob.loadfromfile(a_blob, a_bfile, dbms_lob.getlength(a_bfile));
   dbms_lob.fileclose(a_bfile);
   commit;
end;
/

---
declare
   a_blob BLOB;
   a_bfile BFILE := BFILENAME('UTLLOBDIR','zs.dll');
begin
   insert into bfile_tab values (a_bfile)
     returning bfile_column into a_bfile;
   insert into dll values (empty_blob())
     returning blob_column into a_blob;
   dbms_lob.fileopen(a_bfile);
   dbms_lob.loadfromfile(a_blob, a_bfile, dbms_lob.getlength(a_bfile));
   dbms_lob.fileclose(a_bfile);
   commit;
end;
/
--------------
select dbms_lob.getlength(blob_column) from exe;
select dbms_lob.getlength(blob_column) from dll;

ITPub博客

我的PB程序数据库升级程序

最新文章