CREATE OR REPLACE PACKAGE "TZH"."EMPLOYEES" AS
TYPE empcur IS REF CURSOR;
PROCEDURE GetEmpRecords(p_cursor OUT empcur);
END Employees;
/
CREATE OR REPLACE PACKAGE BODY "TZH"."EMPLOYEES" AS
PROCEDURE GetEmpRecords(p_cursor OUT empcur) IS
BEGIN
OPEN p_cursor FOR
SELECT *
FROM person
;
END GetEmpRecords;
END Employees;
/
CSDN上问了半天没人会的说confused_smile.gif。又是一个结分不爽的贴

======其实只要如下=====
var c refcursor
execute tzh.employees.getemprecords(:c)
print c

转载于:https://www.cnblogs.com/tongzhenhua/archive/2004/02/20/1412.html

Logo

汇聚全球AI编程工具,助力开发者即刻编程。

更多推荐