--Oracle clob 操作
-- Created on 2015/4/8 by TianPing
declare
-- Local variables here
v_clob1 Clob;
v_clob2 Clob;
v_amount Int; --长度
v_offset Int; --偏移量
str varchar2(100);
Begin
--初始或清空clob变量
dbms_lob.createtemporary(v_clob1,True);
dbms_lob.createtemporary(v_clob2,True);
--向clob变量写入字符
dbms_lob.write(v_clob1,30,1,'123456789012345678901234567890');
dbms_output.put_line(v_clob1);
--初始或清空clob字段
Update test_lob Set clob_test=empty_clob() Where lob_id=1;
--写入clob字段。要先取得clob定位器并锁定记录,缓冲区最大长度32767,超 过要多次写入
Select clob_test Into v_clob2 From test_lob Where lob_id=1;
-- Update test_lob Set clob_test=v_clob1 Where lob_id=1;
dbms_lob.write(v_clob2,26,1,'abcdefghijklmnopkrstuvwxyz');
--取clob字段定位器
Select clob_test Into v_c