DBMS_OUTPUT.PUT(vemp(j).empno||''''  ''''||vemp(j).ename||'''' ''''||vemp(j).job);

              DBMS_OUTPUT.PUT(vemp(j).mgr||''''  ''''||vemp(j).hiredate||'''' ''''||vemp(j).sal);

              DBMS_OUTPUT.PUT_line(vemp(j).comm||''''  ''''||vemp(j).deptno);

       END LOOP;

END;

/

Q.一旦将值送到PL/SQL表后，尝试在PL/SQL表中插入新记录并且删除某些现有的记录。

A.

DECLARE

       TYPE emprec 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

       );

       i BINARY_INTEGER:=1;

       TYPE emp_tab IS TABLE OF EMPREC INDEX BY binary_integer;

       vemp EMP_TAB;

       CURSOR c1 IS SELECT * FROM emp;

BEGIN

       FOR x IN c1

       LOOP

              vemp(i).empno:=x.empno;

              vemp(i).ename:=x.ename;

              vemp(i).job:

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