－－－－－－－－－－－－－－－－index-by表－－－－－－－－－－－－－－－－－－－－－－－－

index－by表

定义——由与数组类似同质元素的集合组成的一种复合数据类型。

集合中的元素是稀疏分布的，没有限定的边界，只是由整数索引将其连接在一起。可以是整数、负整数。


1、定义和赋值

数字

declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=13;

begin

 v_example_tab(1):=1001;

 v_example_tab(2):=1002;

 v_example_tab(10):=1010;

 v_example_tab(-10):=1011;

 v_example_tab(0):=1000;

 v_example_tab(v_num):=1013;

 dbms_output.put_line(to_char(v_example_tab(1)));

 dbms_output.put_line(to_char(v_example_tab(2)));

 dbms_output.put_line(to_char(v_example_tab(10)));

 dbms_output.put_line(to_char(v_example_tab(-10)));

 dbms_output.put_line(to_char(v_example_tab(0)));

 dbms_output.put_line(to_char(v_example_tab(v_num)));

end;



字符串的

declare

 type num_table is table of varchar2(20) index by binary_integer;

 v_example_tab num_table;

 v_num number:=13;

begin

 v_example_tab(1):='xxxx';

 v_example_tab(2):='yyyy';

 v_example_tab(10):='ooooo';

 v_example_tab(-10):='99999';

 dbms_output.put_line(v_example_tab(1));

 dbms_output.put_line(v_example_tab(2));

 dbms_output.put_line(v_example_tab(10));

 dbms_output.put_line(v_example_tab(-10));

end;


记录

declare

 type hrc_org_rec is record(hrc_code number,hrc_descr varchar2(20));

 type num_table  is table of hrc_org_rec index by binary_integer;

 v_example_tab_x num_table;

 v_num number:=13;

begin

 v_example_tab_x(1).hrc_code:=1000;

 v_example_tab_x(1).hrc_descr:='yyyy';

 v_example_tab_x(2).hrc_code:=1001;

 v_example_tab_x(2).hrc_descr:='99999';

 dbms_output.put_line(to_char(v_example_tab_x(1).hrc_code));

 dbms_output.put_line(v_example_tab_x(1).hrc_descr);

 dbms_output.put_line(to_char(v_example_tab_x(2).hrc_code));

 dbms_output.put_line(v_example_tab_x(2).hrc_descr);

end;


2、index-by的聚集赋值方法


declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_example_tab1 num_table;

 v_num number:=13;

begin

 v_example_tab(1):=1001;

 v_example_tab(2):=1002;

 v_example_tab(10):=1010;

 v_example_tab(-10):=1011;

 v_example_tab(0):=1000;

 v_example_tab(v_num):=1013;

 v_example_tab1:=v_example_tab;   －－聚集赋值

 dbms_output.put_line(to_char(v_example_tab1(1)));

 dbms_output.put_line(to_char(v_example_tab1(2)));

 dbms_output.put_line(to_char(v_example_tab1(10)));

 dbms_output.put_line(to_char(v_example_tab1(-10)));

 dbms_output.put_line(to_char(v_example_tab1(0)));

 dbms_output.put_line(to_char(v_example_tab1(v_num)));

end;


3、访问未定义的行


declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_example_tab1 num_table;

 v_num number:=13;

begin

 v_example_tab(1):=1001;

 v_example_tab(2):=1002;

 v_example_tab(10):=1010;

 v_example_tab(-10):=1011;

 v_example_tab(0):=1000;

 v_example_tab(v_num):=1013;

 v_example_tab1:=v_example_tab;

 dbms_output.put_line(to_char(v_example_tab1(1)));    －－输出正常

 dbms_output.put_line(to_char(v_example_tab1(2)));    －－输出正常

 dbms_output.put_line(to_char(v_example_tab1(5)));    －－报错，数据找不到

 dbms_output.put_line(to_char(v_example_tab1(10)));   －－后面的不再输出，程序中断

 dbms_output.put_line(to_char(v_example_tab1(-10)));

 dbms_output.put_line(to_char(v_example_tab1(0)));

 dbms_output.put_line(to_char(v_example_tab1(v_num)));

end;


4、通过赋值元素来创建index-by的行

declare

 type num_table is table of varchar2(20) index by binary_integer;

 v_example_tab num_table;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 for idx in 1..10 loop

   dbms_output.put_line(to_char(v_example_tab(idx)));

 end loop;

end;


5、删除index－by的内容


declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_example_tab1 num_table;

 v_num number:=13;

begin

 v_example_tab(1):=1001;

 v_example_tab(2):=1002;

 v_example_tab(10):=1010;

 v_example_tab(-10):=1011;

 v_example_tab(0):=1000;

 v_example_tab(v_num):=1013;

 v_example_tab:=v_example_tab1;   －－用空的index-by赋值相当于删除

 dbms_output.put_line(to_char(v_example_tab(1)));

 dbms_output.put_line(to_char(v_example_tab(2)));

 dbms_output.put_line(to_char(v_example_tab(10)));

 dbms_output.put_line(to_char(v_example_tab(-10)));

 dbms_output.put_line(to_char(v_example_tab(0)));

 dbms_output.put_line(to_char(v_example_tab(v_num)));

end;


6、index-by的方法

===A exists方法——判断元素是否存在


declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=13;

begin

 v_example_tab(1):=1001;

 v_example_tab(2):=1002;

 v_example_tab(10):=1010;

 v_example_tab(-10):=1011;

 v_example_tab(0):=1000;

 v_example_tab(v_num):=1013;

 if v_example_tab.exists(-10) then

   dbms_output.put_line('YES');

 else

    dbms_output.put_line('NO');

 end if;

