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; --相當(dāng)使用EMP表中的empno作為索引列
End Loop;
*/
--上面3中訪問方式,則根據(jù)具體的需要的數(shù)據(jù)不同而決定
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; |