Dict.CN 在线词典, 英语学习, 在线翻译

都市淘沙者

荔枝FM Everyone can be host

统计

留言簿(23)

积分与排名

优秀学习网站

友情连接

阅读排行榜

评论排行榜

处理CLOB字段的动态PL/SQL (zhuan)

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

调用PL/SQL过程的方法:
    SQL*PLUS        SQL> EXEC 过程名[(参数)];
    Procedure Builder    PL/SQL>过程名[(参数)];     
    JAVA        CALL { 过程名[(参数)] };
    PHP        BEGIN { 过程名[(参数)] } END;

posted on 2008-04-11 11:40 都市淘沙者 阅读(893) 评论(0)  编辑  收藏 所属分类: Oracle/Mysql/Postgres/


只有注册用户登录后才能发表评论。
网站导航: