內(nèi)容摘要：在PL/SQL開發(fā)過程中，使用SQL，PL/SQL可以實(shí)現(xiàn)大部份的需求，但是在某些特殊的情況下，在PL/SQL中使用標(biāo)準(zhǔn)的SQL語(yǔ)句或DML語(yǔ)句不能實(shí)現(xiàn)自己的需求，比如需要?jiǎng)討B(tài)建表或某個(gè)不確定的操作需要?jiǎng)討B(tài)執(zhí)行。這就需要使用動(dòng)態(tài)SQL來(lái)實(shí)現(xiàn)。本文通過幾個(gè)實(shí)例來(lái)詳細(xì)的講解動(dòng)態(tài)SQL的使用。　　

　　本文適宜讀者范圍：Oracle初級(jí)，中級(jí)

　　系統(tǒng)環(huán)境：

　　　OS：windows 2000 PRofessional (英文版)

　　　Oracle：8.1.7.1.0

　　正文：

　　一般的PL/SQL程序設(shè)計(jì)中，在DML和事務(wù)控制的語(yǔ)句中可以直接使用SQL，但是DDL語(yǔ)句及系統(tǒng)控制語(yǔ)句卻不能在PL/SQL中直接使用，要想實(shí)現(xiàn)在PL/SQL中使用DDL語(yǔ)句及系統(tǒng)控制語(yǔ)句，可以通過使用動(dòng)態(tài)SQL來(lái)實(shí)現(xiàn)。

　　首先我們應(yīng)該了解什么是動(dòng)態(tài)SQL，在Oracle數(shù)據(jù)庫(kù)開發(fā)PL/SQL塊中我們使用的SQL分為：靜態(tài)SQL語(yǔ)句和動(dòng)態(tài)SQL語(yǔ)句。所謂靜態(tài)SQL指在PL/SQL塊中使用的SQL語(yǔ)句在編譯時(shí)是明確的，執(zhí)行的是確定對(duì)象。而動(dòng)態(tài)SQL是指在PL/SQL塊編譯時(shí)SQL語(yǔ)句是不確定的，如根據(jù)用戶輸入的參數(shù)的不同而執(zhí)行不同的操作。編譯程序?qū)?dòng)態(tài)語(yǔ)句部分不進(jìn)行處理，只是在程序運(yùn)行時(shí)動(dòng)態(tài)地創(chuàng)建語(yǔ)句、對(duì)語(yǔ)句進(jìn)行語(yǔ)法分析并執(zhí)行該語(yǔ)句。

　　Oracle中動(dòng)態(tài)SQL可以通過本地動(dòng)態(tài)SQL來(lái)執(zhí)行，也可以通過DBMS_SQL包來(lái)執(zhí)行。下面就這兩種情況分別進(jìn)行說明：

　　一、本地動(dòng)態(tài)SQL

　　本地動(dòng)態(tài)SQL是使用EXECUTE IMMEDIATE語(yǔ)句來(lái)實(shí)現(xiàn)的。

　　1、本地動(dòng)態(tài)SQL執(zhí)行DDL語(yǔ)句：

　　需求：根據(jù)用戶輸入的表名及字段名等參數(shù)動(dòng)態(tài)建表。

create or replace procedure proc_test
(
    table_name in varchar2,     --表名
    field1 in varchar2,          --字段名
    datatype1 in varchar2,      --字段類型
    field2 in varchar2,          --字段名
    datatype2 in varchar2        --字段類型
) as
    str_sql varchar2(500);
begin
    str_sql:=’create table ’||table_name||’(’||field1||’ ’||datatype1||’,’||field2||’ ’||datatype2||’)’;
    execute immediate str_sql;   --動(dòng)態(tài)執(zhí)行DDL語(yǔ)句
    exception
        when others then
            null;
end ;

　　以上是編譯通過的存儲(chǔ)過程代碼。下面執(zhí)行存儲(chǔ)過程動(dòng)態(tài)建表。

  SQL> execute proc_test(’dinya_test’,’id’,’number(8) not null’,’name’,’varchar2(100)’);

PL/SQL procedure successfully completed

