create or replace package returncursor is
type cur_cj is ref cursor ;
procedure find(emp out cur_cj);
end returncursor;
create or replace package body returncursor is
procedure find(emp out cur_cj)as
begin
open emp for select * from cjzcexpect where SE_ALLOWBUY=1;
close emp;
end find;
end returncursor;
declare
emp2 returncursor.cur_cj;
begin
returncursor.find(emp2);
for myrecord in emp2 loop
dbms_output.put_line(myrecord.SE_ID);
end loop;
end;
执行Oracle存储过程返回游标结果集
最新推荐文章于 2024-04-22 21:36:09 发布
