动态SQL的使用

动态SQL的使用

        Oracle实际上比SQL Server好一些，但绝对没有传说中那么强。这是这些天一识Oracle庐山真面目的感受。看来好多事情多如此，听的要比见到的完美。接着第一句说，Oracle的动态SQL就很棒，我专门学习了一下。记录如下。

先说说动态SQL是什么，看这句熟悉的：
select * from a_table where a_variable=a_declarevalue;
再写句动态的：
select * from a_table where a_variable=:a_dynamicvalue;
两句的区别很明显，后者多一个占位符，这个以冒号开始的变量可以灵活地执行不同条件的where语句。这是动态SQL语句的优势，接下来的功能就是它的独门功夫了--执行DDL,DCL语句。

动态SQL的执行
1 EXECUTE IMMEDIATE语句

EXECUTE IMMEDIATE dynamic_string

[INTO {define_variable[,define_variable]…| record}]

[USING [IN | OUT | IN OUT] bind_argument[,[IN | OUT / IN OUT]

bind_argumnet]…]

[{RETURNING | RETURN} INTO bing_argument[,bind_argument]…];

下面是它的使用

处理DDL操作(CREATE,ALTER,DROP)

CREATE OR REPLACE PROCEDURE drop_table(table_name VARCHAR2)

IS

  Sql_statemet VARCHAR2(100);

BEGIN

  Sql_statement:=’DROP TABLE’ || table_name;

  EXECUTE IMMEDIATE sql_statement;

END;

/

建立过程drop_table后，调用如下：

SQL> exec drop_table(‘worker’) 

处理DCL操作(GRANT REVOKE)

SQL> conn system/manager

CREATE OR REPLACE PROCEDURE grant_sys_priv(priv VARCHAR2,username

VARCHAR2)

IS

  Sql_stat VARCHAR2(100);

BEGIN

  Sql_stat:=’GRANT “ || priv|| ’ TO ’|| username;

EXECUTE IMMEDIATE sql_stat;

END;

/

调用

SQL> exec grant_sys_priv(‘CREATE SESSION’,’SCOTT’)

处理DML操作(INSERT UPDATE DELETE)

如果DML语句带有占位符，那么在E I语句中则要带USING子句
如果DML语句带有RETURNING子句，那么E I语句中要带有RETURNINGINTO子句

例子，处理单行查询：
DECLARE
  sql_stat VARCHAR2(100);
  emp_record tbl%ROWTYPE;
BEGIN
  sql-stat:='SELECT * FROM tbl WHERE tblno=:no';
  EXECUTE IMMEDIATE sql_stat INTO emp_record USING &1;
  dbms_output.put_line(emp_record.ename||emp_record.sal);
END;
/

2 使用OPEN-FOR，FETCH  和 CLOSE 语句处理多行查询

动态处理SELECT语句步骤：定义游标->打开游标->循环提取数据->关闭游标
定义：
TYPE cursortype IS REF CURSOR;
cursor_variable cursortype;
打开：
OPEN cursor_variable FOR dynamic_string
[USING bind_argument[,bing_argument]...];
提取：
FETCH cursor_variable INTO {var1[,var2]...| recor_var};
关闭：
CLOSE cursor_variable;

显示特定部门雇员姓名和工资
DECLARE
  TYPE empcurtype IS REF CURSOR;
  emp_cs empcurtype;
  emp_record emptable%ROWTYPE;
  sql_stat VARCHAR2(100);
BEGIN
  sql_stat:='select * from emptable where deptno=:dno';
  OPEN emp_cs FOR sql_stat USING &dno;
  LOOP
    FETCH emp_cs INTO emp_record;
    EXIT WHEN emp_cs%NOTFOUND;
    dbms_output.put_line(emp_record.ename||emp_record.sal);
  END LOOP;
  CLOSE emp_cs; 
END;
/

3 使用批量动态SQL(9i)
BULK子句可以加快批量数据的处理速度。有三种语句支持BULK子句的方法。
1 使用EXECUTE IMMEDIATE，语法为：
EXECUTE IMMEDIATE dynamic_string
[BULK COLLECT INTO define_variable[,define_variable …]]
[USING [IN | OUT | IN OUT] bind_argument[,[IN | OUT / IN OUT]

bind_argumnet]…]
[{RETURNING | RETURN}
BULK COLLECT INTO return_variable[,return_variable…]]; 

用于DML处理多行子句，例子：为某部门所有员工增加%比的工资
DECLARE ……
BEGIN
  sql_stat:='UPDATE emptbl SET sal=sal*(1+:percent/100)' ||
                'WHERE deptno=:dno' ||
                'RETURNING ename,sal INTO :name,:salary';

  EXECUTE IMMEDIATE sql_stat USING &percent,&dno
    RETURNING BULK COLLECT INTO ename_table,sal_table;

  FOR i IN 1.ename_table.COUNT LOOP
    dbms_output.put_line( ename_table(i) ||sal_table(i) );
  END LOOP;

END；
/

2 FETCH语句，语法为
FETCH dynamic_cursor
BULK COLLECT INTO define_variable[,dyfine_variable ...];

3 FORALL语句。适用于DML，不适用于动态的SELECT语句。FORALL语句要与E I 结合使用。语法为

FORALL index IN lower bound..upper bound

EXECUTE IMMEDIATE dynamic_string

USING bind_argument | bind_argumnet(index)

[,bind_argument | bind_argumnet(index)]…

[{RETURNING | RETURN} BULK COLLECT

INTO bind_argument[,bind_argument…]];

***************************************************************
动态SQL和PL/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比以前可能用到的更容易并且更高效.当意图执行动态语句时，适当地处理异常更加重要.应该关注于捕获所有可能的异常.