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;

参考原文