存储过程写法

denmarka
等级:

发表于：2008-05-21 18:53:46 楼主

请问
create or replace procedure img_insert (filename varchar2) as

f_lob bfile;

b_lob blob;
num int;
begin
num := 0;
while num <100 loop
insert into person (id,pname,birth,document) values (seq_person.nextval,'aaa',sysdate,empty_blob ()) return document into b_lob;
f_lob:= bfilename ('AAA', filename);

dbms_lob.fileopen (f_lob, dbms_lob.file_readonly);

dbms_lob.loadfromfile (b_lob, f_lob,

dbms_lob.getlength (f_lob));

dbms_lob.fileclose (f_lob);
end loop;
commit;

end;

执行方法是 exec img_insert('1.jpg');

插入一条没问题，加上循环就半天没反应了
这个写的有哪里有问题？数据也没插入

问题点数：20 回复次数：5 修改删除举报引用回复

hery2002
苦*行*僧
等级:

发表于：2008-05-21 19:58:471楼得分:0

num没有赋值,造成死循环了.

修改删除举报引用回复

fosjos
无聊的菜鸟程序员
等级:

发表于：2008-05-21 20:42:432楼得分:0

楼主用for吧

修改删除举报引用回复

Adrianlynn
杯缘法师
等级:

发表于：2008-05-21 22:16:263楼得分:0

create or replace procedure img_insert (filename varchar2) as

f_lob bfile;

b_lob blob;
num int;
begin
num := 0;
while num <100 loop
insert into person (id,pname,birth,document) values (seq_person.nextval,'aaa',sysdate,empty_blob ()) return document into b_lob;
f_lob:= bfilename ('AAA', filename);

dbms_lob.fileopen (f_lob, dbms_lob.file_readonly);

dbms_lob.loadfromfile (b_lob, f_lob,

dbms_lob.getlength (f_lob));

dbms_lob.fileclose (f_lob);
end loop;

num := num+1;--漏了这句吧?
commit;

end;

修改删除举报引用回复

denmarka
等级:

发表于：2008-05-22 08:56:424楼得分:0

谢谢大家

修改删除举报引用回复