create or replace package PkgTest is
type TCursor is ref cursor; procedure GetTableUsers(Pr_id in varchar2, p_Cursor out TCursor);
end PkgTest;
/
create or replace package body PkgTest is
procedure GetTableUsers(Pr_id in varchar2, p_Cursor out TCursor) is
v_SQL varchar2(1024);
begin
v_SQL := 'select * from users where pr_id=' || Pr_id;
open p_Cursor for
v_SQL;
end GetTableUsers;
end PkgTest;
/
type TCursor is ref cursor; procedure GetTableUsers(Pr_id in varchar2, p_Cursor out TCursor);
end PkgTest;
/
create or replace package body PkgTest is
procedure GetTableUsers(Pr_id in varchar2, p_Cursor out TCursor) is
v_SQL varchar2(1024);
begin
v_SQL := 'select * from users where pr_id=' || Pr_id;
open p_Cursor for
v_SQL;
end GetTableUsers;
end PkgTest;
/
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货