SQL> desc dinya_test;
Name Type          Nullable Default Comments
---- ------------- -------- ------- --------
ID   NUMBER(8)

NAME VARCHAR2(100) Y

SQL>

 　　到這里，就實(shí)現(xiàn)了我們的需求，使用本地動(dòng)態(tài)SQL根據(jù)用戶輸入的表名及字段名、字段類型等參數(shù)來(lái)實(shí)現(xiàn)動(dòng)態(tài)執(zhí)行DDL語(yǔ)句。

 　　2、本地動(dòng)態(tài)SQL執(zhí)行DML語(yǔ)句。

　　需求：將用戶輸入的值插入到上例中建好的dinya_test表中。

create or replace procedure proc_insert
(
    id in number,                                 --輸入序號(hào)
    name in varchar2                             --輸入姓名
) as
    str_sql varchar2(500);
begin
    str_sql:=’insert into dinya_test values(:1,:2)’;
    execute immediate str_sql using id,name; --動(dòng)態(tài)執(zhí)行插入操作
    exception
        when others then
            null;
end ;

　　執(zhí)行存儲(chǔ)過程，插入數(shù)據(jù)到測(cè)試表中。

  SQL> execute proc_insert(1,’dinya’);
PL/SQL procedure successfully completed
SQL> select * from dinya_test;
        ID      NAME
        1      dinya

　　在上例中，本地動(dòng)態(tài)SQL執(zhí)行DML語(yǔ)句時(shí)使用了using子句，按順序?qū)⑤斎氲闹到壎ǖ阶兞浚绻枰敵鰠?shù)，可以在執(zhí)行動(dòng)態(tài)SQL的時(shí)候，使用RETURNING INTO 子句，如：

declare
    p_id number:=1;
    v_count number;
begin
    v_string:=’select count(*) from table_name a where a.id=:id’;
    execute immediate v_string into v_count using p_id; 
end ;

　　更多的關(guān)于動(dòng)態(tài)SQL中關(guān)于返回值及為輸出輸入綁定變量執(zhí)行參數(shù)模式的問題，請(qǐng)讀者自行做測(cè)試。

 　　二、使用DBMS_SQL包

　　使用DBMS_SQL包實(shí)現(xiàn)動(dòng)態(tài)SQL的步驟如下：A、先將要執(zhí)行的SQL語(yǔ)句或一個(gè)語(yǔ)句塊放到一個(gè)字符串變量中。B、使用DBMS_SQL包的parse過程來(lái)分析該字符串。C、使用DBMS_SQL包的bind_variable過程來(lái)綁定變量。D、使用DBMS_SQL包的execute函數(shù)來(lái)執(zhí)行語(yǔ)句。

　　1、使用DBMS_SQL包執(zhí)行DDL語(yǔ)句

　　需求：使用DBMS_SQL包根據(jù)用戶輸入的表名、字段名及字段類型建表。

create or replace procedure proc_dbms_sql
(
    table_name in varchar2,       --表名
    field_name1 in varchar2,      --字段名
    datatype1 in varchar2,        --字段類型
    field_name2 in varchar2,      --字段名
    datatype2 in varchar2         --字段類型
)as
    v_cursor number;              --定義光標(biāo)
    v_string varchar2(200);      --定義字符串變量
    v_row number;                  --行數(shù)
begin
    v_cursor:=dbms_sql.open_cursor;     --為處理打開光標(biāo)
    v_string:=’create table ’||table_name||’(’||field_name1||’ ’||datatype1||’,’||field_name2||’ ’||datatype2||’)’;
    dbms_sql.parse(v_cursor,v_string,dbms_sql.native);    --分析語(yǔ)句
    v_row:=dbms_sql.execute(v_cursor);   --執(zhí)行語(yǔ)句
    dbms_sql.close_cursor(v_cursor);     --關(guān)閉光標(biāo)
    exception
        when others then
            dbms_sql.close_cursor(v_cursor);  --關(guān)閉光標(biāo)
            raise;
end;

 　　以上過程編譯通過后，執(zhí)行過程創(chuàng)建表結(jié)構(gòu)：

