处理CLOB字段的动态PL_SQL

文章作者 100test 发表时间 2007:09:25 12:53:52
来源 100Test.Com百考试题网

动态PL/SQL,对CLOB字段操作可传递表名table_name，表的唯一标志字段名field_id，clob字段名field_name，记录号v_id，开始处理字符的位置v_pos，传入的字符串变量v_clob
修改CLOB的PL/SQL过程：0updateclob
create or replace procedure 0updateclob(
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 :=’0select ’||field_name||’ from ’||table_name||’ where ’||field_id||’= :id for 0update ’.
--initialize buffer with data to be inserted or 0updated
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 :=’0select ’||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.
/

用法说明：
用0select 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.