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;