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 閱讀(1226)
評論(0) 編輯 收藏