第三阶段

Q.使用REF游标显示“EMP”表中的值。

A.

DECLARE

       TYPE emprectyp IS RECORD

       (

         EMPNO  emp.empno%TYPE,        

         ENAME  emp.ename%TYPE,

         JOB    emp.job%TYPE,

         MGR    emp.mgr%TYPE,    

         HIREDATE emp.hiredate%TYPE,

         SAL      emp.sal%TYPE,

         COMM     emp.comm%TYPE,

         DEPTNO   emp.deptno%TYPE

       );

       TYPE emp_cursor IS REF CURSOR RETURN emp%ROWTYPE;

       vemp_cur EMP_CURSOR;

       vemp_rec EMPRECTYP;

BEGIN

       OPEN vemp_cur FOR SELECT * FROM emp;

       LOOP

              FETCH vemp_cur INTO vemp_rec;

              EXIT WHEN vemp_cur%NOTFOUND;

              DBMS_OUTPUT.PUT(vemp_rec.empno||''''  ''''||vemp_rec.ename||'''' ''''||vemp_rec.job);

              DBMS_OUTPUT.PUT(vemp_rec.mgr||''''  ''''||vemp_rec.hiredate||'''' ''''||vemp_rec.sal);

              DBMS_OUTPUT.PUT_line(vemp_rec.comm||''''  ''''||vemp_rec.deptno);

       END LOOP;

       CLOSE vemp_cur;

END;

/

Q.从“EMP”中获得值送到PL/SQL表，将PL/SQL表中的薪水值增加

[1] [2] [3] [4] [5] [6]  下一页