使用Oracle的DBMS_SQL包执行动态SQL语句

DECLARE v_cursor NUMBER; v_stat NUMBER; v_row NUMBER; v_id NUMBER; v_no VARCHAR(100); v_date DATE; v_sql VARCHAR(200); s_id NUMBER; s_date DATE; BEGIN s_id := 3000; s_date := SYSDATE; v_sql := 'SELECT id,qan_no,sample_date FROM "tblno" WHERE id > :sid and sample_date < :sdate'; v_cursor := dbms_sql.open_cursor; --打开游标； dbms_sql.parse(v_cursor, v_sql, dbms_sql.native); --解析动态SQL语句； dbms_sql.bind_variable(v_cursor, ':sid', s_id); --绑定输入参数； dbms_sql.bind_variable(v_cursor, ':sdate', s_date); dbms_sql.define_column(v_cursor, 1, v_id); --定义列 dbms_sql.define_column(v_cursor, 2, v_no, 100); dbms_sql.define_column(v_cursor, 3, v_date); 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, v_id); --将当前行的查询结果写入上面定义的列中。 dbms_sql.column_value(v_cursor, 2, v_no); dbms_sql.column_value(v_cursor, 3, v_date); dbms_output.put_line(v_id || ';' || v_no || ';' || v_date); END LOOP; dbms_sql.close_cursor(v_cursor); --关闭游标。 END;

 

3095;S051013XW00010;15-10月-05 3112;A051013XW00027;10-10月-05 3113;A051013XW00028;13-10月-05 3116;S051013XW00031;13-10月-05