oracle 执行带参数的sql语句_oracle 存储过程执行可输入sql语句并返回结果集

标签：

1.建立测试表：

create table AAA

(

aa NVARCHAR2(100),

bb NVARCHAR2(100),

cc NVARCHAR2(100),

dd NVARCHAR2(100)

)

并导入测试数据insert into aaa values(‘1‘,‘1‘,‘1‘,‘1‘);

2.测试可行性：

DECLARE

v_cursor NUMBER;

v_stat NUMBER;

aa VARCHAR(100);

bb VARCHAR(100);

cc VARCHAR(100);

dd VARCHAR(100);

v_sql VARCHAR(200);

BEGIN

v_sql :=‘select * from aaa‘;

v_cursor := dbms_sql.open_cursor; --打开游标；

dbms_sql.parse(v_cursor, v_sql, dbms_sql.native); --解析动态SQL语句；

dbms_sql.define_column(v_cursor, 1, aa,100); --定义列

dbms_sql.define_column(v_cursor, 2,bb, 100);

dbms_sql.define_column(v_cursor, 3,cc,100);

dbms_sql.define_column(v_cursor, 4, dd,100);

v_stat := dbms_sql.execute(v_cursor); --执行动态SQL语句。

LOOP

EXIT WHEN dbms_sql.fetch_rows(v_cursor)<=0; --fetch_rows在结果集中移动游标，如果未抵达末尾，返回1。

dbms_sql.column_value(v_cursor, 1,  aa); --将当前行的查询结果写入上面定义的列中。

dbms_sql.column_value(v_cursor, 2, bb);

dbms_sql.column_value(v_cursor, 3,cc);

dbms_sql.column_value(v_cursor, 4, dd);

dbms_output.put_line(aa || ‘;‘ || bb || ‘;‘ || cc || ‘;‘|| dd);

END LOOP;

dbms_sql.close_cursor(v_cursor); --关闭游标。

END;

输出1,1,1,1

3.建立存储过程，其中，sql为输入参数，系统引用游标为输出参数，如下：

create or replace procedure myproc

(

mysqlval in varchar2,

rescur out sys_refcursor

)

as

BEGIN

open rescur for mysqlval;

END;

4.测试存储过程

sqlplus中，执行如下：

var r refcursor;

exec proc2(‘select * from aaa‘,:r);

print r;

输出是正常的

标签：