ORACLE 动态游标的使用

动态游标可以遍历动态的表,

格式:

TYPE 游标类型 IS REF CURSOR; --定义一个动态游标 
游标名  游标类型;

如果查询的表的数据不同的,动态变化的,这时候可以用动态游标。

需要注意的是,动态游标的定义,

在普通存储过程中:需要放在 is 后面的第一行

动态游标通过:open 游标 for 字符串,形式使用,遍历。

CREATE OR REPLACE PROCEDURE P_TEST_SQL IS
  TYPE REF_CURSOR_TYPE IS REF CURSOR; --定义一个动态游标
  TABLENAME VARCHAR2(200) DEFAULT 'ess_client';
  V_SQL     VARCHAR2(1000);
  MOBILE    VARCHAR2(15);
  USRS      REF_CURSOR_TYPE;
BEGIN
  --使用连接符拼接成一条完整SQL
  V_SQL := 'select usrmsisdn from ' || TABLENAME || ' where rownum < 11';
  --打开游标
  OPEN USRS FOR V_SQL;
  LOOP
    FETCH USRS
      INTO MOBILE;
    EXIT WHEN USRS%NOTFOUND;
    INSERT INTO TMP (USRMSISDN) VALUES (MOBILE);
  END LOOP;
  CLOSE USRS;
  COMMIT;
END P_TEST_SQL;

下面是一个实例

CREATE OR REPLACE PROCEDURE DDGZ1 --订单跟踪

(
 
 P_FLAG VARCHAR, --订单类型
 
 P_OPERATE VARCHAR, --操作类型
 
 P_BH VARCHAR --传入的编号ID
 
 )

 IS

  TYPE REF_CURSOR_TYPE IS REF CURSOR;

  V_CUR_CKD REF_CURSOR_TYPE;

BEGIN

  OPEN V_CUR_CKD FOR 'select v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jlsj from tmp_DDGZ1';

  FETCH V_CUR_CKD
    INTO V_ERP, V_DRP, V_JXSMC, V_JXS, V_DWMC, V_CZR, V_JZSJ;

  WHILE V_CUR_CKD%FOUND
  
   LOOP
  
    INSERT INTO DRPDDGZJL2
      (JLID, DRP, ERP, JXS, JXSMC, JLSJ, GZJL, CZR, BHID)
    VALUES
      (SYS_GUID(),
       V_DRP,
       V_ERP,
       V_JXS,
       V_JXSMC,
       V_JZSJ,
       V_DWMC || '受托代销成品库接收订单,组织发货',
       V_CZR,
       '出库单' || P_BH);
  
    FETCH V_CUR_CKD
      INTO V_ERP, V_DRP, V_JXSMC, V_JXS, V_DWMC, V_CZR, V_JZSJ;
  
  END LOOP;

  CLOSE V_CUR_CKD;

END;
 

你可能感兴趣的:(数据库,oracle,数据库,sql)