Declare
Type RecType Is Record(rno emp.empno%type, rname emp.ename%type, rsal emp.sal%type);
Type TabType Is Table Of RecType Index By Binary_Integer;
MyTab TabType; --为TabType对象指定名称
vN Number;
Begin
--填充
vN := 1;
For varR In (Select * From emp Order By empno ASC) Loop --或下面的红色注释也行
MyTab(vN).rno := varR.empno;
MyTab(vN).rname := varR.ename;
MyTab(vN).rsal := varR.sal;
vN := vN + 1;
End Loop;
/*
For varR In (Select empno, ename, sal From empa Order By empno ASC) Loop
MyTab(vN) := varR; --记录整体赋值
vN := vN + 1;
End Loop;
或指定单列索引
For varR In (Select empno,ename,sal From empa Order By empno) Loop
MyTab(varR.empno) := varR; --相当使用EMP表中的empno作为索引列
End Loop;
*/
--上面3中访问方式,则根据具体的需要的数据不同而决定
vN := MyTab.First;
For varR In vN .. MyTab.count Loop
DBMS_OUTPUT.PUT_LINE(vN ||'===='||MyTab(vN).rno||'===='||MyTab(vN).rname||'===='||MyTab(vN).rsal);
vN := MyTab.Next(vN); --指定下一个
End Loop;
End; |