?????????????????????????????????????????? oracle返回结果集

过程返回记录集：
CREATE OR REPLACE PACKAGE pkg_test
AS
? ? TYPE myrctype IS REF CURSOR;
??
? ? PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
END pkg_test;
/
??
CREATE OR REPLACE PACKAGE BODY pkg_test
AS
? ? PROCEDURE get (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';
? ?? ?? ? OPEN p_rc FOR sqlstr USING p_id;
? ?? ? END IF;
? ? END get;
END pkg_test;
/
??
函数返回记录集:
建立带ref cursor定义的包和包体及函数：
CREATE OR REPLACE
package pkg_test as
/* 定义ref cursor类型
? ? 不加return类型，为弱类型，允许动态sql查询，
? ? 否则为强类型，无法使用动态sql查询;
*/
? ?type myrctype is ref cursor;??
? ?
--函数申明
? ?function get(intID number) return myrctype;
end pkg_test;
/
? ?
CREATE OR REPLACE
package body pkg_test as
--函数体
? ? function get(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;
/