ORACLE中RECORD、VARRAY、TABLE的使用詳解

1     說明
1.1       RECORD
定義記錄數據類型。它相似於C語言中的結構數據類型(STRUCTURE)，PL/SQL提供了將幾個相關的、分離的、基本數據類型的變量組成一個總體的方法，即RECORD複合數據類型。在使用記錄數據類型變量時，須要在聲明部分先定義記錄的組成、記錄的變量，而後在執行部分引用該記錄變量自己或其中的成員。

    定義記錄數據類型的語法以下：

TYPE RECORD_NAME IS RECORD(

V1  DATA_TYPE1 [NOT NULL][:=DEFAULT_VALUE],

V2  DATA_TYPE2 [NOT NULL][:=DEFAULT_VALUE],

VN  DATA_TYPEN [NOT NULL][:=DEFAULT_VALUE]);

1.2       VARRAY
數組是具備相同數據類型的一組成員的集合。每一個成員都有一個惟一的下標，它取決於成員在數組中的位置。在PL/SQL中，數組數據類型是VARRAY（variable array，便可變數組）。

定義VARRAY數據類型的語法以下：

TYPE VARRAY_NAMEIS VARRAY(SIZE) OF ELEMENT_TYPE [NOT NULL];

其中，varray_name是VARRAY數據類型的名稱，size是正整數，表示能夠容納的成員的最大數量，每一個成員的數據類型是element_typeo默認時，成員能夠取空值，不然須要使用NOT NULL加以限制。

 

1.3       TABLE
定義記錄表（或索引表）數據類型。它與記錄類型類似，但它是對記錄類型的擴展。它能夠處理多行記錄，相似於C語言中的二維數組，使得能夠在PL/SQL中模仿數據庫中的表。

定義記錄表類型的語法以下：

TYPE TABLE NAME IS TABLE OF ELEMENT_TYPE [NOT NULL]

INDEX BY [BINARY_INTEGER|PLS_INTEGER|VARRAY2];

關鍵字INDEX BY表示建立一個主鍵索引，以便引用記錄表變量中的特定行。

BINARY_INTEGER的說明

如語句：TYPE NUMBERS  IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;其做用是,加了」INDEX BYBINARY_INTEGER 」後，NUMBERS類型的下標就是自增加，NUMBERS類型在插入元素時，不須要初始化，不須要每次EXTEND增長一個空間。

而若是沒有這句話「INDEXBY BINARY_INTEGER」，那就得要顯示對初始化，且每插入一個元素到NUMBERS類型的TABLE中時，都須要先EXTEND。

 

2     舉例
2.1       建立表結構以及數據準備
 

--組織機構結構表
CREATE TABLE SF_ORG
(
ORG_ID INT NOT NULL, --組織機構主鍵ID
ORG_NAME VARCHAR2(50),--組織機構名稱
PARENT_ID INT--組織機構的父級
)

--一級組織機構
INSERT INTO SF_ORG(ORG_ID, ORG_NAME, PARENT_ID) VALUES(1, '一級部門1',0);

--二級部門

INSERT INTO SF_ORG(ORG_ID, ORG_NAME, PARENT_ID) VALUES(2, '二級部門2',1);
INSERT INTO SF_ORG(ORG_ID, ORG_NAME, PARENT_ID) VALUES(3, '二級部門3',1);
INSERT INTO SF_ORG(ORG_ID, ORG_NAME, PARENT_ID) VALUES(4, '二級部門4',1);

2.2       RECORD的使用舉例
先定義一個只與SF_ORG表中某幾個列的數據類型相同的記錄數據類型TYPE_ORG_RECORD，而後聲明一個該數據類型的記錄變量V_ORG_RECORD，最後用替換變量&ORG_ID接受輸入的僱員編碼，查詢並顯示該僱員的這幾列中的信息。注意，在使用RECORD數據類型的變量時要用「.」運算符指定記錄變量名限定詞。

    一個記錄類型的變量只能保存從數據庫中查詢出的一行記錄，若是查詢出了多行記錄，就會出現錯誤。

 

DECLARE
TYPE TYPE_ORG_RECORD IS RECORD(
V_ORG_NAME SF_ORG.ORG_NAME%TYPE,
V_PARENT_ID SF_ORG.PARENT_ID%TYPE);
V_ORG_RECORD TYPE_ORG_RECORD;
BEGIN
SELECT ORG_NAME,PARENT_ID INTO V_ORG_RECORD
FROM SF_ORG SO
WHERE SO.ORG_ID=&ORG_ID;
DBMS_OUTPUT.PUT_LINE('部門名稱：' || V_ORG_RECORD.V_ORG_NAME);
DBMS_OUTPUT.PUT_LINE('上級部門編碼：' || TO_CHAR(V_ORG_RECORD.V_PARENT_ID));
END;

