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; --動態執行DDL語句
exception
when others then
null;
end ;
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>
create or replace procedure proc_insert
(
id in number, --輸入序號
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; --動態執行插入操作
exception
when others then
null;
end ;
SQL> execute proc_insert(1,’dinya’);
PL/SQL procedure successfully completed
SQL> select * from dinya_test;
ID NAME
1 dinya
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 ;
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
>; --定義光標
v_string varchar2(200); --定義字符串變量
v_row number; --行數
begin
v_cursor:=dbms_sql.open_cursor; --為處理打開光標
v_string:=’create table ’||table_name||’(’||field_name1||’ ’||datatype1||’,’||fIEld_name2||’ ’||datatype2||’)’;
dbms_sql.parse(v_cursor,v_string,dbms_sql.native); --分析語句
v_row:=dbms_sql.execute(v_cursor); --執行語句
dbms_sql.close_cursor(v_cursor); --關閉光標
exception
when others then
dbms_sql.close_cursor(v_cursor); --關閉光標
raise;
end;
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>
SQL> select * from dinya_test2;
ID NAME
1 Oracle
2 CSDN
3 ERP
SQL>
create or replace
NG>procedure proc_dbms_sql_update
(
id number,
name varchar2
)as
v_cursor number; --定義光標
v_string varchar2(200); --字符串變量
v_row number; --行數
begin
v_cursor:=dbms_sql.open_cursor; --為處理打開光標
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); --分析語句
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); --執行動態SQL
dbms_sql.close_cursor(v_cursor); --關閉光標
exception
when others then
dbms_sql.close_cursor(v_cursor); --關閉光標
raise;
end;
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>