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

create or replace directory utllobdir as '/updates';
x P;L7Y&xNC0create table bfile_tab (bfile_column BFILE);
%iB\#PU X$Z0create table exe (blob_column BLOB);
MH.jP,y0create table dll (blob_column BLOB);
AI7M [My!PN(d0create table liveupdate(VER number);ITPUB个人空间S"F[2kGx$G cf9L
----------------------------------------
(U"lig;f!N_3qi0declare
N4s2N`J
n:z0   a_blob  BLOB;
+_E1r`:Sb-Y8Y:M0   a_bfile BFILE := BFILENAME('UTLLOBDIR','bus_mana.exe'); ITPUB个人空间`$g0N8S RQ E
beginITPUB个人空间f9V6ed#xu*X
   insert into bfile_tab values (a_bfile)
'vX3`rn8x1jVN0     returning bfile_column into a_bfile;ITPUB个人空间2cOIx0k
   insert into exe values (empty_blob())
8mU E@YTy0     returning blob_column into a_blob;ITPUB个人空间(H!~
}rh]O+]
   dbms_lob.fileopen(a_bfile);
l7u$c,z)i:aJ0   dbms_lob.loadfromfile(a_blob, a_bfile, dbms_lob.getlength(a_bfile));ITPUB个人空间7nNzH]!}o
   dbms_lob.fileclose(a_bfile);
-_qFji/@)}pg5e5K0   commit;ITPUB个人空间+G.GVfu&?+P
end;ITPUB个人空间mRS:O7w`;S*d
/

---ITPUB个人空间 a,cg%b'\`)]+u
declare
$\8_,y5g~.D0   a_blob  BLOB;
h"b{L_#qC0   a_bfile BFILE := BFILENAME('UTLLOBDIR','zs.dll'); ITPUB个人空间 `E/@+CVCMEk
beginITPUB个人空间c"X*YOUQC
   insert into bfile_tab values (a_bfile)
~%F-fay!b(kj0     returning bfile_column into a_bfile;
n4Zl!XlJ^3h0   insert into dll values (empty_blob())ITPUB个人空间-F-N `a1VkVD
     returning blob_column into a_blob;ITPUB个人空间,`5T-]S`:ct
   dbms_lob.fileopen(a_bfile);ITPUB个人空间,PezA,Pc6I&i1Q
   dbms_lob.loadfromfile(a_blob, a_bfile, dbms_lob.getlength(a_bfile));ITPUB个人空间,f+yM(N+w wF
e:_
   dbms_lob.fileclose(a_bfile);
:A/u.c-o~6A0   commit;
6N0vXR!_;HtM0end;
7`/V\:] W7P*K0/
hS:dQ7?7U0--------------
E!l P;P-k%Z0select dbms_lob.getlength(blob_column) from exe;
2_g {9K c0select dbms_lob.getlength(blob_column) from dll;ITPUB个人空间4sp^pSk(J