存储过程返回结果集。*过程返回记录集。

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;