Oracle不像SQLServer那样在存储过程中用Select就可以返回结果集，而是通过Out型的参数进行结果集返回的。实际上是利用REF CURSOR 代码如下:  
--procedure返回记录集：   
----------------------声明一个Package--------------  
CREATE OR REPLACE PACKAGE  pkg_test  
AS  
 TYPEmyrctype  IS REF CURSOR;    
   PROCEDURE get_r(p_id NUMBER,p_rc OUT myrctype);      --Package中声明名为get 的Procedure(只有接口没内容)  
END pkg_test;   
 -----------------声明 Package Body，即上面 Package 中的内容，包括 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是个参数，--以下 p_rc是个REF CURSOR游标类型，而且是OUT型参数，即可返回一个记录集了。USING p_id就是替换上面SQL中:w_id值拉:)   
OPEN p_rc FOR sqlstr USING p_id;   
END IF;  
END get;  
END pkg_test;  
 
  
--function返回记录集的例子，原理和上面相同，而是用function的return值来返回记录集。 函数返回记录集:   建立带ref cursor定义的包和包体及函数：   
代码如下:  
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  --函数体   
function get_r(intID number) return myrctype is  rc myrctype; --定义ref cursor变量  
sqlstr varchar2(500); 
 begin   if intID=0 then    --静态测试，直接用select语句直接返回结果   
open rc for select id,name,sex,address,postcode,birthday from student; 
 else   --动态sql赋值，用:w_id来申明该变量从外部获得   
sqlstr := 'select id,name,sex,address,postcode,birthday from student where id=:w_id';  --动态测试，用sqlstr字符串返回结果，用using关键词传递参数  
open rc for sqlstr using intid;  
end if;  
return rc;  
end get; 
 end pkg_test;  

create or replace procedure p_test(p_cur out sys_refcursor)

as

begin

     open p_cur for select * from emp;

end p_test;