oracle中对clob字段的操作

1.clob字段插入值

create   or   replace   procedure  updateclob(
table_name  in   varchar2 ,
field_id  in   varchar2 ,
field_name  in   varchar2 ,
v_id  in   number ,
v_pos  in   number ,
v_clob  in   varchar2 )
is
-- -------------------
/**/ /*动态PL/SQL,对CLOB字段操作可传递表名table_name，
表的唯一标志字段名field_id，
clob字段名field_name
记录号v_id，
开始处理字符的位置v_pos，
传入的字符串变量v_clob
修改CLOB的PL/SQL过程：updateclob

在插入或修改以前，先把其它字段插入或修改，CLOB字段设置为空empty_clob()，
　　然后调用以上的过程插入大于2048到32766个字符。
　　如果需要插入大于32767个字符，编一个循环即可解决问题。

*/
-- ------------------
lobloc clob;
c_clob  varchar2 ( 32767 );
amt binary_integer;
pos binary_integer;
query_str  varchar2 ( 1000 );
begin
pos: = v_pos * 32766 + 1 ;
amt : =  length(v_clob);
c_clob: = v_clob;
query_str : = ' select  ' || field_name || '  from  ' || table_name ||   '
where  ' || field_id || ' = :id for update  ' ;
-- initialize buffer with data to be inserted or updated
EXECUTE  IMMEDIATE query_str  INTO  lobloc USING v_id;
-- from pos position, write 32766 varchar2 into lobloc
dbms_lob.write(lobloc, amt, pos, c_clob);
commit ;
exception
when  others  then
rollback ;
end ;
/

 2.读clob

create   or   replace   function  getclob(
table_name  in   varchar2 ,
field_id  in   varchar2 ,
field_name  in   varchar2 ,
v_id  in   number ,
v_pos  in   number )  return   varchar2
is
-- ----------------------
/**/ /*用法说明：
　　用select getclob(table_name,field_id,field_name,v_id,v_pos) as
　　partstr from dual;
　　可以从CLOB字段中取2000个字符到partstr中，
　　编一个循环可以把partstr组合成dbms_lob.getlength(field_name)长度的目标字符串。
*/
-- ----------------------
lobloc clob;
buffer  varchar2 ( 32767 );
amount  number  : =   2000 ;
offset  number  : =   1 ;
query_str  varchar2 ( 1000 );
begin
query_str : = ' select  ' || field_name || '  from  ' || table_name || '
where  ' || field_id || ' = :id  ' ;
-- initialize buffer with data to be found
EXECUTE  IMMEDIATE query_str  INTO  lobloc USING v_id;
offset: = offset + (v_pos - 1 ) * 2000 ;
-- read 2000 varchar2 from the buffer
dbms_lob. read (lobloc,amount,offset,buffer);
return  buffer;
exception
when  no_data_found  then
return  buffer;
end ;