Oracle 游标实例

declare
 
linenumA varchar2(30);
skdwA varchar2(30);
 
cursor getlines is
select linenum,skdw from zw_skdwqr 
where linenum in('2009121669117392') 
and qrbz=1 and lx=1 ;
 
begin
 
if getlines%isopen = false then
 
open getlines;
 
end if;
 
fetch getlines into linenumA,skdwA;
 
while getlines%found 
loop
delete from zw_skdwqr where linenum=linenumA and lx=1
and skdw=skdwA and qrbz=2;
commit;
fetch getlines into linenumA,skdwA;
end loop;
close getlines;
end;