天天看点

如何使用DBMS_LOB从文件中加载CLOB数据

在oracle中,有4个大对象(lobs)类型可用,分别是blob,clob,bfile,nclob。

下面是对lob数据类型的简单介绍。

l blob:二进制lob,为二进制数据,最长可达4GB,存贮在数据库中。

l clob:字符lob,字符数据,最长可以达到4GB,存贮在数据库中。

l bfile:二进制文件;存贮在数据库之外的只读型二进制数据,最大长度由操作系统限制。

l nclob:支持对字节字符集合(nultibyte characterset)的一个clob列。

对于如何检索和操作这些lob数据一直是oracle数据库开发者经常碰到的问题。下面我将在oracle对lob数据处理的一些方法和技巧,介绍给读者,希望能够对读者以后的开发有所帮助。

oracle中可以用多种方法来检索或操作lob数据。通常的处理方法是通过dbms_lob包。

一、在oracle开发环境中我们可以用dbms_lob包来处理!dbms_lob包功能强大,简单应用。既可以用来读取内部的lob对象,也可以用来处理bfile对象。但处理两者之间,还有一点差别。处理内部lob对象(blob,clob)时,可以进行读和写,但处理外部lob对象bfile时,只能进行读操作,写的操作可以用pl/sql处理。另外用sql也可以处理lob,但要注意sql仅可以处理整个lob,不能操作lob的数据片。

在dbms_lob包中内建了read(),append,write(),erase(),copy(),getlength(),substr()等函数,可以很方便地操作lob对象。这里不做深入讨论,读者可以参看相关的书籍。

以下全部操作都在system用户下进行的:

1.创建表downfilelist

create table downfilelist

(id varchar(20) not null primary key,

name varchar(40) not null,

filelocation bfile,

description clob

);

2.创建目录

create or replace directory filedir as 'd:\downlist';

3.插入一行:

insert into downfilelist values

('10001','oracle plsql编程指南',bfilename('filedir','信管(1)班-麒麟湖照片.exe')

,'这是一本很棒的书');

4.进行查询

SQL> select * from downfilelist;

SP2-0678: 列或属性类型无法通过 SQL*Plus 显示

SQL> select id,name,description from downfilelist;

ID NAME

-------------------- ----------------------------------------

DESCRIPTION

--------------------------------------------------------------------------------

10001 oracle plsql编程指南

这是一本很棒的书

5.read

declare

tempdesc clob;

ireadcount int;

istart int;

soutputdesc varchar(100);

begin

ireadcount:=5;

istart:=1;

select description into tempdesc from downfilelist

where id='10001';

dbms_lob.read(tempdesc,ireadcount,istart,soutputdesc);

dbms_output.put_line(soutputdesc);

end;

/

6.getlength

declare

tempclob clob;

ilen int;

begin

select description into tempclob from downfilelist

where id='10001';

ilen:=dbms_lob.getlength(tempclob);

dbms_output.put_line(ilen);

exception

when others then

dbms_output.put_line(sqlcode||' '||sqlerrm);

end;

/

7.write

declare

tempdesc clob;

icount int;

istart int;

snewvar varchar(30);

begin

icount:=10;

istart:=5;

snewvar:='这本书是今年的畅销书';

select description into tempdesc from downfilelist

where id='10001' for update;--锁定本行为了修改

dbms_output.put_line('更改前:'||tempdesc);

dbms_output.put_line('从'||istart||'开始的'||icount||'个字符被改写为:'||snewvar);

dbms_lob.write(tempdesc,icount,istart,snewvar);

commit;

end;

8.append

declare

destdesc clob;

srcdesc clob;

begin

select description into destdesc from downfilelist where id='10001' for update;

select description into srcdesc from downfilelist where id='10001';

dbms_lob.append(destdesc,srcdesc);

commit;

end;

/

9.erase

declare

tempdesc clob;

icount int;

istart int;

begin

icount:=3;

istart:=1;

select description into tempdesc from downfilelist where id='10001' for update;--必须用for upda

dbms_lob.erase(tempdesc,icount,istart);

commit;

end;

/

10.copy

declare

destdesc clob;

srcdesc clob;

icount int;

ideststart int;

isrcstart int;

begin

icount:=10;

ideststart:=10;

isrcstart:=1;

select description into destdesc from downfilelist

where id='10001' for update;

select description into srcdesc from downfilelist where id='10001' for update;

dbms_lob.copy(destdesc,srcdesc,icount,ideststart,isrcstart);

commit;

end;

/  

转载于:https://blog.51cto.com/gaoshan/156687