REF游标的用法

--REF游标的用法


DECLARE 
--定义一个弱类型游标数据类型
  TYPE emp_cursor_type IS REF CURSOR;
  --声明一个游标变量
  c1 emp_cursor_type;
  --声明两个记录变量
  v_emp_record emp%ROWTYPE;
  v_dept_record dept%ROWTYPE;
BEGIN 
--打开游标
OPEN c1 FOR SELECT*FROM emp p WHERE p.deptno=20;
LOOP
--提取游标
FETCH c1 INTO v_emp_record;
EXIT WHEN c1%NOTFOUND;
dbms_output.put_line(v_emp_record.ename||'的薪水是:'||v_emp_record.sal||'部门编号:'||v_emp_record.deptno);
END LOOP;
--关闭游标
CLOSE c1;


OPEN c1 FOR SELECT*FROM dept t ;
LOOP
FETCH c1 INTO v_dept_record;
EXIT WHEN c1%NOTFOUND;
dbms_output.put_line(v_dept_record.deptno||'---'||v_dept_record.dname||'---'||v_dept_record.loc);
END LOOP;
CLOSE c1;
END;