end;


===B count方法——取index-by的元素个数，就是计算已经定义的index-by行（索引、下标）的个数


declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=0;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 for idx in 1..10 loop

   dbms_output.put_line(to_char(v_example_tab(idx)));

 end loop;

end;


===C delete——删除元素

declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=0;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 v_example_tab.delete(1);

 v_example_tab.delete(3);

 v_example_tab.delete(7);

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

end;

---------------------------------

declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=0;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 v_example_tab.delete(1);

 v_example_tab.delete(3);

 v_example_tab.delete(7);

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 for idx in 1..v_num loop

   if v_example_tab.exists(idx) then

     dbms_output.put_line(to_char(v_example_tab(idx)));

   else

     dbms_output.put_line('NULL!');

   end if;

 end loop;

end;


输出：

10

7

NULL!

5

NULL!

9

11

13

NULL!


8～10个元素是没有输出的。


===E first、last、next====

first——取index-by表第一个不为null的元素

last——取index-by表最后一个不为null的元素

next——取index-by表下一个不为null的元素

declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=0;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 v_example_tab.delete(1);

 v_example_tab.delete(3);

 v_example_tab.delete(7);

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 for idx in v_example_tab.first..v_example_tab.last loop

   if v_example_tab.exists(idx) then

     dbms_output.put_line(to_char(v_example_tab(idx)));

   else

     dbms_output.put_line('NULL!');

   end if;

 end loop;

end;


====或者只输出不为null的元素=====

declare

 type num_table is table of number index by binary_integer;

 v_example_tab num_table;

 v_num number:=0;

 idx integer;

begin

 for idx in 1..10 loop

   v_example_tab(idx):=(2*idx)+1;

 end loop;

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 v_example_tab.delete(1);

 v_example_tab.delete(3);

 v_example_tab.delete(7);

 v_num:=v_example_tab.count;

 dbms_output.put_line(to_char(v_num));

 idx:=v_example_tab.first;   ---为5

 loop

   if v_example_tab.exists(idx) then

     dbms_output.put_line(to_char(v_example_tab(idx)));

   end if;

   exit when idx=v_example_tab.last;  --当到最后一个时退出

   idx:=v_example_tab.next(idx);

 end loop;

end;


7、引用记录的index-by表

==A 分散赋值

declare

 type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));

 type num_table is table of hrc_org_rec index by binary_integer;

 v_example_tab num_table;

 cursor csr_hrc_org is select hrc_org_seq.nextval hrc_org_id,h.hrc_descr,o.org_short_name

                         from org_tab o,hrc_tab h

                        where o.hrc_code=h.hrc_code;

 i integer:=1;

begin

 for idx in csr_hrc_org loop

   v_example_tab(i).hrc_org_id:=idx.hrc_org_id;

   v_example_tab(i).hrc_descr:=idx.hrc_descr;

   v_example_tab(i).org_short_name:=idx.org_short_name;

   i:=i+1;

 end loop;

 for j in 1..v_example_tab.count loop

   if v_example_tab.exists(j) then

     dbms_output.put_line(to_char(v_example_tab(j).hrc_org_id));

     dbms_output.put_line(v_example_tab(j).hrc_descr);

     dbms_output.put_line(v_example_tab(j).org_short_name);

   end if;

 end loop;

end;


==B 聚集赋值

declare

 type hrc_org_rec is record(hrc_org_id number,hrc_descr varchar2(20),org_short_name varchar2(30));

 type num_table is table of hrc_org_rec index by binary_integer;

 v_example_tab num_table;

 cursor csr_hrc_org is select hrc_org_seq.nextval hrc_org_id,h.hrc_descr,o.org_short_name

                         from org_tab o,hrc_tab h

                         where o.hrc_code=h.hrc_code;

 i integer:=1;

begin

 for idx in csr_hrc_org loop

 v_example_tab(i):=idx;－－把游标句柄赋给index-by，

                       等于把游标字段的每个属性值赋给了index-by基于记录的每个字段的属性

 i:=i+1;

 end loop;

 for j in 1..v_example_tab.count loop

   if v_example_tab.exists(j) then

     dbms_output.put_line(to_char(v_example_tab(j).hrc_org_id));

     dbms_output.put_line(v_example_tab(j).hrc_descr);

     dbms_output.put_line(v_example_tab(j).org_short_name);

   end if;

 end loop;

end;


练习：将员工的姓名、薪资、职位、部门名称用记录的方式存储在index-by中，然后输出这个index－by。

-------------------------------

declare

 type rc is record(rc_ename varchar2(10),rc_sal number(7,2),rc_job varchar(9),rc_dname varchar(14));

 type rc_index is table of rc index by binary_integer;

v_exp rc_index;

i integer:=1;

begin

for idx in (select a.ename,a.sal,a.job,b.dname from emp a,dept b

                where a.deptno=b.deptno) --这里为隐式游标

loop

v_exp(i):=idx;

i:=i+1;

end loop;

for j in 1..v_exp.count loop

if v_exp.exists(j) then

dbms_output.put_line(to_char(v_exp(j).rc_ename));

dbms_output.put_line(to_char(v_exp(j).rc_sal));

dbms_output.put_line(to_char(v_exp(j).rc_job));

dbms_output.put_line(to_char(v_exp(j).rc_dname));

end if;

end loop;

end;

-----------------------------------------------------