日期:2014-05-16 浏览次数:20520 次
(4)使用DBMS_SQL包的execute函数来执行语句。
示例1:
--使用DBMS_SQL包执行DDL语句 --需求:使用DBMS_SQL包根据用户输入的表名、字段名以及字段类型建表 DECLARE table_name VARCHAR2(20); --表名 field1 VARCHAR2(20); --字段名 datatype1 VARCHAR2(20); --字段类型 field2 VARCHAR2(20); --字段名 datatype2 VARCHAR2(20); --字段类型 v_cursor NUMBER; --定义光标 v_string VARCHAR2(200); --定义字符串变量 v_row NUMBER; --行数 BEGIN table_name := 't1'; field1 := 'id'; datatype1 := 'NUMBER'; field2 := 'name'; datatype2 := 'VARCHAR2(20)'; v_cursor := dbms_sql.open_cursor; --为处理打开光标 v_string := 'create table ' || table_name || '(' || field1 || ' ' || datatype1 || ',' || field2 || ' ' || datatype2 || ')'; dbms_sql.parse(v_cursor,v_string,dbms_sql.native); --分析语句 v_row := dbms_sql.execute(v_cursor); --执行动态SQL dbms_sql.close_cursor(v_cursor); --关闭光标 dbms_output.put_line(v_row); EXCEPTION WHEN OTHERS THEN IF dbms_sql.is_open(v_cursor) THEN dbms_sql.close_cursor(v_cursor); END IF; END;
示例2:
--使用DBMS_SQL包执行DML语句 --需求:使用DBMS_SQL包将表中t1中id=1的名称改为李四 DECLARE v_id NUMBER; v_name VARCHAR2(20); v_cursor NUMBER; --定义光标 v_string VARCHAR2(200); --字符串变量 v_row NUMBER; --行数 BEGIN v_id := 1; v_name := '李四'; v_cursor := dbms_sql.open_cursor; --为处理打开游标 v_string := 'update t1 set name = :p_name where id = :p_id'; dbms_sql.parse(v_cursor,v_string,dbms_sql.native); --分析语句 dbms_sql.bind_variable(v_cursor,'p_name',v_name); --绑定变量 dbms_sql.bind_variable(v_cursor,'p_id',v_id); --绑定变量 v_row := dbms_sql.execute(v_cursor); --执行动态SQL dbms_sql.close_cursor(v_cursor); EXCEPTION WHEN OTHERS THEN IF dbms_sql.is_open(v_cursor) THEN dbms_sql.close_cursor(v_cursor); END IF; END;