顯示16行出錯?
set serveroutput on
declare
cursor guangbiao01 is select to_char(hiredate,'yyyy') FROM emp;
hiredata ?VARCHAR2(4);
a80 number:=0;
a81 number:=0;
a82 number:=0;
a87 number:=0;
begin
open guangbiao01;
LOOP
fetch guangbiao01 INTO hiredata;
EXIT when guangbiao01%notfound;
if hiredata ='1980' then a81:=a81+1;
ELSIF hriedata ='1981' then a81:=a81+1;
elsif hiredata ='1982' then a82:=a82+1; ?這里說是有問題大神們給看看啊受不了了
else hriedata ='1987' then a87:=a87+1;
end if;
end loop;
close guangbiao01;
dbms_output.put_line('tol'||(a80+a81+a82+a87));
dbms_output.put_line(a80);
dbms_output.put_line(a81);
dbms_output.put_line(a82);
dbms_output.put_line(a87);
end;
/
2016-05-18
set serveroutput on
declare
cursor guangbiao01 is select to_char(hiredate,'yyyy') FROM emp;
hiredata ?VARCHAR2(4);
a80 number:=0;
a81 number:=0;
a82 number:=0;
a87 number:=0;
begin
open guangbiao01;
LOOP
fetch guangbiao01 INTO hiredata;
EXIT when guangbiao01%notfound;
if hiredata ='1980' then a81:=a81+1;
ELSIF hiredata ='1981' then a81:=a81+1;--這里寫錯
elsif hiredata ='1982' then a82:=a82+1;?
else ?a87:=a87+1; ? ? ? ? ? ? ? ? ? ? ?--這里寫錯
end if;
end loop;
close guangbiao01;
dbms_output.put_line('tol'||(a80+a81+a82+a87));
dbms_output.put_line(a80);
dbms_output.put_line(a81);
dbms_output.put_line(a82);
dbms_output.put_line(a87);
end;
/