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';