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;