原文： 劉武 | oracle如何在一個(gè)存儲過程中調(diào)用另一個(gè)返回游標(biāo)的存儲過程? ?
實(shí)際項(xiàng)目當(dāng)中經(jīng)常需要在一個(gè)存儲過程中調(diào)用另一個(gè)存儲過程返回的游標(biāo)，本文列舉了兩種情況講述具體的操作方法。
第一種情況是返回的游標(biāo)是某個(gè)具體的表或視圖的數(shù)據(jù)，如：
CREATE
OR
REPLACE
PROCEDURE
P_TESTA (
PRESULT OUT SYS_REFCURSOR
)
AS
BEGIN
?
OPEN
PRESULT
FOR
SELECT
*?
FROM
USERS;
END
P_TESTA;
其中 USERS 就是數(shù)據(jù)庫中一個(gè)表。在調(diào)用的時(shí)候只要聲明一個(gè)該表的 ROWTYPE 類型就可以了：
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;
第二種情況，我們返回的不是表的所有的列，或許只是其中一列或兩列，如：
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 這兩個(gè)列，那么調(diào)用的時(shí)候也必須做相應(yīng)的修改：
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;
與之前不同的是我們聲明了一個(gè) 游標(biāo)類型的變量TMPCURSOR ，注意TMPCURSOR 的結(jié)構(gòu)必須與存儲過程P_TESTA 返回的游標(biāo)結(jié)構(gòu)一致，否則就會出現(xiàn)錯(cuò)誤。同理只要保持兩個(gè)游標(biāo)類型結(jié)構(gòu)一致，就可以實(shí)現(xiàn)自由調(diào)用。
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長非常感激您！手機(jī)微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
