ORACLE动态SQL语句

问题的提出

我们经常需要运行可变化的SQL语句，这种通常称为动态SQL，在ORACLE中执行动态的SQL语句，需要了解ORACLE的动态SQL语句的相关规定。
SQL动态语句是由程序或者存储过程生成的SQL语句，这种语句的特点是，不能简单的去运行。因为它不是标准的，其中含有变化的成分，因此ORACLE提供了一个执行动态SQL语句的模式：
EXECUTE IMMEDIATE
这句话的含义是立即执行，而不先去进行语法检查，在执行过程中可能会发生逻辑错误，则通过错误中断进行处理。

一种动态SQL的方法

/***
  DBMS_OUTPUT.PUT_LINE(uSQL);

  p_Money_TJ

  CALL p_Money_TJ();
  测试在SQL*PLUS下进行
  VAR r refcursor;
  Exec p_Money_TJ(:r);
  print r;
***/
CREATE OR REPLACE PROCEDURE p_Money_TJ(p_cur out sys_refcursor)
AS

-- 变量定义

Cursor CC IS
SELECT FTYPE FROM APP_MONEY GROUP BY FTYPE;
uSQL VARCHAR2(32600);
BEGIN
  uSQL :=         'BEGIN OPEN :p_cur for ';
  uSQL := uSQL || 'SELECT FMID 会员账号,F_GETXM(FMID) 会员姓名';
  FOR C IN CC LOOP
    uSQL := uSQL || ',SUM(CASE WHEN FTYPE = '''||C.FTYPE||''' THEN FMONEY END) '||C.FTYPE;
  END LOOP;
  uSQL := uSQL || ' FROM APP_MONEY GROUP BY FMID';
  uSQL := uSQL || '; END;';

  EXECUTE IMMEDIATE uSQL USING p_cur;
END;

使用动态游标

1、声明动态游标

TYPE cc_type IS REF CURSOR;

2、声明游标变量

my_cursor cc_type;

3、使用游标

n_deptno:=20;
uSQL := 'SELECT empno,ename FROM emp WHERE deptno = '||n_deptno;
OPEN my_cursor FOR uSQL;
LOOP 
  FETCH my_cursor INTO n_empno,v_ename;
  EXIT WHEN my_cursor%NOTFOUND;
  --用n_empno,v_ename做其它处理
  --....
END LOOP;
CLOSE my_cursor;

4、小结
动态游标可以胜任大多数动态SQL的需求了，使用简洁方便。

使用 EXECUTE IMMEDIATE

最早大家都使用DBMS_SQL包，但是太太麻烦了，最终都放弃了。但是自从有了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_loc    varchar2(10) := 'Dubai';
begin
  execute immediate 'insert into dept values  (:1, :2, :3)'
  using 50, l_depnam, l_loc;
  commit;
end;

3. 从动态语句检索值(INTO子句)

declare
  l_cnt    varchar2(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_cnt      number;
  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 (empno  number(4),ename  varchar2(20),deptno  number(2));
  empdtl empdtlrec;
begin
  execute immediate 'select empno, ename, deptno '||'from emp where empno = 7934'
  into empdtl;
end;

6. 传递并检索值

INTO子句用在USING子句前

declare
  l_dept    pls_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 ' ||
                   '          where  sal > :1'
  using l_sal;
  commit;
end;

对于处理动态语句,EXECUTE IMMEDIATE比以前可能用到的更容易并且更高效.当意图执行动态语句时，适当地处理异常更加重要.应该关注于捕获所有可能的异常.
Oracle 动态SQL
Oracle 动态SQL有两种写法：用 DBMS_SQL 或 execute immediate，建议使用后者。试验步骤如下：

1. DDL 和 DML

/*** 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_2:='北京';  
    str := 'INSERT INTO test (name ,address) VALUES (:1, :2)';  
    EXECUTE IMMEDIATE str USING v_1, v_2;  
    commit;  
end;  

2. 返回单条结果

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 ;  

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;