PL/SQL表:

有时也被称为索引表（index-by tables），可以在PL/SQL中使用，能够模仿数组的非永久表。

用法：

1、 定义一个PL/SQL表类型

2、 声明这种类型的变量。

3、 将记录添加到PL/SQL表中，并采用与引用数组元素大体相同的方式引用他们

语法：p233

特点：只能有一列和一个主健。但是可以有无数的行

举例：

set serveroutput on

declare                              --定义PL/SQL表

       type my_text_table_type is table of varchar2(200)

              index by binary_integer;

type my_emp_table_type is table of employees%rowtype

              index by binary_integer;

       l_text_table my_text_table_type;

       l_emp_table my_emp_table_type;

begin

       l_text_table(1) :=’donny’;

       l_text_table(2) :=’Chen’;

       l_emp_table(10).employee_id :=10;

       l_emp_table(10).first_name      :=’Sean’;

       l_emp_table(10).last_name      :=’Dillon’;

       l_emp_table(10).email                     :=’donny@hotmail’;

       l_emp_table(10).hire_date              :=sysdate;

       l_emp_table(10).job_id             :=’HR’;

       l_emp_table(20).employee_id :=20;

       l_emp_table(20).first_name      :=’Chris’;

       l_emp_table(20).last_name      :=’Doo’;

       l_emp_table(20).email                     :=’donny@sina’;

       l_emp_table(20).hire_date              :=sysdate-5;

       l_emp_table(20).job_id             :=’IT’;

       dbms_output.put_line(l_text_table.count);

       dbms_output.put_line(l_emp_table.count);

       dbms_output.put_line(l_text_table(1));

       dbms_output.put_line(l_text_table(2));

       dbms_output.put_line(l_emp_table(1).first_name);

       dbms_output.put_line(l_emp_table(2).first_name);

end;

/

关于索引算子：

必须是合法的BINARY_INTEGER，介于­-2的31次幂～2的31次幂

从PL/SQL表中删除记录：

declare                              --定义PL/SQL表

       type my_text_table_type is table of varchar2(200)

              index by binary_integer;

       l_text_table my_text_table_type;

       l_empty_table my_text_table_type;

begin

       l_text_table(10):=’A value’;

       l_text_table(20):=’Another value’;

       l_text_table(30):=’third value’;

       dbms_output.put_line(l_text_table.count);

       l_text_table.DELETE(20);

       dbms_output.put_line(l_text_table.count);

       l_text_table.DELETE;

       dbms_output.put_line(l_text_table.count);

       l_text_table(15):=’some text’;

       l_text_table(25):=’ some more text’;

dbms_output.put_line(l_text_table.count);

       l_text_table:=l_empty_table;

dbms_output.put_line(l_text_table.count);

end;

/

FIRST / NEXT / LAST:

我们知道count返回表中行的数量。

FIRST: 返回PL/SQL表中“第一个”或者最小的索引。LAST则是最后一个。

NEXT返回PL/SQL表中当前索引的下一个索引。NEXT有一个参数，即当前的索引。

Conn scott/tiger

Set serveroutput on

Declare

       type my_text_table_type is table of varchar2(200)

              index by binary_integer;

       l_text_table my_text_table_type;

       l_index number;

begin

       for emp_rec in (select * from emp) loop

              l_text_table(emp_rec.empno):=emp_rec.ename;

       end loop;

       l_index:= l_text_table.first;

       loop

              exit when l_index is null;

              dbms_output.put_line(l_index ||’:’|| l_text_table(l_index));

              l_index :=l_text_table.next(l_index);

       end loop;

end;

/

记录：

TYPE <记录名称> IS RECORD(

       字段名1 类型；

       字段名2 类型；

。。。。。。

);

记录可以拥有任意数目的不同数据类型的列，而PL/SQL表却不是这样的，只能有一列和一个主健。

declare

       type location_record_type is record(

              street_address    varchar2(40),

              postal_code         varchar2(40),

              city                      varchar2(30),

              state_province     varchar2(25),

              contry_id              char(2) not null :=’US’

);

       l_my_loc location_record_type;

begin

       l_my_loc.street_address:=’

       l_my_loc.postal_code:=’10010’;

       l_my_loc.city:=’Reston’;

       l_my_loc.state_province:=’CA’;

       dbms_output.put_line(l_my_loc.street_address);

       dbms_output.put_line(l_my_loc.postal_code);

       dbms_output.put_line(l_my_loc.city);

       dbms_output.put_line(l_my_loc.state_province);

end;

/

绑定变量：

declare

       type Numtab is table of char(15) index by binary_integer;

       type Nametab is table of char(25) index by binary_integer;

       vnums Numtab;

       vname Nametab;

       t1 char(5);

       t2 char(5);

       t3 char(5);

       procedure get_time( t out number) is

       begin    

              select to_char(sysdate,’sssss’) into t from dual;

       end;

begin

       for j in 1.. 15000 loop

              vnums(j) :=j;

              vname(j) :=’vendor nmane ‘ || to_char(j);

       end loop;

       get_time(t1);

forall i in 1.. 15000

              insert into vender values(vnums(i), vname(i));     

get_time(t2);

       for i in 1.. 15000 loop

              insert into vender values(vnums(i), vname(i));     

       end loop;

       get_time(t3);

       dbms_output.put_line(‘Forall loop ’|| to_char(t2-t1));

       dbms_output.put_line(‘For loop ’|| to_char(t3-t2));

end;

/

declare

       type Numtab is table of char(15) index by binary_integer;

       type Nametab is table of char(25) index by binary_integer;

       vnums Numtab;

       vname Nametab;

       cursor c1 is select * from vender;

begin

       open c1;

       fetch c1 bulk collect into vnums, vname;

       dbms_output.put_line(vnums.count);

       close c1;

end;

/

create or replace type add_ty as object(

                     h_no number(3),

                     h_street varchar2(20),