oracle查数据存入数组,oracle 数组兑现

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来得到一个数组--但只能对基本类型定义--此种方式实现的数组，需要制定上限，且下标连续，在使用之前须初始化--适用于数组长度不太大的情况

declaretype num_pid is varray(1000) of t_test_1.pid%type;v_num_pid    num_pid;i number(8):=1;beginv_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 .. 1000loop--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';