Create or replace procedure setLob(vfn varchar2) as varB Blob; varF Bfile; vno number(8); Begin varF := bfileName('MYDIR',vfn); DBMS_LOB.Open(varF); select max(no) into vno from myLob; if vno is null then vno := 1; else vno := vno +1; end if; insert into mylob values (vno,vfn,empty_blob()); select myFile into varB from myLob where no = vno for update; DBMS_LOB.loadFromFile(varB,varF,DBMS_LOB.GetLength(varF)); DBMS_LOB.Close(varF); commit; End; /
楼主【lovemeone】截止到2008-07-21 01:19:45的历史汇总数据(不包括此帖):
发帖的总数量:1 发帖的总分数:50 每贴平均分数:50
回帖的总数量:1 得分贴总数量:0 回帖的得分率:0%
结贴的总数量:1 结贴的总分数:50
无满意结贴数:0 无满意结贴分:0
未结的帖子数:0 未结的总分数:0
结贴的百分比:100.00% 结分的百分比:100.00%
无满意结贴率:0.00 % 无满意结分率:0.00 %
敬礼!
Create or replace procedure setLob(vfn varchar2) as
varB Blob;
varF Bfile;
vno number(8);
Begin
varF := bfileName('MYDIR',vfn);
DBMS_LOB.Open(varF);
select max(no) into vno from myLob;
if vno is null then
vno := 1;
else
vno := vno +1;
end if;
insert into mylob values (vno,vfn,empty_blob());
select myFile into varB from myLob where no = vno for update;
DBMS_LOB.loadFromFile(varB,varF,DBMS_LOB.GetLength(varF));
DBMS_LOB.Close(varF);
commit;
End;
/