关注ORACLE ERP及开发工具引用本人原创文章敬请注明出处

插入一个文件到DB中

上一篇 / 下一篇 2007-02-01 00:00:00 / 个人分类：Oracle 开发

conn system/system
grant create any directory to test;
conn test/test
create table demo (id int primary key,theclob clob);
create or replace directory my_file as ‘d:’;
create or replace procedure load_a_file(p_id in number,
p_filename in varchar2) as
l_clob clob;
l_bfile bfile;
begin
insert into demo
values
(p_id, empty_clob())
returning theClob into l_clob;
l_bfile := bfilename('MY_FILES', p_filename);
dbms_lob.fileopen(l_bfile);
dbms_lob.loadfromfile(l_clob, l_bfile, dbms_lob.getlength(l_bfile));
dbms_lob.fileclose(l_bfile);
end;
exec load_a_file( 1, 'index.html' );