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

摘要:
use_ DownDicateVARCHAR2(200)DEFAULT“”;BEGIN—判断指令是否会出错SELECTDOWNDICTATEINTDOWNDICSTATE_FROMT_MS_AUTOPLANDICTATEWHEREPPROCEDURENAME='PKG_MEDI_IMM.QUERY _ MEDI_IMM';

需求:每遍历游标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;

免责声明:文章转载自《ORACLE 创建多个游标并嵌套循环》仅用于学习参考。如对内容有疑问,请及时联系本站处理。

上篇Spring Boot配置全局异常捕获dubbo(2.5.3)源码之服务消费下篇

宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=

相关文章

WinForm下窗体权限设计

权限设计 笔者不才看了园子里面很多园友写关于权限设计这块内容,那么笔者也在添一笔。这个是笔者在上完软件工程课程后,上交的一篇笔者论文,这里分享给大家交流,当然笔者经验尚浅,若内容有误,请大家指点出来,若大家有什么更好的想法,请提出来共同学习。 一.引言 在软件开发中, 从操作系统到一个仅仅能够发布文章的网站,都要涉及到权限的管理。在Windows 操作...

使用json数据动态创建表格2(多次绘制第一次简化 var tr=tbody.insertRow();)

<!DOCTYPE HTML> <html> <head> <title>动态创建表格</title> <meta charset="utf-8" /> <style> table{width:600px; border-collapse:collapse;...

opencv笔记---contours

一 Contour Finding     Contours使用 STL-style vector<> 表示,如 vector<cv::Point>, vector<cv::Point2f>。opencv中,使用函数 cv::findContours() 寻找contours, 具体函数定义如下:     void cv...

迭代器和生成器

一、迭代 什么叫做迭代? 比如在 Java 中,我们通过 List 集合的下标来遍历 List 集合中的元素,在 Python 中,给定一个 list 或 tuple,我们可以通过 for 循环来遍历这个 list 或 tuple ,这种遍历就是迭代。 可是,Python 的 for 循环抽象程度要高于 Java 的 for 循环的,为什么这么说呢?因为...

es6 Interator

概念:interator(遍历器)是一种接口机制,为一种具有遍历结构的或者有length长度的数据结构提供一种统一的访问机制,从而进行遍历操作 作用: 1.为各种数据结构,提供一个统一的,简便的访问接口 2.使得数据结构的成员按某种次序排列 3.es6 提供了一种新的遍历for of循环,interator主要为for of使用 原理: 1.创建一个指针对...

纵横字谜的答案(Crossword Answers)

题目 输入一个r行c列(1<=r, c<=10)的网格,黑格用 * 表示,每个白格都填有一个字母。 如果一个白格的左边相邻位置或者上边相邻位置没有白格(可能是黑格,也可能出了网格边界), 则称这个白格是一个起始格。 首先把所有起始格按照从上到下,从左到右的顺序编号为1,2,3,... ,如图  接下来要找出所有横向单词(Across)。这些单...