-- 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);
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);