PLSQL 申明和游標

--從鍵盤輸入一個數
accept b prompt '請輸入一個大于零的數字';
declareanum number := &b;
beginwhile anum>0loopdbms_output.put_line(anum);anum:=anum-1;end loop;
end;declarev_num number;
begin
-- 從stsu表中選出id最大的值，并根據該值打印次數select max(id) into v_num from stsu;loopdbms_output.put_line(v_num);v_num := v_num-1;exit when v_num=0;end loop;
end;declarecursor cur is select id,math from stsu;
beginfor cur in (select id,math from stsu)loopdbms_output.put_line(cur.id ||'編號學員的數學分數：'||cur.math);end loop;
end;declare cursor cursor_id is select id,math from stsu;v_id stsu.id%type;v_math stsu.math%type;
begin --打開游標open cursor_id;loop -- 抓取數據fetch cursor_id into v_id,v_math;exit when cursor_id%notfound;dbms_output.put_line(v_id||'  '||v_math);end loop;-- 關閉游標close cursor_id;
end;

?