ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 我的PB程序数据库升级程序

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

原创 Linux操作系统 作者:浪漫双鱼 时间:2008-01-08 11:33:36 0 删除 编辑

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博客 ” ,链接:http://blog.itpub.net/11088128/viewspace-119097/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 创建管理JOB
请登录后发表评论 登录
全部评论

注册时间:2007-12-10

  • 博文量
    87
  • 访问量
    221379