Oracle数组入门

Oracle数组一般可以分为固定数组和可变数组

固定数组

Sql代码

declare

type v_ar is varray(10) of varchar2(30);

my_ar v_ar:=v_ar('g','m','d','龚','帅');

begin

for i in 1..my_ar.count

loop

dbms_output.put_line(my_ar(i));

end loop;

end;

declare

type v_ar is varray(10) of varchar2(30);

my_ar v_ar:=v_ar('g','m','d','龚','帅');

begin

for i in 1..my_ar.count

loop

dbms_output.put_line(my_ar(i));

end loop;

end;

可变数组

一维数组

Sql代码

declare

type v_table is table of varchar2(30) index by binary_integer;

--类型可以是前面的类型定义，index by binary_integer子句代表以符号整数为索引，

--这样访问表类型变量中的数据方法就是“表变量名(索引符号整数)”。

my_table v_table;

begin

for i in 1..20

loop

my_table(i):=i;

dbms_output.put_line(my_table(i));

end loop;

end;

declare

type v_table is table of varchar2(30) index by binary_integer;

--类型可以是前面的类型定义，index by binary_integer子句代表以符号整数为索引，

--这样访问表类型变量中的数据方法就是“表变量名(索引符号整数)”。

my_table v_table;

begin

for i in 1..20

loop

my_table(i):=i;

dbms_output.put_line(my_table(i));

end loop;

end;

多维数组--多条记录

Sql代码

declare

type v_table is table of t_user%rowtype index by binary_integer;

my_table v_table;

begin

select * bulk collect into my_table from t_user;

for i in 1..my_table.count/10 --my_table.count/10 取到的值为四舍五入值

loop

dbms_output.put_line('suser--'||my_table(i).suser);

dbms_output.put_line('name---'||my_table(i).name);

dbms_output.put_line('sex----'||my_table(i).sex);

end loop;

end;

declare

type v_table is table of t_user%rowtype index by binary_integer;

my_table v_table;

begin

select * bulk collect into my_table from t_user;

for i in 1..my_table.count/10 --my_table.count/10取到的值为四舍五入值

loop

dbms_output.put_line('suser--'||my_table(i).suser);

dbms_output.put_line('name---'||my_table(i).name);

dbms_output.put_line('sex----'||my_table(i).sex);

end loop;

end;

多维数组--单条记录

Sql代码

declare

type v_table is table of t_user%rowtype index by binary_integer;

my_table v_table;

begin

select * into my_table(9) from t_user where suser='admin';

--my_table(i) i可以为任意整数，但取值时必须保持以i一致；

dbms_output.put_line('--suser--'||my_table(9).suser||'--name--'||my_table(9).name);

end;

declare

type v_table is table of t_user%rowtype index by binary_integer;

my_table v_table;

begin

select * into my_table(9) from t_user where suser='admin';

--my_table(i) i可以为任意整数，但取值时必须保持以i一致；

dbms_output.put_line('--suser--'||my_table(9).suser||'--name--'||my_table(9).name);

end;

自定义数组

Sql代码

create or replace type varray_list as varray(30) of varchar2(50);

--使用自定义数组

create or replace procedure show_list(p_varlist in varray_list)

is

v_str varchar2(50);

begin

for i in 1..p_varlist.count

loop

v_str:=p_varlist(i);

dbms_output.put_line('v_str='||v_str);

dbms_output.put_line('p_varlist('||i||')='||p_varlist(i));

end loop;

end;



declare

my_var varray_list:=varray_list('g','m','d','龚','帅');

begin

show_list(my_var);

end;