ORACLE在PL/SQL中是没有数组(Array)概念的.但是如果程序员想用Array的话,就得变通一下,用TYPE 和Table of Record来代替多维数组,一样挺好用的.
集合：是具有相同定义的元素的聚合.Oracle有两种类型的集合：
可变长数组（VARRAY）：可以有任意数量的元素,但必须预先定义限制值.
嵌套表：视为表中之表,可以有任意数量的元素,不需要预先定义限制值.
A intarray;
TYPE T_EMP IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
A_EMP T_EMP;
I BINARY_INTEGER := 0;
FOR REC IN (SELECT EMPNO,ENAME FROM EMP) LOOP
I := I + 1;
A_EMP(I).EMPNO := REC.EMPNO;
END LOOP;
l:= A_EMP.first;--使用first方法
loop
exit when l is null;
dbms_output.put_line(l||':'|| A_EMP(l).ENAME );
l:=A_EMP.next(l);
end loop;
pl/sql预定义了在varray 和嵌套表实例上进行调用的方法.这些方法能在集合上执行一定的功能.
EXISTS该函数返回集合中第一个元素的索引,如果集合为空,返回NULL
Collection.EXISTS(index)
COUNT该函数集合元素的数目
Collection.COUNT
DELETE该过程从嵌套表中删除一个或多个或合部元素
Table_name.DELETE 删除所有元素
Table_name.delete(index)删除指定索引的记录
Table_name.delete(start_index,end_index)删除区间内元素
FIRST返回集合第一个元素索引,如果集合为空,返回NULL
Collection.FIRST
LAST返回集合中最后一个元素索引,如果集合为空,返回NULL
Collection. LAST
NEXT返回集合当前元素的下一个元素的索引,如果它不存在就返回NULL
Collection. NEXT
PRIOR返回集合当前元素的上一个元素的索引,如果它不存在就返回NULL
Collection. PRIOR
LIMIT返回varray中创建元素的最大个数
Collection. LIMIT
EXTENDS该过程在集合的末尾添加新的元素
Collection.EXTEND添加一个NULL元素；Collection.extends(n)添加N个NULL元素,Collection.extend(n,index)添加由index指定位置上元素的n个副表
TRIM从集合末尾处删除元素
Collection.TRIM 删除最后一个元素
Collection.TRIM(n)删除最后N个元素
SQL code
DECLARE
-- Define a varray of twelve strings.
-- Define an associative array of strings.
INDEX BY BINARY_INTEGER;
-- Declare and construct a varray.
month MONTHS_VARRAY :=
months_varray('January','February','March'
,'April','May','June'
,'July','August','September'
,'October','November','December');
-- Declare an associative array variable.
calendar CALENDAR_TABLE;
BEGIN
-- Check if calendar has no elements.
IF calendar.COUNT = 0 THEN
-- Print a title
DBMS_OUTPUT.PUT_LINE('Assignment loop:');
DBMS_OUTPUT.PUT_LINE('----------------');
-- Loop through all the varray elements.
FOR i IN month.FIRST..month.LAST LOOP
-- Initialize a null associative array element.
calendar(i) := '';
-- Print an indexed element from the associative array.
DBMS_OUTPUT.PUT_LINE(
'Index ['||i||'] is ['||calendar(i)||']');
-- Assign the numeric index valued varray element
-- to an equal index valued associative array element.
calendar(i) := month(i);
DBMS_OUTPUT.PUT(CHR(10));
DBMS_OUTPUT.PUT_LINE('Post-assignment loop:');
DBMS_OUTPUT.PUT_LINE('---------------------');
-- Loop through all the associative array elements.
FOR i IN calendar.FIRST..calendar.LAST LOOP
END IF;
END;
在PL/SQL循环中执行数据操作语言(DML)是一件费时的工作,因为每次循环都要由PL/SQL引擎转向SQL引擎.应用FORALL是一个更好的方法,它一次性向SQL语句提交一组临时值.
[@more@]
在Oracle 10g前,FORALL语句的语法只能处理连续性的数组元素：
FORALL index_name IN lower_bound ..upper_bound sql_statement;
这意味着：在以前,使用FORALL的嵌套表不能删除待处理数组中间的元素,而且数组项必须进行连续处理.Oracle 10g解决了这两方面的问题,并增加了INDICES OF和VALUES OF子句.
用一个for循环：
FOR i IN 1..N LOOP
INSERT INTO t VALUES(b(i));
COMMIT;
除了构造函数外,集合还有很多内建函数,这些函数称为方法.
调用方法的语法如下：
collection.method
下表中列出oracle中集合的方法
方法 描述 使用限制
COUNT 返回集合中元素的个数
DELETE 删除集合中所有元素
DELETE() 删除元素下标为x的元素,如果x为null,则集合保持不变
对VARRAY非法
DELETE(,) 删除元素下标从X到Y的元素,如果XY集合保持不变
EXIST() 如果集合元素x已经初始化,则返回TRUE, 否则返回FALSE
EXTEND 在集合末尾添加一个元素
对Index_by非法
EXTEND() 在集合末尾添加x个元素
EXTEND(,) 在集合末尾添加元素n的x个副本
FIRST 返回集合中的第一个元素的下标号,对于VARRAY集合始终返回1.
LAST 返回集合中最后一个元素的下标号, 对于VARRAY返回值始终等于COUNT.
LIMIT 返回VARRY集合的最大的元素个数,对于嵌套表和对于嵌套表和Index_by为null Index_by集合无用
NEXT() 返回在元素x之后及紧挨着它的元素的值,如果该元素是最后一个元素,则返回null.
PRIOR() 返回集合中在元素x之前紧挨着它的元素的值,如果该元素是第一个元素,则返回null.
TRI M 从集合末端开始删除一个元素
对于index_by不合法
TRIM() 从集合末端开始删除x个元素
对index_by不合法
使用实例：
Set serveroutput on
Declare
type my_text_table_type is table of
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;--使用first方法
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;
实例：
CREATE OR REPLACE PROCEDURE sample
is
TYPE
TYPE T_REC IS
TABLE OF R_REC INDEX BY BINARY_INTEGER;
A_ZEI T_REC;
IX
NUMBER(10);
FOR IX IN 1..1000 LOOP
A_ZEI(IX).INT :=
IX;
END
LOOP;
或
CREATE OR REPLACE PROCEDURE P_EMP
IS
TYPE T_EMP
IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
I
BINARY_INTEGER := 0;
FOR REC IN (SELECT EMPNO,ENAME FROM EMP)
LOOP
A_EMP(I).ENAME := REC.ENAME;
FOR K IN 1..I LOOP
DBMS_OUTPUT.PUT_LINE( A_EMP(K).EMPNO || ' ' || A_EMP(K).ENAME);
在PL/SQL中是没有数组(Array)概念的.但是如果程序员想用Array的话,就得变通一下,用TYPE 和Table of
Record来代替多维数组,一样挺好用的.
emp_type 就好象一个table 中的一条record 一样,里面有id, name,gender等.emp_type_array 象个table,
里面含有一条条这样的record (emp_type),就象多维数组一样.
--单维数组
TYPE emp_ssn_array IS TABLE OF NUMBER
INDEX BY
BINARY_INTEGER;
best_employees emp_ssn_array;
worst_employees
emp_ssn_array;
FOR i IN 1..best_employees.count
DBMS_OUTPUT.PUT_LINE('i='|| i || ', best_employees= '
||best_employees(i)
|| ', worst_employees= ' ||worst_employees(i));
--多维数组
TYPE emp_type IS RECORD
( emp_id
employee_table.emp_id%TYPE,
emp_name
employee_table.emp_name%TYPE,
emp_gender employee_table.emp_gender%TYPE
);
TYPE emp_type_array IS TABLE OF emp_type INDEX BY
emp_rec_array emp_type_array;
emp_rec
emp_type;
emp_rec.emp_name :=
'Barbara';
emp_rec.emp_gender := 'Female';
emp_rec_array(1) :=
emp_rec;
'Rick';
emp_rec.emp_gender := 'Male';
FOR
i IN 1..emp_rec_array.count LOOP
DBMS_OUTPUT.PUT_LINE('i='||i
||', emp_id
='||emp_rec_array(i).emp_id
||', emp_name
='||emp_rec_array(i).emp_name
||', emp_gender =
'||emp_rec_array(i).emp_gender);
-------------- Result
--------------
Female
用下面语句声明数组类型
用下面语句声明一个数组变量
declare
A intarray;用下面语句声明数组类型
以上就是土嘎嘎小编为大家整理的oracle数组如何循环相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！