|
很长一段时间内PL/SQL开发人员必须有一个indexby表才能创建某个指定数据类型的或者PL/SQL记录的表 因为他们只接受整型数据以从数组中提取数据所以类型声明的末尾子句以INDEX BY BINARY_INTEGER结束 如果想以非整型值作为索引要么你必须创建一个存储过程来扫描需要的值要么你必须在一个单独的表上建立一个索引 declare type valrec is record(key varchar()val varchar()); type valtbl is table of valrec index by binary_integer; mytbl valtbl; begin mytbl()key := foo; mytbl()val := bar; for i in unt loop if mytbl(i)key = foo then dbms_outputput_line(mytbl(i)val); end if; end loop; end; PL/SQL允许使用indexby表创建某个指定数据类型或者PL/SQL记录的表 然而如果想以非整型值作为索引要么你必须创建一个存储过程扫描你需要的值要么你必须在一个单独的表上建立一个索引 Oraclei扩展了indexby表的语法允许字符串类型的索引叫做关联数组 有了字符串类型你现在就可以快速访问元素而不用再在每个元素间循环或者去知道它在数组中的位置 declare type valtbl is table of varchar() index by varchar(); mytbl valtbl; begin mytbl(zhao) := apple; mytbl(zhao):= orange; dbms_outputput_line(mytbl(zhao)); dbms_outputput_line(mytbl(zhao)); end; 使用字符串索引的关联数组的一个有趣的特性是它们自动地通过当前的国际语言支持（NLS）设置排序 FIRST和LAST函数返回数组中以字典序排列的第一个和最后一个健值NEXT和PRIOR允许你以字典序获取下一个和前一个键 declare type valtbl is table of varchar() index by varchar(); mytbl valtbl; key varchar(); begin mytbl(b) := two; mytbl(a) := one; mytbl(c) := three; key := mytblfirst; while key is not null loop dbms_outputput_line(mytbl(key)); key := mytblnext(key); end loop; end; 因为Oracle可以自动地将任何的数据类型转换为字符串类型所以能以字符串作为索引意味着可以以任何数据类型作为索引 你可以使用这个方法把日期浮点值行二进制值和对象引用作为索引 declare type timetbl is table of integer index by varchar(); mytbl timetbl; key varchar(); begin for row in (select * from emp) loop key := to_char(rowhiredateYYYYMMDD); if not mytblexists(key) then mytbl(key) := ; end if; mytbl(key) := mytbl(key) + ; end loop; dbms_outputput_line(hiring barchart:); dbms_outputput_line(); key := mytblfirst; while key is not null loop dbms_outputput_line( to_char(to_date(keyYYYYMMDD)DD MON YYYY) ||: ||rpad(#mytbl(key)#)); key := mytblnext(key); end loop; end; 键值必须是唯一的并且是大小写敏感的在运行时改变NLS值可能会产生运行时错误 对于关联数组的每一个操作NLS设置必须保持相同 关联数组必须在PL/SQL代码中手工建立 其它的程序开发语言和接口不能把主机数组绑定到并联数组所以你就不能用字符串索引的关联数组使用BULK COLLECT |
