一般的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ǔ)句，可以通過(guò)使用動(dòng)態(tài)SQL來(lái)實(shí)現(xiàn)。
首先我們應(yīng)該了解什么是動(dòng)態(tài)SQL，在Oracle數(shù)據(jù)庫(kù)開(kāi)發(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可以通過(guò)本地動(dòng)態(tài)SQL來(lái)執(zhí)行，也可以通過(guò)DBMS_SQL包來(lái)執(zhí)行。下面就這兩種情況分別進(jìn)行說(shuō)明：
一、本地動(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 ;
以上是編譯通過(guò)的存儲(chǔ)過(guò)程代碼。下面執(zhí)行存儲(chǔ)過(guò)程動(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ǔ)過(guò)程，插入數(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ù)模式的問(wèn)題，請(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過(guò)程來(lái)分析該字符串。C、使用DBMS_SQL包的bind_variable過(guò)程來(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; --為處理打開(kāi)光標(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;
以上過(guò)程編譯通過(guò)后，執(zhí)行過(guò)程創(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ǔ)過(guò)程，并編譯通過(guò)：
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; --為處理打開(kāi)光標(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)SQL
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í)行過(guò)程，根據(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í)行過(guò)程后將第二條的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é)說(shuō)明：
在Oracle開(kāi)發(fā)過(guò)程中，我們可以使用動(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)部分可以不要。