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;

转至http://blog.csdn.net/sumer99/archive/2008/01/17/2048031.aspx