ORACLE 游标遍历

-- Created on 2011-10-9 by HUCHANGKUN
declare
  -- Local variables here
  CURSOR C_EVENT is  select t.eventname from T_Event t;
  temp T_Event.EVENTNAME%TYPE;
begin
  -- for 遍历游标
  for temp in C_EVENT
  Loop
      dbms_output.put_line('事件名称：'|| temp.EVENTNAME);
  End Loop;
 
  dbms_output.put_line('------------------分割线--------------');
 
  --while 遍历游标
  OPEN C_EVENT;--打开游标
  FETCH C_EVENT into temp; --取值
  while C_EVENT%found 
  Loop
    dbms_output.put_line('事件名称'||temp); --打印
    FETCH C_EVENT into temp; --取值
  End Loop;
  CLOSE C_EVENT;
 
  dbms_output.put_line('------------------分割线--------------');
  --loog 遍历游标
  OPEN C_EVENT;--打开游标
  Loop
      FETCH C_EVENT into temp; --取值
      Exit when C_EVENT%NOTFOUND;
      dbms_output.put_line('事件名称'||temp); --打印
  End Loop;
  CLOSE C_EVENT;
end;

注意：必须先fetch,再用游标的notfound来判断

---带入参的游标，注意只指定入参类型，不指定入参长度，且只有入参，无出参

-- Created on 2011-10-9 by HUCHANGKUN
declare
  -- Local variables here
  CURSOR C_EVENT(ROW_NUM NUMBER DEFAULT 3) is  (select t.eventname from T_Event t where rownum <ROW_NUM);
  temp T_Event.EVENTNAME%TYPE;
begin
  -- for 遍历游标
  for temp in C_EVENT(ROW_NUM=>2)
  Loop
      dbms_output.put_line('事件名称：'|| temp.EVENTNAME);
      dbms_output.put_line('index: '||C_EVENT%ROWCOUNT);
  End Loop;
 
  dbms_output.put_line('------------------分割线--------------');
 
  --while 遍历游标
  OPEN C_EVENT(ROW_NUM=>3);--打开游标
  FETCH C_EVENT into temp; --取值
  while C_EVENT%found 
  Loop
    dbms_output.put_line('事件名称：'||temp); --打印
    dbms_output.put_line('index: '||C_EVENT%ROWCOUNT);
    FETCH C_EVENT into temp; --取值
  End Loop;
  CLOSE C_EVENT;
 
  dbms_output.put_line('------------------分割线--------------');
  --loog 遍历游标
  OPEN C_EVENT(ROW_NUM=>4);--打开游标
  Loop
      FETCH C_EVENT into temp; --取值
      Exit when C_EVENT%NOTFOUND;
      dbms_output.put_line('事件名称：'||temp); --打印
      dbms_output.put_line('index: '||C_EVENT%ROWCOUNT);
  End Loop;
  CLOSE C_EVENT;
end;


注意捕获异常：
dbms_output.put_line(sqlcode||' '||sqlerrm);
sqlcode是错误代码，sqlerrm是错误信息，不是sql语句本身，我要的是发生错误的sql语句


exception
  when others then
  dbms_output.put_line(sqlcode||' '||sqlerrm);