oracle 存储过程 动态sql语句

一、在oracle项目开发中越到问题：

在利用ODP向oracle中插入数据时，如果这样写：
  insert into clobTable (id, story) values(1,'....'); 其中story为clob类型
  如果story的长度大于2000字节，直接插入将出现 ORA-01704:文字字符串过长 的错误。
解决方案：
      方案一、利用参数
  insert into clobTable (id, story) values(1,:story);
  OracleParameter param = new OracleParameter("story", OracleDbType.Clob);
  param.Direction = ParameterDirection.Input;
  param.Value = str;
  cmd.Parameters.Add(param);
      方案二、利用存储过程
  这个就不用说了，写个存储过程，把参数传入即可。

二、解决方法

oracle 中，如下操作：

insert into table values(a,3,'一个长文章');

ORA-01704: 文字字符串过长!

虽然在表中已经是clob字段，足够存储4G的内容，但是如果存的是特别长的字符串，超过4000就会报错。

解决方法：

方法一：就写个存储过程，然后用参数传过去就没问题了。

declare

v_clob clob :='一个长文章';

begin
  insert into table values(a,3,:clob);
 end;

这样就可以插进去了,所以我觉得应该是隐式转换,oracle默认把字符串 转换成 varchar2 类型,
 而这个字符串的长度,又比4000大 所以会报ora-01704错误.

真实环境用的存储过程：

CREATE OR REPLACE PROCEDURE "BAI"."LOGMNRTXT" (tab1 in varchar2,scns in number,timestamps in varchar2,seg_owner in varchar2,
table_name in varchar2,session_info in varchar2,sql_redo in clob,ssession in varchar2,serial in varchar2,operation in varchar2) is

str varchar(1000);
 --注意tab1必须要更改，发现原来的logmnr_contents20140524中的sql_redo为varchar，需要改成clob
begin

str:= 'insert into '||tab1||' values(:1,:2,:3,:4,:5,:6,:7,:8,:9)';
   execute immediate str using scns,to_date(timestamps,'yyyy-MM-dd hh24:mi:ss'),seg_owner,table_name,session_info,sql_redo,ssession,serial,operation;
end logmnrtxt;
/

方法二：很复杂，其实没必要这么用，主要是为了学习高级的存储过程写法

创建存储过程：
CREATE OR REPLACE PROCEDURE p_In_Clob(pId IN NUMBER,outVar IN VARCHAR2)
IS
  text_Var  CLOB;
  amount_Var  NUMBER;
  offset_Var  NUMBER;
BEGIN
  INSERT INTO test VALUES(pId,empty_clob());
  SELECT text INTO text_var FROM test
    WHERE id=pId;
  amount_var:=LENGTH(outVar);
  offset_var:=1;
  DBMS_LOB.WRITE(text_Var,amount_Var,offset_Var,outVar);
  COMMIT;
END p_In_Clob;

调用存储过程：
begin
  p_In_Clob(1,'...');
end;

三、oracle 存储过程使用动态sql

Oracle存储过程使用动态SQL 有两种写法：用 DBMS_SQL 或 execute immediate，建议使用后者。试验步骤如下：

1. DDL和DML （注意DDL中可以用拼接字符串的方法用来create table或drop table，在DML中，类似于insert则不可以直接用execute immediate中直接拼接的方法，必须用using传递参数）

     /*** DDL ***/
     begin
         EXECUTE IMMEDIATE 'drop table temp_1';
         EXECUTE IMMEDIATE 'create table temp_1(name varchar2(8))';
     end;  

     /*** DML ***/
     declare
         v_1 varchar2(8);
         v_2 varchar2(10);
         str varchar2(50);
     begin
         v_1:='测试人员';   --这里的v_1,v_2可以是直接存储过程中传过来的参数
         v_2:='北京';
         str := 'INSERT INTO test (name ,address) VALUES (:1, :2)';
         EXECUTE IMMEDIATE str USING v_1, v_2;
         commit;
     end;  

2. 返回单条结果

例1：

     declare
         str varchar2(500);
         c_1 varchar2(10);
         r_1 test%rowtype;
     begin
         c_1:='测试人员';
         str:='select * from test where name=:c WHERE ROWNUM=1';
         execute immediate str into r_1 using c_1;
         DBMS_OUTPUT.PUT_LINE(R_1.NAME||R_1.ADDRESS);
     end ; 

例2：

     declare
         v_col_name varchar2(30) := 'name'; --字段名 name 用变量来表示
         v_user_name  varchar2(30); --用户名称
         v_user_age  integer;       --用户年龄
         v_sql_str  varchar2(500);  --动态 SQL 语句
     begin
         v_sql_str := 'select '||v_col_name||',age from users --字段名后面不能紧随 into 到变量了
                        where age between :start_age and :end_age and rownum=1'; --两个命名参数  ，注意拼接的方法

         --用 execute immediate 动态执行 SQL 语句
         --注意其后的 into 字段值到变量的写法，还有 using 来代入参数
         execute immediate v_sql_str into v_user_name,v_user_age using 18,25;   

         dbms_output.put_line('第一个符合条件的用户：'||v_user_name||'，年龄：'||v_user_age);
     end;  

3. 返回结果集

     CREATE OR REPLACE package pkg_test as
         /* 定义ref cursor类型
         不加return类型，为弱类型，允许动态sql查询，
         否则为强类型，无法使用动态sql查询;
         */
         type myrctype is ref cursor;  

         --函数申明
         function get(intID number) return myrctype;
     end pkg_test;
     /  

     CREATE OR REPLACE package body pkg_test as
     --函数体
         function get(intID number) return myrctype is
             rc myrctype; --定义ref cursor变量
             sqlstr varchar2(500);
         begin
             if intID=0 then
                 --静态测试，直接用select语句直接返回结果
                 open rc for select id,name,sex,address,postcode,birthday from
     student;
             else
                 --动态sql赋值，用:w_id来申明该变量从外部获得
                 sqlstr := 'select id,name,sex,address,postcode,birthday from student
     where id=:w_id';
                 --动态测试，用sqlstr字符串返回结果，用using关键词传递参数
                 open rc for sqlstr using intid;
             end if;  

             return rc;
         end get;  

     end pkg_test;
     /  

四、存储过程一个总结的非常全的博客

http://www.cnblogs.com/chinafine/archive/2010/07/12/1776102.html