Oracle不像SQLServer那樣在存儲過程中用Select就可以返回結(jié)果集，而是通過Out型的參數(shù)進行結(jié)果集返回的。實際上是利用REF CURSOR 

復制代碼代碼如下:

--procedure返回記錄集： 
----------------------聲明一個Package-------------- 
CREATE OR REPLACE PACKAGE pkg_test 
AS 
TYPEmyrctypeIS REF CURSOR; 

PROCEDURE get_r(p_id NUMBER,p_rc OUT myrctype); --Package中聲明名為get 的Procedure(只有接口沒內(nèi)容) 
END pkg_test; 

-----------------聲明Package Body，即上面Package中的內(nèi)容，包括Procedure get--------------------- 
CREATE OR REPLACE PACKAGE BODY pkg_test 
AS 
PROCEDURE get_r(p_id NUMBER,p_rc OUT myrctype) 
IS 
sqlstr VARCHAR2 (500); 
BEGIN 
IF p_id = 0 THEN 
OPEN p_rc FOR 
SELECT ID, NAME, sex, address, postcode, birthday 
FROM student; 
ELSE 
sqlstr := 
'select id,name,sex,address,postcode,birthday 
from student where id=:w_id'; --w_id是個參數(shù)， 
--以下 p_rc是個REF CURSOR游標類型，而且是OUT型參數(shù)，即可返回一個記錄集了。USING p_id就是替換上面SQL中:w_id值拉:) 
OPEN p_rc FOR sqlstr USING p_id;　 
END IF; 
END get; 
END pkg_test; 

--function返回記錄集的例子，原理和上面相同，而是用function的return值來返回記錄集。 

函數(shù)返回記錄集: 
建立帶ref cursor定義的包和包體及函數(shù)： 

復制代碼代碼如下:

CREATE OR REPLACE 
package pkg_test as 

type myrctype is ref cursor; 
function get_r(intID number) return myrctype; 
end pkg_test; 
/ 
CREATE OR REPLACE 
package body pkg_test as 
--函數(shù)體 
function get_r(intID number) return myrctype is 
rc myrctype; --定義ref cursor變量 
sqlstr varchar2(500); 
begin 
if intID=0 then 

--靜態(tài)測試，直接用select語句直接返回結(jié)果 
open rc for select id,name,sex,address,postcode,birthday from student; 
else 
--動態(tài)sql賦值，用:w_id來申明該變量從外部獲得 
sqlstr := 'select id,name,sex,address,postcode,birthday from student where id=:w_id'; 
--動態(tài)測試，用sqlstr字符串返回結(jié)果，用using關(guān)鍵詞傳遞參數(shù) 
open rc for sqlstr using intid; 
end if; 
return rc; 
end get; 
end pkg_test;