把string拼接成clob类型

最新推荐文章于 2024-05-29 07:08:37 发布

cuichao5297

最新推荐文章于 2024-05-29 07:08:37 发布

阅读量295

点赞数

不足之处大家多补充[@more@]

create or replace procedure p_public_clob(table_name varchar2,
pk number,
CONTENT_1 varchar2,
CONTENT_2 varchar2,
CONTENT_3 varchar2,
CONTENT_4 varchar2,
CONTENT_5 varchar2,
CONTENT_6 varchar2) as
ls_sql varchar2(4000);
lc_clob clob; --使用clob链接字符串参数
/*-------------------------/
/ 把string拼接成clob类型 /
/ author：yaoronghui
/ date: 2009-11-16--17 /
modify :
/ 功能描述： /
/ 参数:对动态表按照主键进行dml处理/
/问题：varchar2无法存放4000字符/
/-------------------------*/
begin
--根据传递的主键 pk修改参数表table_name中CONTENT=CONTENT_1||CONTENT_2...
ls_sql := 'update ' || table_name ||
' set content = empty_clob() where UPLOADID = :1 returning content into :lc_clob';
execute immediate ls_sql
using in pk, out lc_clob;

--change access
if sqlcode = 0 then
--append the lc_clob
dbms_lob.append(lc_clob, to_clob(CONTENT_1));
dbms_lob.append(lc_clob, to_clob(CONTENT_2));
dbms_lob.append(lc_clob, to_clob(CONTENT_3));
dbms_lob.append(lc_clob, to_clob(CONTENT_4));
dbms_lob.append(lc_clob, to_clob(CONTENT_5));
dbms_lob.append(lc_clob, to_clob(CONTENT_6));
commit;
else
rollback;
end if;
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/450962/viewspace-1028781/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/450962/viewspace-1028781/