oracle 修改 clob字段，查询clob字段

 

给你处理clob的方法
处理CLOB字段的动态PL/SQL
2001-03

动态PL/SQL,对CLOB字段操作可传递表名table_name，表的唯一标志字段名field_id，clob字段名field_name，记录号v_id，开始处理字符的位置v_pos，传入的字符串变量v_clob

修改CLOB的PL/SQL过程：updateclob

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
          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;
/


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

查询CLOB的PL/SQL函数：getclob


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
          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;
/

用法说明：

用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)长度的目标字符串。