如何处理CLOB字段值超过4000字节时提示：“ORA-01704:文字字符串过长”的错误

如何处理CLOB字段值超过4000字节时提示：“ORA-01704:文字字符串过长”的错误

往oracle函CLOB、LONG字段类型的数据表插入值超过4000字节时，在执行INSERT　 INTO提示：ORA-01704:文字字符串过长错误，这种情况下，如果想用SQL实现的话，可以通过ORACLE存储过程实现。

-- 处理方法一：用EXECUTE IMMEDIATE 实现

-- ASQL：带参数的INSERT　INTO　语句
-- ALongVar1 : 参 数值，大于4000字节
CREATE   OR   REPLACE   PROCEDURE  EXEC_SQL1(ASQL  varchar2 , ALongVar1 clob)
AS
BEGIN
EXECUTE  IMMEDIATE ASQL USING ALongValue;
END  EXEC_SQL1;


-- 处理方法二：用Dbms_sql接口实现

-- ASQL：带参数的INSERT　INTO　语句
-- ALongVar1 : 参 数值，大于4000字节
CREATE   OR   REPLACE   PROCEDURE  EXEC_SQL(ASQL clob, ALongValue clob)
AS
The_c1  Integer ; 
The_result  Integer ; -- dml_sql_result 
BEGIN
  The_C1 : = Dbms_sql.open_cursor; 
  Dbms_sql.parse(the_C1, ASQL, DBMS_SQL.NATIVE); 
  DBMS_SQL.BIND_VARIABLE
    (The_c1,  ' :LongValue ' , ALongValue);
  The_result: = Dbms_sql. execute (The_c1); 
  Dbms_sql.close_cursor(The_C1);
END  EXEC_SQL;

 DELPHI调用例子：

    AdoQuery1.Close ;
    AdoQuery1.Parameters.Clear ;
    AdoQuery1.SQL.Clear ;
    AdoQuery1.SQL.Add('{call exec_sql(?,?)}') ;
    AdoQuery1.Parameters.CreateParameter('asql',ftOraClob,pdinput, 30,'') ;
    AdoQuery1.Parameters.CreateParameter('alongvalue',ftOraClob,pdinput, 30,'') ;

　--语句
    AdoQuery1.Parameters.ParamByName('asql').Value :='INSERT INTO TAB(ID, CLOBFLD) VALUES(1, :CLOBVALUE)';

    --值
    AdoQuery1.Parameters.ParamByName('CLOBVALUE').Value :='CLOBVALUE....';
    AdoQuery1.ExecSQL ;