Oracle 高级特性

本地动态SQL
1.执行非查询语句和PL/SQL块

DECLARE
  v_SQLString  VARCHAR2(200);
  v_PLSQLBlock VARCHAR2(200);
BEGIN
  EXECUTE IMMEDIATE 'create table tmp_table (col1 varchar2(10))'; --DDL语句最后不能加分号
  FOR v_Count IN 1 .. 10 LOOP
    v_SQLString := 'insert into tmp_table (col1) values (''ROW ' || v_Count ||
                   ''')'; --DML语句最后不能加分号
    EXECUTE IMMEDIATE v_SQLString;
  END LOOP;
  v_PLSQLBlock := 'begin 
                         for v_rec in (select * from tmp_table) loop  
                             dbms_output.put_line(v_rec.col1);
                         end loop; 
                   end;';--PL/SQL块最后需要加分号
  EXECUTE IMMEDIATE v_PLSQLBlock;
  EXECUTE IMMEDIATE 'drop table tmp_table';
END;
/

DDL,DML语句最后不能加分号, 而PL/SQL块最后需要加分号

可以使用using 子句执行带有绑定变量的语句：

DECLARE
  v_SQLString  VARCHAR2(200);
  v_PLSQLBlock VARCHAR2(200);
  v_Count2     NUMBER;
BEGIN
  EXECUTE IMMEDIATE 'create table tmp_table (col1 varchar2(10),col2 varchar2(10))'; --DDL语句最后不能加分号
  FOR v_Count IN 1 .. 10 LOOP
    v_Count2    := v_Count + 1;
    v_SQLString := 'insert into tmp_table (col1,col2) values (:var_test,:var_test2)'; --DML语句最后不能加分号
    EXECUTE IMMEDIATE v_SQLString
      USING v_Count, v_Count2;
  END LOOP;
  v_PLSQLBlock := 'begin for v_rec in (select * from tmp_table) loop  dbms_output.put_line(v_rec.col1||' ||
                  ''',''' || '||v_rec.col2);  end loop; end;'; --PL/SQL块最后需要加分号
  EXECUTE IMMEDIATE v_PLSQLBlock;
  EXECUTE IMMEDIATE 'drop table tmp_table';
END;
/

2.执行查询
类似于游标变量，查询也是使用OPEN FOR语句执行的。它们的区别是包含查询的串可以是PL/SQL变量，而非文字。与其他任何变量一样，也可以从得到的游标变量中提取数据。对于绑定，就像EXECUTE IMMEDIATE一样，USING子句是可用的。

CREATE OR REPLACE PACKAGE NativeDynamic AS
  TYPE t_RefCur IS REF CURSOR;
  FUNCTION EmpQuery(p_WhereClause IN VARCHAR2) RETURN t_refCur;
  FUNCTION EmpQuery2(p_Job IN VARCHAR2) RETURN t_refCur;
END NativeDynamic;
/
CREATE OR REPLACE PACKAGE BODY NativeDynamic AS
  FUNCTION EmpQuery(p_WhereClause IN VARCHAR2) RETURN t_refCur IS
    v_ReturnCursor t_RefCur;
    v_SQLStatement VARCHAR2(500);
  BEGIN
    v_SQLStatement := 'select * from emp ' || p_WhereClause;
    OPEN v_ReturnCursor FOR v_SQLStatement;
    RETURN v_ReturnCursor;
  END EmpQuery;
  FUNCTION EmpQuery2(p_Job IN VARCHAR2) RETURN t_refCur IS
    v_ReturnCursor t_RefCur;
    v_SQLStatement VARCHAR2(500);
  BEGIN
    v_SQLStatement := 'select * from emp where job=:job';
    OPEN v_ReturnCursor FOR v_SQLStatement
      USING p_Job;
    RETURN v_ReturnCursor;
  END EmpQuery2;

END NativeDynamic;
/

SET SERVEROUTPUT ON;
DECLARE
  v_Emp    emp%ROWTYPE;
  v_EmpCur NativeDynamic.t_RefCur;
BEGIN
  v_EmpCur := NativeDynamic.EmpQuery('where deptno=20');
  dbms_output.put_line('员工如下：');
  LOOP
    FETCH v_EmpCur
      INTO v_Emp;
    EXIT WHEN v_EmpCur%NOTFOUND;
    dbms_output.put_line(v_Emp.empno || ' : ' || v_Emp.ename || ',' ||
                         v_Emp.job || ',' || v_Emp.deptno);
  END LOOP;
  CLOSE v_EmpCur;

  v_EmpCur := NativeDynamic.EmpQuery2('CLERK');
  dbms_output.put_line('员工如下：');
  LOOP
    FETCH v_EmpCur
      INTO v_Emp;
    EXIT WHEN v_EmpCur%NOTFOUND;
    dbms_output.put_line(v_Emp.empno || ' : ' || v_Emp.ename || ',' ||
                         v_Emp.job || ',' || v_Emp.deptno);
  END LOOP;
  CLOSE v_EmpCur;
END;
/

EXECUTE IMMEDIATE也可以用于单行查询，可以带绑定变量也可以不带

DECLARE
v_Emp emp%ROWTYPE;
v_empno NUMBER;
v_SQLQuery VARCHAR2(500);
BEGIN
v_empno:=7369;
v_SQLQuery:='select * from emp where empno=:eno';
EXECUTE IMMEDIATE v_SQLQuery INTO v_Emp USING v_empno;
dbms_output.put_line(v_Emp.ename);
EXCEPTION WHEN no_data_found THEN
dbms_output.put_line('no_data_found...');
END;
/

3.成批绑定：
PL/SQL语句块中的SQL语句被发送到SQL引擎中进行执行。SQL引擎可以依次把数据发送回PL/SQL引擎（作为查询的结果）。在许多情况下，在数据库中将要插入或更新的数据首先放到一个PL/SQL集合中，然后该集合使用FOR循环进行迭代计算，并把信息发送到SQL引擎。对于该集合中的每一行，都将产生一个PL/SQL和SQL之间的上下文开关。
Oracle8i及更高版本允许你把一个集合里的所有行在一次操作中都传递到SQL引擎中，删除到只剩一个上下文开关，这叫做成批绑定，它使用FORALL语句来完成，下面是一个例子：

DECLARE
  TYPE t_Numbers IS TABLE OF tmp_table.num_col%TYPE;
  TYPE t_Strings IS TABLE OF tmp_table.char_col%TYPE;
  v_Numbers t_Numbers := t_Numbers(1);
  v_Strings t_Strings := t_Strings(1);
  --Prints the total number of rows in tmp_table.
  PROCEDURE PrintTotalRows(p_Message VARCHAR2) IS
    v_Count NUMBER;
  BEGIN
    SELECT COUNT(*) INTO v_Count FROM tmp_table;
    dbms_output.put_line(p_Message || ' : Count is ' || v_Count);
  END PrintTotalRows;
BEGIN
  DELETE FROM tmp_table;
  -- Fill up the PL/SQL nested tables with 1000 values.
  v_Numbers.EXTEND(1000);
  v_Strings.EXTEND(1000);
  FOR v_Count IN 1 .. 1000 LOOP
    v_Numbers(v_Count) := v_Count;
    v_Strings(v_Count) := 'Element #' || v_Count;
  END LOOP;
  -- Insert all 1000 elements using a single FORALL statement.
  FORALL v_Count IN 1 .. 1000
    INSERT INTO tmp_table VALUES (v_Numbers(v_Count), v_Strings(v_Count));
  PrintTotalRows('After first insert');

  -- Insert elements 501 through 1000 again.
  FORALL v_Count IN 501 .. 1000
    INSERT INTO tmp_table VALUES (v_Numbers(v_Count), v_Strings(v_Count));
  PrintTotalRows('After second insert');

  -- Update rows
  FORALL v_Count IN 1 .. 1000
    UPDATE tmp_table
       SET char_col = 'changed!'
     WHERE num_col = v_Numbers(v_Count);
  dbms_output.put_line('Update processed ' || SQL%ROWCOUNT || ' rows');

  -- Likewise,this DELETE will remove 300 rows
  FORALL v_Count IN 401 .. 600
    DELETE FROM tmp_table WHERE num_col = v_Numbers(v_Count);
  PrintTotalRows('After delete');
  COMMIT;
END;
/

FORALL的事务性问题，如果在处理成批DML操作中的一行时有错误，则只有该行被回滚。该行之前的行仍然被处理。这与使用OCI或预编译器的成批操作具有相同的行为。
Oracle9i的SAVE EXCEPTION 子句可以用于FORALL语句。使用这个子句，在批处理期间发生的任何错误都将被保存，并且该处理将会继续。可以使用SQL%BULK_EXCEPTION属性来查看该异常，该属性起着SQL*Plus表的作用。如下：

DECLARE
  TYPE t_Numbers IS TABLE OF tmp_table.num_col%TYPE INDEX BY BINARY_INTEGER;
  TYPE t_Strings IS TABLE OF tmp_table.char_col%TYPE INDEX BY BINARY_INTEGER;
  v_Numbers   t_Numbers;
  v_Strings   t_Strings;
  v_NumErrors NUMBER;
BEGIN
  DELETE FROM tmp_table;
  FOR v_Count IN 1 .. 10 LOOP
    v_Numbers(v_Count) := v_Count;
    v_Strings(v_Count) := '1234567890';
  END LOOP;
  FORALL v_Count IN 1 .. 10
    INSERT INTO tmp_table VALUES (v_Numbers(v_Count), v_Strings(v_Count));

  --Add an extra character to v_Strings(6).
  v_Strings(6) := v_Strings(6) || 'a';

  --This bulk update will fail on the sixth row,and continue processing.
  FORALL v_Count IN 1 .. 10 SAVE EXCEPTIONS
    UPDATE tmp_table
       SET char_col = char_col || v_Strings(v_Count)
     WHERE num_col = v_Numbers(v_Count);
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line('Got exception: ' || SQLERRM);
    --Print out any errors.
    v_NumErrors := SQL%BULK_EXCEPTIONS.COUNT;
    dbms_output.put_line('Number of errors during processing: ' ||
                         v_NumErrors);
    FOR v_Count IN 1 .. v_NumErrors LOOP
      dbms_output.put_line('Error ' || v_Count || ' , iteration ' ||
                           SQL%BULK_EXCEPTIONS(v_Count)
                           .ERROR_INDEX || ' is: ' ||
                           SQLERRM(0 - SQL%BULK_EXCEPTIONS(v_Count)
                                   .ERROR_CODE));
    END LOOP;
    COMMIT;
END;
/
SQL> 

Got exception: ORA-24381: 数组 DML 出错
Number of errors during processing: 1
Error 1 , iteration 6 is: ORA-12899: 列  的值太大 (实际值: , 最大值: )

PL/SQL procedure successfully completed

BULK COLLECT子句可用作SELECT INTO,FETCH INTO,RETURNING INTO子句的一部分，并将从查询中把行检索到所指示的集合中。

注：FORALL可以用于集合类型以及INSERT,UPDATE,DELETE 语句中，而BULK COLLECT子句用于取数据