对不起!代码输错了一个,重新输一遍!
为了存取BLOB类型,做了一个简单的存取过程,但是总是报错:警告: 创建的过程带有编译错误!
找不到错在哪,急啊!
create table bfile_tab(dm varchar2(13),myfile bfile);//文件名表
create table image_lob(dm varchar2(13) not null,tp blob);//图片表
create or replace directory images as 'd:\myblob';create or replace procedure IMG_INSERT(id varchar2(13),filename varchar2(20)) as//存取过程
f_lob BFILE:=BFILENAME('images',filename);
b_lob BLOB;
begin
insert into bfile_tab(dm,myfile) values(id,f_lob) return myfile into F_LOB;
insert into image_lob(dm,tp) values(id,EMPTY_BLOB()) return tp into B_LOB;
DBMS_LOB.FILEOPEN(f_lob);
DBMS_LOB.LOADFROMFILE(b_lob,f_lob,DBMS_LOB.GETLENGTH(f_lob));
DBMS_LOB.FILECLOSE(f_lob);
commit;
end;