关于有关联的查询的游标问题

Question

create or replace procedure getbm as
  v_sheng varchar2(10):='';
  cursor c_sheng is select * from sheng;
  cursor c_shi(v_id number) is
    select * from shi where sheng=v_id;  //动态游标
begin
 flag:=1;
 c_sheng.open;
 loop
  exit when c_sheng%notfound;
  fetch c_sheng into v_sheng;
  for row_shi in c_shi(v_sheng.id) loop   --可以在这里可以使用c_shi游标
    ...
  end loop;
 end loop;
 c_sheng.close;
end getbm;

Answer 1

两种解决方案，不知楼主是否要哪种:
create or replace procedure getbm as
  v_sheng varchar2(10):='';
  cursor c_sheng is select * from sheng;
  cursor c_shi(v_id varchar2) is
  select * from shi where sheng=v_id;
begin
 --flag:=1;
 for v_sheng in c_sheng loop
 for v_shi in c_shi(v_sheng.id) loop
 .....
 end loop;
 end loop;
end getbm;
/第二种:
CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;
END pkg_test;
/
create or replace procedure getbm(p_rc out pkg_test.myrctype)
as
  cursor c_sheng is select * from sheng;
  --cursor c_shi(v_id varchar2) is select * from shi where sheng=v_id;
  str varchar2(100);
  flag number:=0;
begin
 for v_sheng in c_sheng loop
 if flag=0 then
 str:='select * from shi where sheng='||v_sheng.id;
 flag:=flag+1;
 else
 str:=str||' union select * from shi where sheng='||v_sheng.id;
 end if;
 end loop;
open p_rc for str;
end;
/
 .....
 end loop;
 end loop;
end getbm;
/

Answer 2

因为c_shi这个游标的sql语句中包含了变量
所以使用动态游标，也就是带参数的游标。