第一種情況是返回的游標是某個具體的表或視圖的數據,如:
SQL-Code:
代碼如下:
CREATE OR REPLACE PROCEDURE P_TESTA (
PRESULT OUT SYS_REFCURSOR
)
AS
BEGIN
OPEN PRESULT FOR SELECT * FROM USERS;
END P_TESTA;
其中USERS就是數據庫中一個表。在調用的時候只要聲明一個該表的ROWTYPE類型就可以了:
SQL-Code:
代碼如下:
CREATE OR REPLACE PROCEDURE P_TESTB
AS
VARCURSOR SYS_REFCURSOR;
R USERS%ROWTYPE;
BEGIN
P_TESTA(VARCURSOR);
LOOP
FETCH VARCURSOR INTO R;
EXIT WHEN VARCURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(R.NAME);
END LOOP;
END P_TESTB;
第二種情況,我們返回的不是表的所有的列,或許只是其中一列或兩列,如:
SQL-Code:
代碼如下:
CREATE OR REPLACE PROCEDURE P_TESTA (
PRESULT OUT SYS_REFCURSOR
)
AS
BEGIN
OPEN PRESULT FOR SELECT ID,NAME FROM USERS;
END P_TESTA;
這裡我們只返回了USERS表的ID,NAME這兩個列,那麼調用的時候也必須做相應的修改:
SQL-Code:
代碼如下:
CREATE OR REPLACE PROCEDURE P_TESTB
AS
VARCURSOR SYS_REFCURSOR;
CURSOR TMPCURSOR IS SELECT ID,NAME FROM USERS WHERE ROWNUM=1;
R TMPCURSOR%ROWTYPE;
BEGIN
P_TESTA(VARCURSOR);
LOOP
FETCH VARCURSOR INTO R;
EXIT WHEN VARCURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(R.ID);
END LOOP;
END P_TESTB;
與之前不同的是我們聲明了一個游標類型的變量TMPCURSOR ,注意TMPCURSOR 的結構必須與存儲過程P_TESTA 返回的游標結構一致,否則就會出現錯誤。同理只要保持兩個游標類型結構一致,就可以實現自由調用。