Record和PL/SQL表
2009-07-10 13:42 Kevin-wang 阅读(375) 评论(0) 编辑 收藏 举报Record和PL/SQL表
一,什么是记录Record和PL/SQL表?
记录Record:由单行多列的标量类型构成的临时记录对象类型。类似于多维数组。
PL/SQL表:由多行单列的索引列和可用列构成的临时索引表对象类型。类似于一维数组和键值对。
都是用户自定义数据类型。
二,Record + PL/SQL表 用途是什么?
Record + PL/SQL表可以进行数据的多行多列存储。这样我们就可使用Record + PL/SQL表在需要时封装一个临时的表对象,进行传递和操作。
通过Record自定义表结构,封装一条记录。PL/SQL表声明 可用列 类型 为Record类型(将可用列指向Record类型变量),每个索引对应一个Record类型变量。
三,使用Record + PL/SQL表进行数据的多行多列存储
①声明Record类型和PL/SQL表,
其中PL/SQL表的索引列为主键约束和唯一约束列或自增Integer。可用列为Record类型或%RowType类型。
②填充PL/SQL表可用列(Record类型):通过索引指向Record,使用Record访问记录成员。
语法:
PL/SQL表名(索引列值).记录成员 := 记录成员类型值;
或
PL/SQL表名(索引列值) := Record类型变量;
--注意其PL/SQL表中声明的可用列要和这里赋值的Record类型变量结构一样
③访问PL/SQL表
下面是例子:
/*conn scott/tiger
Create table empa as select * from emp;
*/
例子:
Declare
Type RecType Is Record
(
rno empa.empno%type,
rname empa.ename%type,
rsal empa.sal%type
);
Type TabType Is Table Of RecType Index By Binary_Integer;
MyTab TabType;
vN Number;
Begin
--填充
vN := 1;
For varR In (Select * From empa 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;
--访问
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;
例子:利用记录Record可用整体赋值的特性来填充PL/SQL表
Declare
Type RecType Is Record
(
rno empa.empno%type,
rname empa.ename%type,
rsal empa.sal%type
);
Type TabType Is Table Of RecType Index By Binary_Integer;
MyTab TabType;
vN Number;
Begin
--填充
vN := 1;
For varR In (Select empno, ename, sal From empa Order By empno ASC)
Loop
MyTab(vN) := varR; --记录整体赋值
vN := vN + 1;
End Loop;
--访问
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;
例子:使用主键约束和唯一约束列做为索引列(使用EMP表中的empno作为索引列)
和使用自定义Record类型作为可用列
Declare
Type RecType Is Record
(
rno empa.empno%Type,
rname empa.ename%Type,
rsal empa.sal%Type
);
Type TabType Is Table Of RecType Index By Binary_Integer;
MyTab TabType;
vN empa.empno%Type;
Begin
--填充
For varR In (Select empno,ename,sal From empa Order By empno)
Loop
MyTab(varR.empno) := varR;
End Loop;
--访问
vN := MyTab.First;
For varR In 1..MyTab.Count
Loop
DBMS_OUTPUT.PUT_LINE(MyTab(vN).rno||' '||MyTab(vN).rname||' '||MyTab(vN).rsal);
vN := MyTab.Next(vN);
End Loop;
End;
例子:使用主键约束和唯一约束列做为索引列(使用EMP表中的empno作为索引列)
和使用%RowType类型作为可用列
Declare
Type TabType Is Table Of empa%RowType Index By Binary_Integer;
MyTab TabType;
vN empa.empno%Type;
Begin
--填充
For varR In (Select * From empa Order By empno)
Loop
MyTab(varR.empno) := varR;
End Loop;
--访问
vN := MyTab.First;
For varR In 1..MyTab.Count
Loop
DBMS_OUTPUT.PUT_LINE(MyTab(vN).empno||' '||MyTab(vN).ename||' '||MyTab(vN).sal);
vN := MyTab.Next(vN);
End Loop;
End;