oracle双重游标,ORACLE创建多个游标并嵌套循环

ORACLE创建多个游标并嵌套循环

需求:每遍历游标2的记录时分别去遍历游标1的数据,并替换后插入临时表

CREATE OR REPLACE PROCEDURE TESTQ

IS

DownDictate VARCHAR2(200) DEFAULT '';

t_IsExist NUMBER:=0;

use_DownDictate VARCHAR2(200) DEFAULT '';

BEGIN

--判断指令是否会错误

SELECT DOWNDICTATE INTO DownDictate FROM T_MS_AUTOPLANDICTATE WHERE PROCEDURENAME='PKG_MEDI_IMM.QUERY_MEDI_IMM';

IF DownDictate IS NULL THEN

RETURN;

END IF;

--开始定义游标

DECLARE

---定义游标       1

CURSOR C_PARAMETERS IS

SELECT FUNCTIONNODECODE,FUNCTIONNODENAME FROM T_MS_FUNCTIONNODES WHERE FUNCTIONID =            (SELECT FUNCTIONID FROM T_MS_FUNCTION WHERE FUNCTIONPROCE='PKG_MEDI_IMM.QUERY_MEDI_IMM');

---定义游标          2

CURSOR C_MEDIIMME IS

SELECT * FROM (  SELECT              A.GRANTMASTER_BARCODE,A.GRANTMASTER_DATE,B.UNITINFO_NAME,C.USERINFO_REALNAME FROM T_LABEL_GRANTMASTER A              LEFT OUTER JOIN T_ER_UNITINFO B ON A.GRANTMASTER_FARMID=B.UNITINFO_ID              LEFT OUTER JOIN T_SYS_USERINFO C ON A.GRANTMASTER_FARMERSID = C.USERINFO_ID              WHERE C.USERINFO_MOBILE IS NOT NULL OR C.USERINFO_PHONE IS NOT NULL) T;

--定义游标1的行定义

TYPE paraType IS RECORD(

code     VARCHAR2(20),

codecn   VARCHAR2(50)

);

paraRowType paraType;

---定义游标2的行定义

TYPE rtype IS RECORD(

yzpch    VARCHAR2(50),

g_date   DATE,

yzc  VARCHAR2(100),

yznh   VARCHAR2(50)

);

c_rtype rtype;

--开始执行

BEGIN

OPEN C_MEDIIMME;        --打开游标 2

LOOP

FETCH C_MEDIIMME INTO c_rtype;

EXIT WHEN C_MEDIIMME%NOTFOUND;

use_DownDictate := DownDictate;

OPEN C_PARAMETERS;       --打开游标1      (需要每遍历游标2的一条数据时打开一次游标1)

--遍历参数表

BEGIN

LOOP

FETCH C_PARAMETERS INTO paraRowType;

EXIT WHEN C_PARAMETERS%NOTFOUND;

IF paraRowType.code = 'yzpch' THEN

use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yzpch);

ELSIF paraRowType.code = 'yznh' THEN

use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yznh);

ELSIF paraRowType.code = 'yzc' THEN

use_DownDictate := REPLACE(use_DownDictate,paraRowType.codecn||'#',c_rtype.yzc);

END IF;

END LOOP;

END;

CLOSE C_PARAMETERS;    --关闭游标1

--插入临时表

INSERT INTO T_MEDIIMMETABLE(ReplaceResult,DateResult)

VALUES(use_DownDictate,c_rtype.g_date);

END LOOP;

CLOSE C_MEDIIMME;  --关闭游标2

END;

END TESTQ;

  • 1
    点赞
  • 2
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值