Oracle批量綁定FORALL字句的增強功能

技術概述

當 PL/SQL 應用程序需要處理索引表時，在不確定所有索引是否均位於該表上時，有時不能使用標準 FOR 循環來迭代值。Oracle 數據庫 10g 通過集合中的非連續索引引入了對 FORALL 語法的支持。INDICES OF 子句允許將 FORALL 語法用於稀疏集合，而 VALUE OF 子句用於指向其他集合的索引集合。

INDICES OF 關鍵字可用在以編程方式驗證記錄集合並將無效記錄從集合中刪除的場合。這會產生一個有效元素的稀疏集合，隨後可以將該稀疏集合批量插入到表中。通過使用INDICES OF 關鍵字，避免了丟失記錄例外情況的發生。當要使用在另一數組中定義的行數時，可以使用 INDICES OF 子句。

當在 DML 操作中使用在另一個數組中定義的值時，可以使用 VALUES OF 子句。它將只處理行號與驅動數組中的行內容相匹配的行。請考慮這樣一個情形，即必須將記錄集合複製到一個或多個集合變量，這取決於某些決定可以或不可以複製一些記錄的條件，然後插入表中。使用“VALUES OF”語法，結合其元素均爲原始集合內選定記錄的指針的指針數組，可以高效地完成此任務。

應用程序實例：

概述：該示例應用程序通過訂單處理情景演示了 FORALL 語句中新子句的用法。當客戶創建了購物車並結算錢款時，訂單數據被存儲到 ALL_ORDERS 表中。假設該應用程序需要分離出新建的記錄，並將其發送去進行訂單處理。此外，還需要將已處理的訂單和時間非常久遠的訂單在單獨的表中存檔。在該應用程序中，所有訂單都被存儲在 ALL_ORDERS 表中。當運行filter_records.sql 時，它會將所有訂單抓取到一個集合中，並進行進一步處理以分離新建訂單和已履行的訂單。此處使用的條件基於訂單日期和訂單狀態。在滿足該條件後，則將相應元素從集合中刪除。這會產生一個稀疏集合，該集合用於將訂單插入 NEW_ORDERS 表中。該部分代碼演示了“INDICES OF”子句的使用。此外，還會創建一個指向“要存檔”記錄的索引值的集合，然後，使用該集合將數據插入 ORDERS_ARCHIVE 表中。這演示了在使用 FORALL 語句時“VALUES OF”子句的使用。

所需的DML語句：（插入數據的inser語句在程序代碼之後）

CREATE TABLE all_orders (

order_id NUMBER(12) PRIMARY KEY,

order_date DATE,

order_mode VARCHAR2(8),

customer_id NUMBER(6),

order_status NUMBER(2),

order_total NUMBER(8,2),

sales_rep_id NUMBER(6),

promotion_id NUMBER(6)

);

CREATE TABLE new_orders (

order_id NUMBER(12) PRIMARY KEY,

order_date DATE,

order_mode VARCHAR2(8),

customer_id NUMBER(6),

order_status NUMBER(2),

order_total NUMBER(8,2),

sales_rep_id NUMBER(6),

promotion_id NUMBER(6)

);

CREATE TABLE orders_archive (

order_id NUMBER(12) PRIMARY KEY,

order_date DATE,

order_mode VARCHAR2(8),

customer_id NUMBER(6),

order_status NUMBER(2),

order_total NUMBER(8,2),

sales_rep_id NUMBER(6),

promotion_id NUMBER(6)

);

代碼：

DECLARE

--定義嵌套表類型orders_type表中元素爲ALL_ORDERS表的記錄類型，用來存放ALL_ORDERS表數據

TYPE orders_type IS TABLE OF all_orders%ROWTYPE;

-- 定義索引表orders_index_type，用來存放需要歸檔記錄的索引

TYPE orders_index_type IS TABLE OF PLS_INTEGER INDEX BY PLS_INTEGER ;

-- 定義程序中使用的各種變量

orders_archive orders_type;

new_order orders_type;

all_order orders_type;

orders_archive_index orders_index_type ;

order_status INTEGER;

new_orders_count INTEGER := 0;

old_orders_count INTEGER := 0;

BEGIN

-- 從 all_orders表中批量取出訂單數據，綁定到all_order中

SELECT * BULK COLLECT INTO all_order FROM all_orders;

-- 將all_order賦值給new_order

new_order := all_order;

-- 循環記錄集合，按照業務邏輯進行處理

FOR i IN all_order.FIRST .. all_order.LAST LOOP

order_status := all_order(i).order_status ;

--根據訂單狀態刪除老訂單記錄.狀態碼爲 '1'代表新訂單

IF ( order_status != 1 ) THEN

new_order.DELETE(i);

ELSE

--統計新訂單數量

new_orders_count := new_orders_count+1;

END IF;

-- 篩選出老訂單以及已經處理過的訂單

IF ( all_order(i).order_date < TO_DATE('01-JAN-2000','DD-MON-YYYY') AND (order_status = 2 OR order_status = 3 OR order_status = 10 ) ) THEN

-- 統計老訂單和已經處理過的訂單數量，並且將這些訂單的索引存入索引表

orders_archive_index(old_orders_count) := i;

old_orders_count := old_orders_count+1;

END IF;

END LOOP;

DBMS_OUTPUT.PUT_LINE('Inserting '|| TO_CHAR(new_orders_count) || ' new ORDERS into NEW_ORDERS table');

DBMS_OUTPUT.PUT_LINE(' ');

-- 從新訂單集合中將數據插入new_orders表中

FORALL indx IN INDICES OF new_order

INSERT INTO new_orders VALUES all_order(indx);

DBMS_OUTPUT.PUT_LINE('Inserting ' ||TO_CHAR(old_orders_count) ||' old ORDERS data into ORDERS_ARCHIVE table');

--從歸檔訂單記錄索引集合中，通過需要歸檔記錄索引，將數據插入orders_archive表中

FORALL indx IN VALUES OF orders_archive_index

INSERT INTO orders_archive VALUES all_order(indx);

commit;

END;

-- Insert orders data into the table