Oracle进阶LOB字段学习
添加时间: 2008-4-26 1:12:10 作者: Oracle指导 阅读次数:21 来源: http://www.d9soft.com
SQL> @e:insertimg
过程已创建。
PL/SQL 过程已成功完成。
SQL> get e:insertimg
1 create or replace procedure "img_insert" (
2 tid varchar2,
3 filename varchar2) as
4 F_LOB BFILE;
5 B_LOB BLOB;
6 begin
7 dbms_output.put_line(’Now begin’);
8 insert into image_lob (t_id, t_image) values (tid, empty_blob()) return t_image into B_LOB;
9 F_LOB := bfilename(’IMAGES’, filename);
10 dbms_output.put_line(’Open success’);
11 dbms_output.put_line(’Now open :’ || filename);
12 dbms_lob.fileopen(F_LOB, dbms_lob.file_readonly);
13 dbms_lob.loadfromfile(B_LOB, F_LOB, dbms_lob.getlength(F_LOB));
14 dbms_lob.fileclose(F_LOB);
15 commit;
16 EXCEPTION
17 when others
18 then
19 DBMS_OUTPUT.PUT_LINE(’OTHERS Exception ’ || sqlerrm );
20* end;
21 /
过程已创建。
SQL> r
1 create or replace procedure "img_insert" (
2 tid varchar2,
3 filename varchar2) as
4 F_LOB BFILE;
5 B_LOB BLOB;
6 begin
7 dbms_output.put_line(’Now begin’);
8 insert into image_lob (t_id, t_image) values (tid, empty_blob()) return t_image into B_LOB;
9 F_LOB := bfilename(’IMAGES’, filename);
10 dbms_output.put_line(’Open success’);
11 dbms_output.put_line(’Now open :’ || filename);
12 dbms_lob.fileopen(F_LOB, dbms_lob.file_readonly);
13 dbms_lob.loadfromfile(B_LOB, F_LOB, dbms_lob.getlength(F_LOB));
14 dbms_lob.fileclose(F_LOB);
15 commit;
16 EXCEPTION
17 when others
18 then
19 DBMS_OUTPUT.PUT_LINE(’OTHERS Exception ’ || sqlerrm );
20* end;
SQL> select table_name from user_tables;
TABLE_NAME
------------------------------
ANYDATATAB
BFILETEST
BLOBTEST
BONUS
DEPT
EMP
IMAGE_LOB
LINEITEM_CV
LINEITEM_DP
SALGRADE
TAB2
TABLE_NAME
------------------------------
TEST
TEST2
VIEW_SITES_INFO
已选择14行。
Oracle进阶LOB字段学习(4) 第 [1] [2] [3] [4] [5] 下一页
上一篇文章: 在同一台机运行多个Mysql服务(下) 下一篇文章: 理解Oracle10g的SQL正则表达式支持