Oracle 中游标实例

隐式游标

begin

update try set 成绩=60 where 课程编号='C008' and 成绩<60;

if SQL%notfound then

dbms_output.put_line('There is no score below 60!');

end if;

end;

/

-- 游标变量的使用

declare

type cursor_type is ref cursor;

stu_cursor cursor_type;

v_stu 学生基本信息%rowtype;

notfound boolean;

begin

open stu_cursor for

select * from 学生基本信息 where 性别='女';

loop

fetch stu_cursor into v_stu;

notfound:=stu_cursor%notfound;

exit when notfound;

dbms_output.put_line(v_stu.学号||' '||v_stu.姓名||' '||v_stu.性别||' '||v_stu.民族);

end loop;

close stu_cursor;

open stu_cursor for

select * from 学生基本信息 where 性别='男';

loop

fetch stu_cursor into v_stu;

notfound:=stu_cursor%notfound;

exit when notfound;

dbms_output.put_line(v_stu.学号||' '||v_stu.姓名||' '||v_stu.性别||' '||v_stu.民族);

end loop;

close stu_cursor;

end;