oracle循环rs,Oracle动态游标实现动态SQL循环遍历

动态游标可以遍历动态的表，

格式：

TYPE 游标类型 IS REF CURSOR; --定义一个动态游标

游标名　　游标类型;

如果查询的表的数据不同的，动态变化的，这时候可以用动态游标。

需要注意的是，动态游标的定义，

在普通存储过程中：需要放在 is 后面的第一行。

动态游标通过：open 游标 for 字符串，形式使用，遍历。

create or replace procedure P_TEST_SQL

is

TYPE ref_cursor_type IS REF CURSOR; --定义一个动态游标

tablename varchar2(200) default 'ess_client';

v_sql varchar2(1000);

mobile varchar2(15);

usrs ref_cursor_type;

begin

--使用连接符拼接成一条完整SQL

v_sql := 'select usrmsisdn from '||tablename||' where rownum < 11';

--打开游标

open usrs for v_sql ;

loop

fetch usrs into mobile;

exit when usrs%notfound;

insert into tmp(usrmsisdn) values(mobile);

end loop;

close usrs;

commit;

end P_TEST_SQL;

下面是一个实例

create or replace procedure DDGZ1--订单跟踪

(

P_flag varchar,--订单类型

P_operate varchar,--操作类型

P_BH varchar --传入的编号ID

)

is

TYPE ref_cursor_type IS REF CURSOR;

v_cur_CKD ref_cursor_type;

begin

open v_cur_CKD for 'select v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jlsj from tmp_DDGZ1';

fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;

while v_cur_CKD%found

loop

insert into DRPDDGZJL2 (JLID,DRP,ERP,JXS,JXSMC,JLSJ,GZJL,CZR,BHID) values(SYS_GUID(),v_drp,v_erp,v_jxs,v_jxsmc,v_jzsj,v_DWMC||'受托代销成品库接收订单，组织发货',v_CZR,'出库单'||P_BH);

fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;

end loop;

close v_cur_CKD;

end;

转自https://www.cnblogs.com/alsf/p/6285558.html#undefined