ORACLE 动态游标的使用

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

格式：

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

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

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

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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

)

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;