PL/SQL 游标使用

set serveroutput on

declare

/*定义游标，默认输入参数值为4000*/

cursor cur_emp ( var_sal in varchar2 := 4000 )

is select empno, ename, job 

from emp

where sal = var_sal;

/*定义record变量，保存游标查询到的结果信息*/

type record_info is record

(

var_empno emp.empno%type,

var_ename emp.ename%type,

var_job emp.job%type

);

record_emp record_info;

begin

/*打开游标*/

open cur_emp(5000);

/*引用一条结果*/

fetch cur_emp into record_emp;

/*当结果存在，%found 为true时执行while循环，知道结果都查询完毕*/

while record_emp%found loop

dbms_output.put_line(record_emp.ename || '编号是' || record_emp.empno || '工作是' || record_emp.job );

fetch cur_emp into record_emp;

end loop;

/*关闭游标*/

close cur_emp;

end;

/