oracle练习七.txt

//使用隐式游标
declare
a number:=0;
begin
for emp in (select empno,ename,sal from emp 
order by sal desc)
loop
dbms_output.put_line('员工编号:'||' '||emp.empno);
dbms_output.put_line('姓名:'||' '||emp.ename);
dbms_output.put_line('工资:'||' '||emp.sal);
a:=a+1;
if a=5 then
exit;
end if;
end loop;
end;
//使用显式游标
declare
cursor emp_cursor is select empno,ename,sal from emp 
order by sal desc;
type v_emp is record(
id emp.empno%type,
name emp.ename%type,
sal emp.sal%type
);
emp_row v_emp;
a number:=0;
begin
open emp_cursor;
fetch emp_cursor into emp_row;