oracle中可以用多种方法来检索或操作lob数据

在oracle中，有4个大对象（lobs）类型可用，分别是blob,clob,bfile,nclob。 SbeuF.<)  
下面是对lob数据类型的简单介绍。 '4\6<sgRY  
blob:二进制lob，为二进制数据，最长可达4GB，存贮在数据库中。 Zu{2 ED  
clob:字符lob,字符数据,最长可以达到4GB,存贮在数据库中。 dH3edkR  
,!;P  
}Wk=&f8>o  
J`ZH uiN  
{uEa} *Vk  
bfile:二进制文件;存贮在数据库之外的只读型二进制数据，最大长度由操作系统限制。 j]+@>XSc?u  
nclob：支持对字节字符集合(nultibyte characterset)的一个clob列。 h4EdVbwr  
对于如何检索和操作这些lob数据一直是oracle数据库开发者经常碰到的问题。下面我将在oracle对lob数据处理的一些方法和技巧，介绍给读者，希望能够对读者以后的开发有所帮助。 MkX z=5  
+J|MG(4Na  
oracle中可以用多种方法来检索或操作lob数据。通常的处理方法是通过dbms_lob包。 'PXIsd>7/  
其他的方法包括使用api(application programminginterfaces)应用程序接口和oci（oracle call interface）oracle调用接口程序。 xTG*N|G  
一、在oracle开发环境中我们可以用dbms_lob包来处理！dbms_lob包功能强大，简单应用。既可以用来读取内部的lob对象，也可以用来处理bfile对象。但处理两者之间，还有一点差别。处理内部lob对象（blob,clob）时，可以进行读和写，但处理外部lob对象bfile时，只能进行读操作，写的操作可以用pl/sql处理。另外用sql也可以处理lob，但要注意sql仅可以处理整个lob，不能操作lob的数据片。 VH|?lZ M  
2Dx[ =6v  
在dbms_lob包中内建了read(),append,write()，erase()，copy(),getlength()，substr()等函数，可以很方便地操作lob对象。这里不做深入讨论，读者可以参看相关的书籍。 -HP],d$XI  
)o|t|PwN<+  
对于pl/sql，下面介绍一种技巧，用动态的pl/sql语句处理clob对象来传替表名！ 8U $O<-O  
example 1. N fhT1  
动态PL/SQL,对CLOB字段操作可传递表名table_name，表的唯一标志字段名field_id，clob字段名field_name记录号v_id，开始处理字符的位置v_pos，传入的字符串变量v_clob 1D(i5Ds  
sD7L0)  
修改CLOB的PL/SQL过程：updateclob yV7 7yQ  
create or replace procedure updateclob( ]N;*Y&(ikv  
table_name in varchar2, DoY)-1w  
field_id in varchar2, "dVC:h!%_  
field_name in varchar2,v_id in number, 0^L~v6(  
v_pos in number, ,357)(J  
v_clob in varchar2) y<Cs+H  
is 6 0tZ  
lobloc clob; YtT<D"#:  
c_clob varchar2(32767); %Gac;%ZD  
amt binary_integer; 0hh DWD~h  
pos binary_integer; `)cd  
query_str varchar2(1000); 8(]<]!mI  
begin fR@1Ie/h:  
pos:=v_pos*32766+1; dtbDo&"  
amt := length(v_clob); G:9(.N  
c_clob:=v_clob; *$M-G  
query_str :='select '||field_name||'from '||table_name||' ma&L)D  
where '||field_id||'= :id for update '; .e6}Qb  
--initialize buffer with data to be inserted or updated hrJ)oFb(6J  
EXECUTE IMMEDIATE query_str INTO lobloc USING v_id; 2$ UG3%  
--from pos position, write 32766 varchar2 into lobloc r Rt.6UeQ  
dbms_lob.write(lobloc, amt, pos, c_clob); h [;^0  
commit; r\k] Lt X  
exception @z,~)D 6G  
when others then ;k&B}}'A  
rollback; EyZZ3] uZ  
end; "~#]tN1&U #p#分页标题#e# 
l /用法说明： o9*15AN  
在插入或修改以前，先把其它字段插入或修改，CLOB字段设置为空empty_clob()， E aX>HT  
然后调用以上的过程插入大于2048到32766个字符。 AWI\.  
如果需要插入大于32767个字符，编一个循环即可解决问题。 }O+Bd0W  
查询CLOB的PL/SQL函数：getclob _[G:i*)  
create or replace function getclob( -j/z^5jhg  
table_name in varchar2, +WHF }4  
field_id in varchar2, s1-0e^mH(  
field_name in varchar2, pOZ@#!G>(  
v_id in number, Ayh&FNf  
v_pos in number) return varchar2 _]FS4wf  
is Stb Qi  
lobloc clob; M}k; BQ  
buffer varchar2(32767); i!Ee5tU  
amount number := 2000; Z| QZ1N I  
offset number := 1; fsD}E^  
query_str varchar2(1000); RR[T17Z  
begin ]Ji;GZh_F  
query_str :='select '||field_name||' from '||table_name||' g&'l`& !  
where '||field_id||'= :id '; -`&j <Nh  
--initialize buffer with data to be found l)R>TXJ  
EXECUTE IMMEDIATE query_str INTO lobloc USING v_id; ?BiwjNmSr  
offset:=offset+(v_pos-1)*2000; ) X14~  
--read 2000 varchar2 from the buffer '%bfh0~  
dbms_lob.read(lobloc,amount,offset,buffer); .7')o 2N  
return buffer; oq:*Jg8  
exception 0H6/{v^4o  
when no_data_found then Y.%4D 9>z?  
return buffer; aQ^r5r  
end; +Zu)Z<3c-S  
l 用法说明： Bsl9T 6  
用select getclob(table_name,field_id,field_name,v_id,v_pos) as I-y) |G  
partstr from dual; %=K `j~#  
可以从CLOB字段中取2000个字符到partstr中， st._0, da  
编一个循环可以把partstr组合成dbms_lob.getlength(field_name)长度的目标字符串。 ;1=wnp@G  
二、对于在其他不同的开发环境，例如vc,vb,pb,java等环境下对lob的处理，处理方法不尽相同，在这里将简要举几个例子来说明不在oracle开发环境下对lob的处理。 o1[ ?2lr  
JUnz/<>QI  
（一） 在pb中的处理 >-&RMZ .w  
exampler 2. C1Np1~  
string ls_path,ls_filename,ls_jhdh (j?"E !  
long ll_num,ll_count,rtn ^zSi}0oCL  
blob ole_blob gRtYBqi0u  
ll_num=dw_lb.getrow() LFEC.XOn)  
if ll_num>0 then ls_jhdh=dw_lb.object.ct_njhdh[ll_num] DgAr[J Z  
select count(*) into :ll_count from sj_jh_jhfjb where Qf()93m;  
ct_jhdlxbh='1' and ct_jhdh=:ls_jhdh and ct_jdlxbh=:is_jdlx; Id{ze]y+O  
if ll_count>0 then 'Nc2Bsb:h?  
rtn=messagebox("提示","是否要修改此附件",question!,yesno!,1) / YD\ e  
if rtn=1 then D[;RG&$  
SELECTBLOB ct_jhfjnr INTO le_blob from sj_jh_jhfjb where Z<[GVzT-*  
ct_jhdlxbh='1' and ct_jhdh=:ls_jhdh and ct_jdlxbh=:is_jdlx; NOp958,D  
ole_1.objectdata =ole_blob _t 6187bw  
If ole_1.activate(offsite!) <> 0 Then BrYn1`j  
Messagebox("OLE Activate","不能激活") ug0[Mt:  
Return -1 ?)Ti#;]U@ #p#分页标题#e# 
end If / lM7lZx  
end if q3Rc9  
else N7fKx  
messagebox("提示","没有附件") eC1%y&\  
end if HN'&xFv  
end if ~E&Dwz4;z  
（二）在vb中的处理 ?g9Ji%  
在vb中处理大对象，一般可以用OO4O(oracle objects for ('n!D  
ole)来处理大对象。这里介绍一种不用0040处理大对象blob的方法。 (HtM ~[  
下面这段程序可以将一个文件（文本文件，doc文件，图象文件等）保存到数据库中，并可以将其从数据库读出 8(@a[w@  
需要两个commandbutton cc\ OVGU  
cmd1 名称 cmdsave caption 保存 ]kf|wM  
cmd2 名称 cmdread caption 读取 KbyTH 2~!  
一个cmddialog控件 ",it @xQ  
同时需要创建一张表t_demo(字段id 类型 number,;字段text 类型 blob;) Lm0-!x.  
exmple 3. Cd'YjQ`nG  
Option Explicit }?(z8R:'9f  
Dim rn As ADODB.Connection 0hr.O"0  
Public Function CreateDataSource(DataSource As String, UserID e:s}>7=0  
As String, Password As String) As Boolean Hh=9Tn8  
On Error GoTo DbConErr: $0 X-Up:#  
Set rn = New ADODB.Connection w;9,7QWx  
With rn \tc/'z <  
.ConnectionString = "Provider=OraOledb.Oracle.1;" & _ O,M!Co$  
"password=" & Password & ";" & _ .=j49m4  
"User ID =" & UserID & ";" & _ |qHVi>  
"Data Source=" & DataSource & ";" & _ :!bXAJ}gc  
"Locale Identifier=2052" |2{\R$8!  
.Open ochs[ )  
End With WnHFv$  
CreateDataSource = True {Y NW  
Exit Function T,&f =  
DbConErr: j=teHIM.  
CreateDataSource = False }B{;^8;  
End Function DVxapaXfw  
-`=c.lh:aw  
Private Sub cmdRead_Click() X m_QGn  
Dim rs As New ADODB.Recordset +YN{fTVu  
rs.ActiveConnection = rn -,?y"1a  
rs.LockType = adLockOptimistic 'IxlHT8s  
rs.CursorLocation = adUseClient B6"$!  
rs.Source = "select * from t_demo" wW GirBX  
rs.Open .('_k*a  
ComDlgDir.DialogTitle = "保存文件" n 9b%FT  
ComDlgDir.Filter = "*.*" :J2Ib  
ComDlgDir.ShowSave tq7 F  
Call BlobToFile(rs.Fields("text"), ComDlgDir.filename) Y_rzf9  
Set rs = Nothing plFly^q^  
Exit Sub ] HHOR)S\  
Set rs = Nothing d)$n:v  
End Sub ?!D&Su  
T6qA6  
Private Sub cmdsave_Click() F>a//n3  
Dim rs As New ADODB.Recordset Y%g!?  
rs.ActiveConnection = rn /a H_(  
rs.LockType = adLockOptimistic gWNRzd&  
rs.CursorLocation = adUseClient o<2e%pxwt  
rs.Source = "select * from t_demo" 7!fD?K?VU  #p#分页标题#e#
rs.Open e%; u,!PK+  
rs.AddNew kb= e)pp  
ComDlgDir.DialogTitle = "选取文件" (TOGv[Lc  
ComDlgDir.ShowOpen (lP"feJo0I  
rs.Fields("id").Value = 1 U-W:uH  
If ComDlgDir.filename <> "" Then F4%i;<)b)  
Call FileToBlob(rs.Fields("text"), ComDlgDir.filename) IBCPm&/4  
rs.Update guQRk9|eF  
End If pjkSk#Pl  
Set rs = Nothing BmRN;e7,  
Exit Sub Xsut2N-  
Set rs = Nothing V"v%Z]  
End Sub |dg#4  
9ngdE}t$  
Private Sub Form_Load() R65`Z/5Zt|  
If Not CreateDataSource("sid", "systemp", "manager") Then B!t# p6  
MsgBox "Connection failure!" A(.}uilvq,  
End If ^^o#;84  
End Sub /Us=#f]#  
:0ygfr  
fld As ADODB.Field, filename As String, Optional ChunkSize As v:[{IV{  
Long = 8192) kBeFimo  
Dim fnum As Integer, bytesleft As Long, bytes As Long fp#_&s K  
Dim tmp() As Byte Kp*|"$MA'  
If (fld.Attributes And adFldLong) = 0 Then LR:B@lR)  
Err.Raise 1001, , "field doesn't support the GetChunk method." )W]raw7  
ZI!nGWu  
End If .7yW;-d  
If Dir$(filename) = "" Then Err.Raise 53, , "File not found" ;#Q {V7V  
fnum = FreeFile MK%qS,c8>R  
Open filename For Binary As fnum %>8EOE/$  
bytesleft = LOF(fnum) @K~R?AD  
Do While bytesleft LzXDa?)~  
bytes = bytesleft "Xbf"0C(7  
If bytes > ChunkSize Then bytes = ChunkSize :*j2`wfUy  
ReDim tmp(1 To bytes) As Byte DpM9csE  
Get fnum, , tmp ^EA|W6c]  
fld.AppendChunk tmp ~$sWl!#t  
bytesleft = bytesleft - bytes ?G:3IO7 ~  
Loop :8@NT  
Close #fnum p_3mM?lq  
End Sub & &R^DG  
q%m. op$7  
Sub BlobToFile(fld As ADODB.Field, filename A q'$)U!CgCL  
#TnHF`<