oracle返回-1480,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;

/

posted on 2007-12-19 19:26 HUIKK 阅读(180) 评论(0)  编辑  收藏 所属分类: DataBase