Oracle原理：集合数组，集合属性，istableof⽤
在字草书
法，bulkcollectint。。。
数组分为固定长度数组和可变长度数组，都是集合，且数组的起始下标是从1开始的，这和其他⾼级程序语⾔不太⼀样。利⽤圆括号‘(下标)‘来获取值或者进⾏赋值。
⼀、固定长度的数组
固定长度的数组类型的声明 为 TYPE 类名 IS VARRAY(元素个数) OF 元素类型;
declare
type arry3 is varray(3) of varchar2(4); ---固定数组类型声明
xsList arry3 :=arry3('男','⼥','⼈妖'); --固定数组变量定义
usr_input number;
begin
usr_input := &xnum; --读取⽤户输⼊
xsList(3) :='未知';
if usr_input <=unt and usr_input >0 then
dbms_output.put_line('你好'||xsList(usr_input)); --⽤变量名(下标) 的形式赋值 := 或者读取
end if;
end ;
/
执⾏后输⼊：3 输出得
⼆、数组集合 count ，first ，last ，next() ,exists()的区别
declare
type varr_num is table of number INDEX BY PLS_INTEGER;
vnum varr_num;
vn number ;
begin
vnum(2) := 2000;
vnum(3) := 3000;
vnum(10) := 10000;
vnum(100) :=20000;
dbms_output.put_line('count:' ||unt);
dbms_output.put_line('first:' ||vnum.first);
富贵竹水养
dbms_output.put_line('last:' ||vnum.last);
for i in 1..unt loop
if ists(i) then
dbms_output.put_line('不能找到unt('||i||'):');
el
dbms_output.put_line('unt('||i||'):' ||vnum(i));
end if ;
end loop;
vn :=vnum.first;
while vn is not null loop
dbms_output.put_line('vnum('||vn||'):' ||vnum(vn)||'('||vn||'):' ||(vn));
二种说法vn :=(vn);
end loop;
dbms_output.put_line('('||9||'):' ||(9));
end;
/
输出结果
倾轧是什么意思
由此可以看出在集合属性中,
first : 第⼀个⾮空值的下标
last : 最后⼀个⾮空值的下标
count: 集合⾮零元素个数
next(i) ：从i开始的下⼀个⾮空元素的下标
exists(i) : 下标i 是否有值 因为取元素为空时会报错，所以 vnum(i) is not null ⽆意义。
-------------------------------------------------------
新建表DEPARTMENT_TBL如下：
存储数据⼤致如下
----------------------------------------------------------------------
三、可变长度数组 IS TABLE OF 和 BULK COLLECT INTO ：
declare
type varr_vchar is table of varchar2(20); --varchar2(20)的可变长度数组
deplist varr_vchar ;
begin
lect department bulk collect into deplist from department_tbl;在图书馆
dbms_output.put('该公司拥有的部门有：');
for i in 1 .. unt loop
dbms_output.put_line(deplist(i));
end loop;
end;
/
TYPE 类名 IS TABLE OF 元素类型 [INDEX BY BINARY_INTEGER]; 指明了把结果集当做表； IND
EX BY BINARY_INTEGER指明了当为number 类型时，下标⾃增长。如果没有指定下标⾃增长那么就要⼿动extend(i)，来扩容数组⼤⼩。
declare
type numbers is table of varchar2(10);那年初夏
m numbers := numbers();
begin
m(3) := '50';
m(6) := '60';
for i in 1 .. m.count loop
dbms_output.put_line(m(i));
end loop;
dbms_output.put_line('count:' ||m.count);
dbms_output.put_line('first:' ||m.first);
dbms_output.put_line('last:' ||m.last);
end;
/
输出结果：
SELECT 表字段集 BULK COLLECT INTO 类名 from 表名 ； 将数据集直接赋值给类变量，其效率⽐游标块，但是⽐游标更消耗内存。
declare
type varr_vchar is table of department_tbl%rowtype;
deplist varr_vchar ;
begin
lect department,ALL_SALARY,LEADERS bulk collect into deplist from department_tbl;
dbms_output.put('该公司拥有的部门有：');
for i in 1 .. unt loop
dbms_output.put_line(deplist(i).department ||'的总薪资为'||deplist(i).ALL_SALARY ||'元');o型血是万能血吗
end loop;
end;
/
输出结果：
四、⾃定义结果集(对象数组)：
结果集是可以⾃定义的，相当于⾯向对象程序⾥的 长度可变的对象数组。
TYPE 类名 IS RECORD (成员变量1 类型 ， 成员变量2 类型 .......) ;
declare
type rec_dep is record (
department varchar2(10),
proportion number
云安全技术
);
type varr_vchar is table of rec_dep;
deplist varr_vchar ;
sumsalary number ; ----公司总薪资
begin
lect sum(ALL_SALARY) into sumsalary from department_tbl;
---强⾏转换
lect department,cast(ALL_SALARY/sumsalary as number(10,9))bulk collect into deplist from department_tbl; for i in 1 .. unt loop
dbms_output.put_line(deplist(i).department ||'的部门总薪资占公司⽐为'||deplist(i).proportion ||'%');
end loop;
end;
/
