oracle 数组实现
-一维数组：
--嵌套表
--尺寸没有限制。
--本质上是无序的
--VARRAY
--尺寸必须固定，所有的实例尺寸相同。
--在过程化语言中可以作为有序数组进行检索但在Oracle内部看成单个不能分割的单元。
--存储效率高。
--多维数组
--利用record 和record of
--建立测试表
drop table t_test_1;
create table t_test_1(
pid??? number(10),
pname? varchar2(20),
birth? date,
score? number(3),
note?? varchar2(50)
);
--初始化，插入数据
--利用了nested table 来实现一维数组
--不需要制定上下限，下表可以不连续，需初始化
--
declare
? type type_test_pid is table of t_test_1.pid%type
? index by binary_integer;
? type type_test_pname is table of t_test_1.pname%type
? index by binary_integer;
? type type_test_birth is table of t_test_1.birth%type
? index by binary_integer;
? type type_test_score is table of t_test_1.score%type
? index by binary_integer;
? type type_test_note is table of t_test_1.note%type
? index by binary_integer;
?
? my_test_pid?? type_test_pid;
? my_test_panme type_test_pname;
? my_test_birth type_test_birth;
? my_test_score type_test_score;
? my_test_note? type_test_note;
? i number(10) := 0;
begin
? for i in 1 .. 10000
? loop
??? my_test_pid(i) := i;
??? my_test_panme(i) := 'names_' || to_char(i);
??? my_test_birth(i) :=? sysdate;
??? my_test_score(i) := to_number(nvl(substr(to_char(i), -2), to_char(i)));
??? my_test_note(i) := my_test_panme(i)|| ' score is ' ||
??????????????????? nvl(substr(to_char(i), -2), to_char(i));???????????????????
? end loop;
? forall i in 1 .. 10000
??? insert into t_test_1
??? values(
??? my_test_pid(i),
??? my_test_panme(i),
??? my_test_birth(i),
??? my_test_score(i),
??? my_test_note(i)
??? );
?
? commit;
? exception
? when others then
?????? rollback;
end;
--使用varray实现数组
--自定义一个TYPE使用VARRAY来得到一个数组
--但只能对基本类型定义
--此种方式实现的数组，需要制定上限，且下标连续，在使用之前须初始化
--适用于数组长度不太大的情况
declare
type num_pid is varray(1000) of t_test_1.pid%type;
v_num_pid??? num_pid;
i number(8):=1;
begin
v_num_pid := num_pid();
v_num_pid.extend;
v_num_pid(1) := 1;
v_num_pid.EXTEND(999,1);--一次性添加999个第1个元素的副本
for i in 1 .. 1000
loop
--v_num_pid.extend; --每次扩展一个
v_num_pid(i) := i;
execute immediate 'update t_test_1 set score = trunc(score/2)
where pid=:1 '
using v_num_pid(i);
end loop;
end;
-使用record和table实现多维数组
?
Oracle系列：Record和PL/SQL表(table)
一，什么是记录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;
--取得表记录的第一个下标，不一定是1哦，让然在这里确实是1，因为上面是从1开始存的哦
???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);--可以换成vn:=vn+1;
???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;
注意这一点与上面的填充是不同的哦，上面的表索引时1,2,3。。。。知道把所有数据都放进去，这里的表索引是emp表的主键哦，这样下面在去这个table中的值时就不可以简简单单的让索引+1了，而是使用next（）函数了
???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;
Select???version???FROM???Product_component_version???
Where???SUBSTR(PRODUCT,1,6)='Oracle';