[轉]Oracle陣列的使用

下面這組資訊比較有用，列出來以備參考：

除了建構函式外,集合還有很多內建函式，這些函式稱為方法。
呼叫方法的語法如下：
collection.method
下表中列出oracle中集合的方法
方法 描述 使用限制
COUNT 返回集合中元素的個數
DELETE 刪除集合中所有元素
DELETE() 刪除元素下標為x的元素，如果x為null,則集合保持不變          對VARRAY非法
DELETE(,) 刪除元素下標從X到Y的元素，如果X>Y集合保持不變             對VARRAY非法
EXIST() 如果集合元素x已經初始化，則返回TRUE, 否則返回FALSE
EXTEND 在集合末尾新增一個元素                                       對Index_by非法
EXTEND() 在集合末尾新增x個元素                                      對Index_by非法
EXTEND(,) 在集合末尾新增元素n的x個副本                              對Index_by非法
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 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;--使用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;

例項：
CREATE OR REPLACE PROCEDURE sample  
is  
    TYPE R_REC IS RECORD(INT     NUMBER(6,2), CHR    VARCHAR2(100));
    TYPE T_REC IS TABLE OF R_REC INDEX BY BINARY_INTEGER;
 
    A_ZEI T_REC;    
    IX      NUMBER(10);    
BEGIN  
    FOR IX IN 1..1000 LOOP  
        A_ZEI(IX).INT := IX;
        A_ZEI(IX).CHR := TO_CHAR(A_ZEI(IX).INT,'9,999,999.99');  
    END LOOP;  
   
END;  

或

CREATE OR REPLACE PROCEDURE P_EMP
IS
     TYPE T_EMP IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
   
     A_EMP T_EMP;
     I        BINARY_INTEGER := 0;
BEGIN
   
     FOR REC IN (SELECT EMPNO,ENAME FROM EMP) LOOP
        I := I + 1;
        A_EMP(I).EMPNO := REC.EMPNO;
        A_EMP(I).ENAME := REC.ENAME;
     END LOOP;
   
     FOR K IN 1..I LOOP
        DBMS_OUTPUT.PUT_LINE( A_EMP(K).EMPNO || '       ' || A_EMP(K).ENAME);
     END LOOP;
END;
    集合：是具有相同定義的元素的聚合。Oracle有兩種型別的集合：

可變長陣列（VARRAY）：可以有任意數量的元素，但必須預先定義限制值。

巢狀表：視為表中之表，可以有任意數量的元素，不需要預先定義限制值。


在PL/SQL中是沒有陣列(Array)概念的。但是如果程式設計師想用Array的話，就得變通一下，用TYPE 和Table of Record來代替多維陣列，一樣挺好用的。
emp_type 就好象一個table 中的一條record 一樣，裡面有id, name,gender等。emp_type_array 象個table, 裡面含有一條條這樣的record (emp_type)，就象多維陣列一樣。

--單維陣列
DECLARE
TYPE emp_ssn_array IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;

best_employees emp_ssn_array;
worst_employees emp_ssn_array;

BEGIN
best_employees(1) := '123456';
best_employees(2) := '888888';

worst_employees(1) := '222222';
worst_employees(2) := '666666';

FOR i IN 1..best_employees.count LOOP
DBMS_OUTPUT.PUT_LINE('i='|| i || ', best_employees= ' ||best_employees(i)
|| ', worst_employees= ' ||worst_employees(i));
END LOOP;

END;

--多維陣列
DECLARE

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 BINARY_INTEGER;

emp_rec_array emp_type_array;
emp_rec emp_type;

BEGIN
emp_rec.emp_id := 300000000;
emp_rec.emp_name := 'Barbara';
emp_rec.emp_gender := 'Female';

emp_rec_array(1) := emp_rec;

emp_rec.emp_id := 300000008;
emp_rec.emp_name := 'Rick';
emp_rec.emp_gender := 'Male';

emp_rec_array(2) := emp_rec;

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);
END LOOP;

END;
-------------- Result --------------
i=1, emp_id =300000000, emp_name =Barbara, emp_gender = Female
i=2, emp_id =300000008, emp_name =Rick, emp_gender = Male
用下面語句宣告陣列型別
type intarray is varry(30) of integer;

用下面語句宣告一個陣列變數
declare
A intarray;用下面語句宣告陣列型別
type intarray is varry(30) of integer;

用下面語句宣告一個陣列變數
declare
A intarray;用下面語句宣告陣列型別
type intarray is varry(30) of integer;

用下面語句宣告一個陣列變數
declare
A intarray;