OracleREF动态游标使⽤
--(1)强类型
select * from customer;
select * from dept;
declare
--声明游标类型返回记录类型
type cur_ref1 is ref cursor return customer%rowtype;
type cur_ref2 is ref cursor return dept%rowtype;
--声明游标类型变量
my1 cur_ref1;
my2 cur_ref2;
-
-声明游标记录类型
oracle游标的使用
v_t1 my1%rowtype;
v_t2 my2%rowtype;
begin
--打开游标
open my1 for select * from customer;
--提取游标的数据
loop
fetch my1 into v_t1;
exit when my1%notfound;
dbms_output.put_line(v_t1.name||'-->'||v_t1.location);
end loop;
--关闭游标
close my1;
--打开游标
open my2 for select * from dept;
--提取游标的数据
loop
fetch my2 into v_t2;
exit when my2%notfound;
dbms_output.put_line(v_t2.dname||'-->'||v_t2.loc);
end loop;
-
-关闭游标
close my2;
end;
--(2)弱类型
declare
--声明游标类型返回记录类型
type cur_ref is ref cursor;
--声明游标类型变量
my cur_ref;
--声明游标记录类型
v_t1 customer%rowtype;
v_t2 dept%rowtype;
begin
--打开游标
open my for select * from customer;
--提取游标的数据
loop
loop
fetch my into v_t1;
exit when my%notfound;
dbms_output.put_line(v_t1.name||'-->'||v_t1.location);  end loop;
--打开同⼀个游标
open my for select * from dept;
--提取游标的数据
loop
fetch my into v_t2;
exit when my%notfound;
dbms_output.put_line(v_t2.dname||'-->'||v_t2.loc);
end loop;
--关闭游标
close my;
end;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。