Oracle数据库使用游标查询结果集所有数据

--Oracle使用游标查询结果集所有数据
 
DECLARE
      myTabelName NVARCHAR2(200):=''; --表名
      myTableRowComment NVARCHAR2(200):=''; --行内容
      result VARCHAR2(2000):=''; --结果
      CURSOR myCursor IS SELECT * FROM 结果集(表名/视图名/查询结果) ORDER BY (结果集中的列名);--定义游标
      myRecord myCursor%ROWTYPE;  --定义游标记录类型
BEGIN
    OPEN myCursor;  --打开游标
    IF myCursor %ISOPEN  THEN  --判断打开成功
       ---------------------游标打开成功 BEGIN
       LOOP --循环获取记录集  BEGIN 
 
            FETCH myCursor into myRecord;
 
            IF myCursor%FOUND THEN  --游标的FOUND属性判断是否有记录
               BEGIN
                    myTabelName:='TEC_PARTTEC';
                    myTableRowComment:=myRecord.ID||'    '||myRecord.CREATEDATE||'    '
　　　　　　　　　　　　　　　　　　　　　　　||myRecord.CREATEUSER||'    '||myRecord.ORGANIZATIONID||'    '
　　　　　　　　　　　　　　　　　　　　　　  ||myRecord.PARTID||'    '||myRecord.PROCESSTYPE||'    '
　　　　　　　　　　　　　　　　　　　　　    ||myRecord.VERSION||'    '||myRecord.REMARK||'    '
　　　　　　　　　　　　　　　　　　　　　　　||myRecord.STATE;    
 
                    result:='表名    '||myTabelName||'    列值    '||myTableRowComment;
 
                    result:=myTabelName||'    '||myTableRowComment;
 
                    DBMS_OUTPUT.PUT_LINE(result);     
 
               END;
            ELSE
               EXIT; --游标中的记录为空 退出
            END IF; --结束IF语句
 
       END LOOP; --循环获取记录集  END
    ELSE
        DBMS_OUTPUT.PUT_LINE('游标没有打开');
    END IF; 
 
CLOSE myCursor;
END;

参考原文