原文地址:http://archive.cnblogs.com/a/231000/
打算把一个磁盘上的小图片存到oracle的BLOB字段中,很常见吧,但对我来说是第一次。
上网找了几个例子,其中有园子里surprise的blog,我ctrl+c/v了上面的例子,如下:
在Oracle中写存储过程
2 id in number ,
3 file_name in varchar2 )
4 is
5 b_lob BLOB;
6 f_lob BFILE;
7 BEGIN
8 -- 首先把SPHOTO数据插入空值
9 Update student set SPHOTO = empty_blob() where STUDENTID = id;
10 -- 通过SELECT命令查询得到先前插入的记录并锁定
11 SELECT SPHOTO INTO b_lob from student where STUDENTID = id for update ;
12 -- 读取图片文件对象
13 f_lob: = bfilename( ' bb_images ' , file_name );
14 -- 打开图片文件对象
15 dbms_lob.fileopen(f_lob,dbms_lob.file_readonly);
16 -- 把图片文件对象写入Blob数据中
17 dbms_lob.loadfromfile(b_lob,f_lob,dbms_lob.getlength(f_lob));
18 dbms_lob.fileclose(f_lob);
19
20 END ;
其中:id代表关键字段id,file_name代表文件名
bb_images代表目录对象,目录对象创建如下
create directory bb_images as 'd:\kk';
我把这段存储过程改编成下面的PL/SQL段:
2 declare
3 b_lob BLOB;
4 f_lob BFILE : = BFILENAME( ' bb_images ' , ' 1.bmp ' );
5 BEGIN
6 Update IMAGETABLE set IMAGECOL = empty_blob() where IMGID = 1 ;
7 -- 通过SELECT命令查询得到先前插入的记录并锁定
8 SELECT IMAGECOL INTO b_lob from IMAGETABLE where IMGID = 1 for update ;
9 -- 打开图片文件对象
10 dbms_lob.fileopen(f_lob, dbms_lob.file_readonly);
11 -- 把图片文件对象写入Blob数据中
12 dbms_lob.loadfromfile(b_lob, f_lob, dbms_lob.getlength(f_lob));
13 dbms_lob.fileclose(f_lob);
14 END ;
结果正如大家所预料的:失败。报错如下:
declare
*
ERROR 位于第 1 行:
ORA-22285: 对不存在的目录或文件进行FILEOPEN操作
ORA-06512: 在"SYS.DBMS_LOB", line 504
ORA-06512: 在line 10
这个错误,就像编程中其它编译器经常报告大部分错误一样毫无道理,我给的目录和文件当然是存在的。那么问题到底出在哪呢?
上网找了一下,google上找到了类似的问题,但没有权威的回答,csdn上也是一样,问的就很少,答的更是没有。
但是我找到了一个号称是可以运行的相同功能PL/SQL段:
grant create any directory to scott;
grant create any library to scott;
create or replace directory utllobdir as ' d:\oracle ' ;
create table bfile_tab (bfile_column BFILE);
create table utl_lob_test (blob_column BLOB);
set serveroutput on
-- 然后执行下面语句
-- 就将d:\oracle目录下的Azul.jpg存入到
-- utl_lob_test表中的blob_column字段中了。
declare
a_blob BLOB;
a_bfile BFILE : = BFILENAME( ' UTLLOBDIR ' , ' Azul.jpg ' );
begin
insert into bfile_tab values (a_bfile)
returning bfile_column into a_bfile;
insert into utl_lob_test 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 ;
这段代码来自csdn,3186489号帖子一位叫freddy2003的回复。令我感到以外又兴奋的是这段代码可以执行成功!多好的代码呀,可是帖主居然就一分都没给freddy2003,没错,csdn中的有些发帖者就是这么怪异:-$
这样我就开始解剖freddy2003的这段代码,缩减、改编到最后变成:
2 declare
3 a_blob BLOB;
4 a_bfile BFILE : = BFILENAME( ' UTLLOBDIR ' , ' 1.bmp ' );
5 begin
6 insert into bfile_tab values (a_bfile)
7 returning bfile_column into a_bfile;
8 insert into utl_lob_test values (empty_blob())
9 returning blob_column into a_blob;
10 dbms_lob.fileopen(a_bfile);
11 dbms_lob.loadfromfile(a_blob, a_bfile, dbms_lob.getlength(a_bfile));
12 dbms_lob.fileclose(a_bfile);
13 commit ;
14 end ;
点下执行,居然还是成功!
再下来的修改就一针刺中要害了:我把第4行中的UTLLOBDIR改成utllobdir,再执行,结果立即变成那个原始的无理由的错误:对不存在的目录或文件进行FILEOPEN操作。
接下来尝试了将create directory语句中的目录对象名改成大写,没问题。但就是只要在bfilename中使用目录对象的时候如果不用大写就一定会出错。这就怪了,Oracle里PL/SQL语句不是大小写不敏感的么?各位看官能不能帮小弟解释一下这个现象?我也无法认定这到底是Oracle中PL/SQL的一个bug还是一个我不知道的规则。