CREATE OR REPLACE PACKAGE MYPACKAGE AS
TYPE MY_CURSOR IS REF CURSOR;
end MYPACKAGE;
create or replace procedure getcur(p_rc out MYPACKAGE.MY_CURSOR)
is
begin
open p_rc for 'select * from med_users';
end getcur;
declare
med_userss acs.mypackage.MY_CURSOR;
v_row acs.med_users%ROWTYPE;
begin
getcur(med_userss);
loop
FETCH med_userss into v_row;
EXIT WHEN med_userss%NOTFOUND;
dbms_output.put_line(v_row.login_name);
end loop;
end;
作者: 王德田 发表于 2011-03-07 18:51 原文链接
评论: 0 查看评论 发表评论
最新新闻：
· 疑似中国黑客入侵澳大利亚议会计算机系统(2011-03-29 12:05)
· 苹果开发者大会1599美元天价门票抢购一空(2011-03-29 12:04)
· 乐淘网CEO毕胜：今年近七成广告预算投向搜索(2011-03-29 11:58)
· Facebook聘请时代华纳高管提升广告服务(2011-03-29 11:57)
· “万能胶之父”逝世 曾被奥巴马颁科技奖(2011-03-29 11:56)
编辑推荐：Java之父詹姆斯·高斯林加盟Google
网站导航：博客园首页 我的园子 新闻 闪存 小组 博问 知识库
posted on 2011-03-07 18:51
sanmao 阅读(1214)
评论(0) 编辑 收藏