2.3       VARRAY的使用舉例
先定義一個能保存5個VARCHAR2(25)數據類型的成員的VARRAY數據類型ORG_VARRAY_TYPE，而後聲明一個該數據類型的VARRAY變量V_ORG_VARRAY，最後用與ORG_VARRAY_TYPE數據類型同名的構造函數語法給V_ORG_VARRAY變量賦予初值並顯示賦值結果。

注意，在引用數組中的成員時．須要在一對括號中使用順序下標，下標從1開始而不是從0開始。

 

DECLARE
TYPE ORG_VARRAY_TYPE IS VARRAY(5) OF VARCHAR2(25);
V_ORG_VARRAY ORG_VARRAY_TYPE;
BEGIN
V_ORG_VARRAY := ORG_VARRAY_TYPE('1','2','3','4','5');
DBMS_OUTPUT.PUT_LINE('輸出1：' || V_ORG_VARRAY(1) || '、'|| V_ORG_VARRAY(2) || '、'|| V_ORG_VARRAY(3) || '、'|| V_ORG_VARRAY(4));
DBMS_OUTPUT.PUT_LINE('輸出2：' || V_ORG_VARRAY(5));
V_ORG_VARRAY(5) := '5001';
DBMS_OUTPUT.PUT_LINE('輸出3：' || V_ORG_VARRAY(5));
END;

2.4       TABLE使用舉例
2.4.1      存儲單列多行
這個和VARRAY相似。可是賦值方式稍微有點不一樣，不能使用同名的構造函數進行賦值。具體的以下：

 

DECLARE
TYPE ORG_TABLE_TYPE IS TABLE OF VARCHAR2(25)
INDEX BY BINARY_INTEGER;
V_ORG_TABLE ORG_TABLE_TYPE;
BEGIN
V_ORG_TABLE(1) := '1';
V_ORG_TABLE(2) := '2';
V_ORG_TABLE(3) := '3';
V_ORG_TABLE(4) := '4';
V_ORG_TABLE(5) := '5';
DBMS_OUTPUT.PUT_LINE('輸出1：' || V_ORG_TABLE(1) || '、'|| V_ORG_TABLE(2) || '、'|| V_ORG_TABLE(3) || '、'|| V_ORG_TABLE(4));
DBMS_OUTPUT.PUT_LINE('輸出2：' || V_ORG_TABLE(5));
END;

2.4.2      存儲多列多行和ROWTYPE結合使用
採用bulkcollect能夠將查詢結果一次性地加載到collections中。而不是經過cursor一條一條地處理。

 

DECLARE
TYPE T_TYPE IS TABLE OF SF_ORG%ROWTYPE;
V_TYPE T_TYPE;
BEGIN
SELECT ORG_ID,ORG_NAME,PARENT_ID BULK COLLECT INTO V_TYPE
FROM SF_ORG
WHERE SF_ORG.ORG_ID <= 3;

FOR V_INDEX IN V_TYPE.FIRST .. V_TYPE.LAST LOOP
DBMS_OUTPUT.PUT_LINE(V_TYPE(V_INDEX).C1 || ' ' || V_TYPE(V_INDEX).C2);
END LOOP;
END;

2.4.3      存儲多列多行和RECORD結合使用
採用bulkcollect能夠將查詢結果一次性地加載到collections中。而不是經過cursor一條一條地處理。

 

DECLARE TYPE TEST_EMP IS RECORD ( C1 SF_ORG.ORG_NAME%TYPE, C2 SF_ORG.PARENT_ID%TYPE ); TYPE T_TYPE IS TABLE OF TEST_EMP; V_TYPE T_TYPE; BEGIN SELECT ORG_NAME, PARENT_ID BULK COLLECT INTO V_TYPE FROM SF_ORG WHERE SF_ORG.ORG_ID <= 3; FOR V_INDEX IN V_TYPE.FIRST .. V_TYPE.LAST LOOP DBMS_OUTPUT.PUT_LINE(V_TYPE(V_INDEX).C1 || ' ' || V_TYPE(V_INDEX).C2); END LOOP; END;