Oracle EBS - SQL&PL/SQL: 动态执行DDL

最新推荐文章于 2021-04-02 23:36:37 发布

Frank-Li

最新推荐文章于 2021-04-02 23:36:37 发布

阅读量283

点赞数

分类专栏： SQL & PL/SQL 文章标签：动态执行DDL

本文链接：https://blog.csdn.net/lfl6848433/article/details/8698181

版权

SQL & PL/SQL 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

动态执行DDL

  --
  --Dynamic execute structure query language(sql)
  --
  PROCEDURE do_ddl(ddl_text in VARCHAR2) IS
   c  INTEGER;
   rows_processed INTEGER;
  BEGIN
   c := dbms_sql.open_cursor;
   dbms_sql.parse(c, ddl_text, dbms_sql.native);
   rows_processed := dbms_sql.execute(c);
   dbms_sql.close_cursor(c);
  EXCEPTION
   WHEN OTHERS THEN
    dbms_sql.close_cursor(c);
    RAISE;
  END do_ddl;

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;