DECLARE
BEGIN/* 使用该方法来创建一个新数据表，但这方法需要当前用户具有创建表的权限。 */EXECUTE IMMEDIATE 'create table test (data1 number, data2 number)';END;
/

DECLARE
BEGIN/* 使用这个方法删除一个已存在的数据表，需要删除权限。 */EXECUTE IMMEDIATE 'drop table test';END;
/

DECLAREtbl1 VARCHAR2(40);sql1 VARCHAR2(2000);
BEGINtbl1 := 'test';sql1 := 'create table ' || tbl1 || ' (data1 number, data2 number)';EXECUTE IMMEDIATE sql1;END;
/

DECLAREsql1 VARCHAR2(2000);
BEGINsql1 := 'insert into test values (:data1, :data2)';EXECUTE IMMEDIATE sql1 USING 100, 200;END;
/

DECLAREdata1 NUMBER;data2 NUMBER;sql1 VARCHAR2(2000);
BEGINdata1 := 100;data2 := 200;sql1 := 'insert into test values (:data1, :data2)';EXECUTE IMMEDIATE sql1 USING data1, data2;END;
/

SET serveroutput ON;DECLAREtest_rec test%ROWTYPE;sql1 VARCHAR2(2000);
BEGINsql1 := 'select * from test where field1 = :data1';EXECUTE IMMEDIATE sql1 INTO test_rec USING 100;dbms_output.put_line ('-- 取得データ --');dbms_output.put_line (test_rec.field1);dbms_output.put_line (test_rec.field2);END;
/

SET serveroutput ON;
/* 抽出一列数据的时候 */
DECLARETYPE cutype IS REF CURSOR;cv cutype;item1 testm.key1%TYPE;
BEGINOPEN cv FOR'select key1 from testm where key1  like :data1'USING 'a%';LOOPFETCH cv INTO item1;EXIT WHEN cv%notfound;dbms_output.put_line (item1);END LOOP;CLOSE cv;END;
/

SET serveroutput ON;
/* 整行数据抽出时 */
DECLARETYPE cutype IS REF CURSOR;cv cutype;rec テストm%ROWTYPE;  /*行模型*/
BEGINOPEN cv FOR'select * from テストm where キー like :data1'USING 'a%';LOOPFETCH cv INTO rec;EXIT WHEN cv%notfound;dbms_output.put_line (rec.キー);END LOOP;CLOSE cv;END;

  codingset serveroutput ON;DECLAREsql1 VARCHAR2(2000);ret1 NUMBER;
BEGINsql1 := 'update test set data2 = :data2 where data1 = :data1returning data2 into :ret1';EXECUTE IMMEDIATE sql1 USING 11, 100 RETURNING INTO ret1;dbms_output.put_line ('-- 取得データ --');dbms_output.put_line (ret1);END;
/