存儲過程示例：使用游標處理數據

CREATE OR REPLACE PROCEDURE PRODUCT_CUR_PRC AS
  CUR_CTGY     PRODUCTINFO.CATEGORY%TYPE; --存放產品類型編碼
  CUR_CTGYNAME CATEGORYINFO.CATEGORYNAME%TYPE; --存放產品類型名稱
  CUR_PRTIFO   PRODUCTINFO%ROWTYPE; --存放表productinfo的行記錄
  
  CURSOR CUR_CATEGORY IS
    SELECT CATEGORY FROM PRODUCTINFO GROUP BY CATEGORY;

BEGIN
  OPEN CUR_CATEGORY;
   LOOP
    FETCH CUR_CATEGORY
      INTO CUR_CTGY;
    EXIT WHEN CUR_CATEGORY%NOTFOUND;
    SELECT CATEGORYINFO.CATEGORYNAME
      INTO CUR_CTGYNAME
      FROM CATEGORYINFO
     WHERE CATEGORYID = CUR_CTGY; --根據產品類型編碼得到產品類型名稱
  
    IF SQL%FOUND THEN
      DBMS_OUTPUT.PUT_LINE('------------');
      DBMS_OUTPUT.PUT_LINE(CUR_CTGYNAME || ':');
    END IF;
    
    FOR MY_PRDINFO_REC IN (SELECT * FROM PRODUCTINFO WHERE CATEGORY = cur_ctgy) LOOP DBMS_OUTPUT.PUT_LINE('產品名稱：' || MY_PRDINFO_REC.PRODUCTNAME || '產品價格:' || MY_PRDINFO_REC.PRODUCTPRICE || '產品數量:' || MY_PRDINFO_REC.QUANTITY);
  END LOOP;
END LOOP; CLOSE CUR_CATEGORY;
END;

【代碼解析】

第1行表示創建存儲過程，名稱是product_cur_prc；

第2~4行表示變量的名稱及變量類型。

第6~7行表示創建一個游標，表示從productinfo表中查詢已有的產品類型。

第10~14行表示打開cur_category游標並進入循環流提取數據，當數據提取完畢后退出。

第15~18行表示在categoryinfo表中，根據產品的編碼得到產品類型名稱，並把得到的結果賦值給變量cur_ctgyname。

第20~23行表示利用隱式游標%found屬性判斷第15~18行的查詢是否有結果，如果有，則把產品類型名稱輸出到屏幕。

第25~28行表示利用隱式游標獲取某類型的所有產品，並把產品信息輸出到屏幕。

【執行如下】

SQL>exec product_cur_prc;