ORALCE 游标简单的实例

--取简单的游标

declare
   cursor sp is
   select * from user_tables;
   myrecord user_tables%ROWTYPE;
begin
   open sp ;
   fetch sp into myrecord;
   while sp%found loop
     dbms_output.put_line(myrecord.table_name);
     fetch sp into myrecord;
   end loop;
   close sp ;
end;

--带参数的游标

declare
   cursor sp(rownum number) is
   select * from user_tables a where a.NUM_ROWS>=rownum;
   myrecord user_tables%ROWTYPE;
begin
   open sp(10000) ;
   fetch sp into myrecord;
   while sp%found loop
     dbms_output.put_line(myrecord.table_name);
     fetch sp into myrecord;
   end loop;
   close sp ;
end;

--隐性游标

begin
   for sp in  (select * from user_tables) loop
     dbms_output.put_line(sp.table_name);
   end loop;
end;