SQL> execute proc_dbms_sql(’dinya_test2’,’id’,’number(8) not null’,’name’,’varchar2(100)’);

PL/SQL procedure successfully completed

SQL> desc dinya_test2;
Name Type          Nullable Default Comments
---- ------------- -------- ------- --------
ID   NUMBER(8)                              
NAME VARCHAR2(100) Y                        

SQL>

 　　2、使用DBMS_SQL包執(zhí)行DML語(yǔ)句

　　需求：使用DBMS_SQL包根據(jù)用戶輸入的值更新表中相對(duì)應(yīng)的記錄。

　　查看表中已有記錄：

SQL> select * from dinya_test2;
       ID NAME
        1 Oracle
        2 CSDN
        3 ERP
SQL>

　　建存儲(chǔ)過程，并編譯通過：

create or replace procedure proc_dbms_sql_update
(
    id number,
    name varchar2
)as
    v_cursor number;            --定義光標(biāo)
    v_string varchar2(200);   --字符串變量
    v_row number;               --行數(shù)
begin
    v_cursor:=dbms_sql.open_cursor;    --為處理打開光標(biāo)
    v_string:=’update dinya_test2 a set a.name=:p_name where a.id=:p_id’;
    dbms_sql.parse(v_cursor,v_string,dbms_sql.native);   --分析語(yǔ)句
    dbms_sql.bind_variable(v_cursor,’:p_name’,name);     --綁定變量
    dbms_sql.bind_variable(v_cursor,’:p_id’,id);          --綁定變量
    v_row:=dbms_sql.execute(v_cursor);　　　　　　　　　　　--執(zhí)行動(dòng)態(tài)ＳＱＬ
    dbms_sql.close_cursor(v_cursor);                        --關(guān)閉光標(biāo)
    exception
        when others then
            dbms_sql.close_cursor(v_cursor);                --關(guān)閉光標(biāo)
            raise;
end;

　　執(zhí)行過程，根據(jù)用戶輸入的參數(shù)更新表中的數(shù)據(jù)：

SQL> execute proc_dbms_sql_update(2,’csdn_dinya’);

PL/SQL procedure successfully completed

SQL> select * from dinya_test2;
       ID NAME
        1 Oracle
        2 csdn_dinya
        3 ERP
SQL>

 　　執(zhí)行過程后將第二條的name字段的數(shù)據(jù)更新為新值csdn_dinya。這樣就完成了使用dbms_sql包來(lái)執(zhí)行DML語(yǔ)句的功能。

 　　使用DBMS_SQL中，如果要執(zhí)行的動(dòng)態(tài)語(yǔ)句不是查詢語(yǔ)句，使用DBMS_SQL.Execute或DBMS_SQL.Variable_Value來(lái)執(zhí)行，如果要執(zhí)行動(dòng)態(tài)語(yǔ)句是查詢語(yǔ)句，則要使用DBMS_SQL.define_column定義輸出變量，然后使用DBMS_SQL.Execute, DBMS_SQL.Fetch_Rows, DBMS_SQL.Column_Value及DBMS_SQL.Variable_Value來(lái)執(zhí)行查詢并得到結(jié)果。
 
　　總結(jié)說明：

　　在Oracle開發(fā)過程中，我們可以使用動(dòng)態(tài)SQL來(lái)執(zhí)行DDL語(yǔ)句、DML語(yǔ)句、事務(wù)控制語(yǔ)句及系統(tǒng)控制語(yǔ)句。但是需要注意的是，PL/SQL塊中使用動(dòng)態(tài)SQL執(zhí)行DDL語(yǔ)句的時(shí)候與別的不同，在DDL中使用綁定變量是非法的（bind_variable(v_cursor,’:p_name’,name)），分析后不需要執(zhí)行DBMS_SQL.Bind_Variable，直接將輸入的變量加到字符串中即可。另外，DDL是在調(diào)用DBMS_SQL.PARSE時(shí)執(zhí)行的，所以DBMS_SQL.EXECUTE也可以不用，即在上例中的v_row:=dbms_sql.execute(v_cursor)部分可以不要。