else

CREATE OR REPLACE
--以下 p_rc是个REF CURSOR游标类型，而且是OUT型参数，即可返回一个记录集了。USING p_id就是替换上面SQL中:w_id值拉:)

open rc for select id,name,sex,address,postcode,birthday from student;
END get;
END pkg_test;
PROCEDURE get_r(p_id NUMBER,p_rc OUT myrctype)
if intID=0 then
函数返回记录集:
sqlstr varchar2(500);
END IF;
SELECT ID, NAME, sex, address, postcode, birthday
sqlstr VARCHAR2 (500);

--动态测试，用sqlstr字符串返回结果，用using关键词传递参数
PROCEDURE get_r(p_id NUMBER,p_rc OUT myrctype); --Package中声明名为get 的Procedure(只有接口没内容)
TYPEmyrctypeIS REF CURSOR;
--函数体
CREATE OR REPLACE PACKAGE pkg_test
----------------------声明一个Package--------------
sqlstr := 'select id,name,sex,address,postcode,birthday from student where id=:w_id';
end get;

复制代码 代码如下:

AS
function get_r(intID number) return myrctype;
sqlstr :=
package pkg_test as
建立带ref cursor定义的包和包体及函数：
FROM student;
'select id,name,sex,address,postcode,birthday
end if;
end pkg_test;
end pkg_test;
begin
CREATE OR REPLACE PACKAGE BODY pkg_test

Oracle不像SQLServer那样在存储过程中用Select就可以返回结果集，而是通过Out型的参数进行结果集返回的。实际上是利用REF CURSOR
OPEN p_rc FOR sqlstr USING p_id;　
CREATE OR REPLACE
rc myrctype; --定义ref cursor变量

--procedure返回记录集：

复制代码 代码如下:

IF p_id = 0 THEN
--静态测试，直接用select语句直接返回结果
--动态sql赋值，用:w_id来申明该变量从外部获得
/
type myrctype is ref cursor;
AS
package body pkg_test as
OPEN p_rc FOR
open rc for sqlstr using intid;
--function返回记录集的例子，原理和上面相同，而是用function的return值来返回记录集。
IS


return rc;
-----------------声明Package Body，即上面Package中的内容，包括Procedure get---------------------

from student where id=:w_id'; --w_id是个参数，
END pkg_test;
BEGIN
function get_r(intID number) return myrctype is
ELSE