一个好老好老的老程序员了。
全部博文（915）
分类： Oracle
2011-12-07 22:55:58
目前在Oracle数据库存储过程研发过程中，遇到需要从某张表中读取存储过程名并进行动态执行的情况，经查找资料，制作成DEMO，并通过测试，现共享下，以备其他同事遇到此种情况时参考。
/*动态执行存储过程DEMO*/
DECLARE
v_Procedure_Name VARCHAR2(320); --存储过程名
v_Input_Parameter1 VARCHAR2(320); --传入参数1
v_Input_Parameter2 VARCHAR2(320); --传入参数2
v_Return_Int INTEGER; --接收返回值
v_Return_String VARCHAR2(320); --接收返回值
v_Sql_Str VARCHAR2(320); --动态执行SQL语句
BEGIN
/*获取存储过程名，可以从数据库中动态读取需要执行的存储过程，本DEMO直接赋值*/
v_Procedure_Name := 'Wms_Application_Out_p.Application_Out_List_Refuse(:i_Str1,:i_Str2,:o_Return_Int,:o_Return_String)';
/*本DEMO假定需要调用的存储过程有两个传入参数和两个传出参数*/
v_Input_Parameter1 := 'test01'; --传入参数1,在实际应用中根据具体情况机型赋值
v_Input_Parameter2 := 'test01'; --传入参数2,在实际应用中根据具体情况机型赋值
/*动态生成需要执行存储过程的SQL语句*/
v_Sql_Str := 'BEGIN ' || v_Procedure_Name || '; END;';
/*执行该SQL语句*/
EXECUTE IMMEDIATE v_Sql_Str
USING IN v_Input_Parameter1, IN v_Input_Parameter2, OUT v_Return_Int, OUT v_Return_String; --参数类型和传递顺序必须与存储过程中的保持一致
/*输出返回值*/
Dbms_Output.Put_Line(v_Return_Int || v_Return_String);
END;
/*动态执行函数DEMO*/
DECLARE
v_Function_Name VARCHAR2(320); --函数名
v_Input_Parameter1 VARCHAR2(320); --传入参数1
v_Return_String VARCHAR2(320); --接收返回值
v_Sql_Str VARCHAR2(320); --动态执行SQL语句
BEGIN
/*获取函数名，可以从数据库中动态读取需要执行的函数，本DEMO直接赋值*/
v_Function_Name := 'Return_Str_f(:i_Str1)';
/*本DEMO假定需要调用的函数有1个传入参数*/
v_Input_Parameter1 := 'test01'; --传入参数1,在实际应用中根据具体情况机型赋值
/*动态生成需要执行函数的SQL语句*/
v_Sql_Str := 'begin :v_Return_String := ' || v_Function_Name || '; end;';
/*执行该SQL语句*/
EXECUTE IMMEDIATE v_Sql_Str
USING OUT v_Return_String, IN v_Input_Parameter1; --接收返回值必须在前，传入参数类型和传递顺序必须与函数中保持一致
/*输出返回值*/
Dbms_Output.Put_Line(v_Return_String);
END;
/*所调用函数*/
CREATE OR REPLACE FUNCTION Return_Str_f(i_Str1 VARCHAR2) RETURN VARCHAR2 IS
v_Sql_Str VARCHAR2(320);
v_Str1 VARCHAR2(320);
BEGIN
/*生成动态执行SQL*/
v_Sql_Str := 'SELECT ''' || i_Str1 || ''' FROM DUAL';
EXECUTE IMMEDIATE v_Sql_Str
INTO v_Str1; --接收返回值
/*输出返回结果*/
Dbms_Output.Put_Line('v_str1=' || v_Str1);
RETURN v_Str1;
END;
相关资料：
Oracle PL/SQL中动态执行SQL EXECUTE IMMEDIATE
在plsql中经常遇到sql语句是在过程中动态生成的，这个时候可以用EXECUTE IMMEDIATE来执行生成的sql语句。转一个javaeye（貌似他也是转的，找不到出处）上的EXECUTE IMMEDIATE用法。
EXECUTE IMMEDIATE代替了以前Oracle8i中DBMS_SQL package包.它解析并马上执行动态的SQL语句或非运行时创建的PL/SQL块.动态创建和执行SQL语句性能超前，EXECUTE IMMEDIATE的目标在于减小企业费用并获得较高的性能，较之以前它相当轻易编码.尽管DBMS_SQL仍然可用，
但是推荐使用EXECUTE IMMEDIATE,因为它获的收益在包之上。
使用技巧
1. EXECUTE IMMEDIATE将不会提交一个DML事务执行，应该显式提交
假如通过EXECUTE IMMEDIATE处理DML命令，那么在完成以前需要显式提交或者作为EXECUTE IMMEDIATE自己的一部分. 假如通过EXECUTE IMMEDIATE处理DDL命令,它提交所有以前改变的数据
2. 不支持返回多行的查询,这种交互将用临时表来存储记录(参照例子如下)或者用REF cursors.
3. 当执行SQL语句时，不要用分号，当执行PL/SQL块时，在其尾部用分号.
4. 在Oracle手册中，未具体覆盖这些功能。下面的例子展示了所有用到Execute immediate的可能方面.希望能给你带来方便.
5. 对于Forms开发者,当在PL/SQL 8.0.6.3.版本中，Forms 6i不能使用此功能.
EXECUTE IMMEDIATE用法例子
1. 在PL/SQL运行DDL语句
begin
execute immediate 'set role all';
end;
2. 给动态语句传值(USING 子句)
declare
l_depnam varchar2(20) := 'testing';
l_locvarchar2(10) := 'Dubai';
begin
execute immediate 'insert into dept values(:1, :2, :3)'
using 50, l_depnam, l_loc;
commit;
end;
3. 从动态语句检索值(INTO子句)
declare
l_cntvarchar2(20);
begin
execute immediate 'select count(1) from emp'
into l_cnt;
dbms_output.put_line(l_cnt);
end;
4. 动态调用例程.例程中用到的绑定变量参数必须指定参数类型.黓认为IN类型,其它类型必须显式指定
declare
l_routin varchar2(100) := 'gen2161.get_rowcnt';
l_tblnam varchar2(20) := 'emp';
l_cntnumber;
l_status varchar2(200);
begin
execute immediate 'begin ' l_routin '(:2, :3, :4); end;'
using in l_tblnam, out l_cnt, in out l_status;
if l_status != 'OK' then
dbms_output.put_line('error');
end if;
end;
5. 将返回值传递到PL/SQL记录类型;同样也可用%rowtype变量
declare
type empdtlrec is record (empnonumber(4),
enamevarchar2(20),
deptnonumber(2));
empdtl empdtlrec;
begin
execute immediate 'select empno, ename, deptno '
'from emp where empno = 7934'
into empdtl;
end;
6. 传递并检索值.INTO子句用在USING子句前
declare
l_deptpls_integer := 20;
l_nam varchar2(20);
l_loc varchar2(20);
begin
execute immediate 'select dname, loc from dept where deptno = :1'
into l_nam, l_loc
using l_dept ;
end;
7. 多行查询选项.对此选项用insert语句填充临时表，用临时表进行进一步的处理,也可以用REF cursors纠正此缺憾.
declare
l_sal pls_integer := 2000;
begin
execute immediate 'insert into temp(empno, ename) '
'select empno, ename from emp '
'wheresal :1'
using l_sal;
commit;
end;
对于处理动态语句,EXECUTE IMMEDIATE比以前可能用到的更轻易并且更高效.当意图执行动态语句时，适当地处理异常更加重要.应该关注于捕捉所有可能的异常.
