示例
FORALL 语句创建一个循环:该循环的每次迭代都会递增 index 变量(通常在该循环内使用 index 选择集合的成员)。迭代次数由 lower_bound ..
upper_bound 子句进行控制。该循环为 lower_bound 和 upper_bound(含上限)之间的每个整数执行一次,并且每次迭代会使索引按 1 递增。例如:
FORALL i IN 2 .. 5
创建一个执行四次的循环:在第一次迭代中,index (i) 设置为值 2;在第二次迭代中,索引设置为值 3,依此类推。该循环执行到值 5,然后终止。
以下示例创建一个表 emp_copy,该表是 emp 表的空副本。该示例声明一个作为数组的类型 emp_tbl,数组中的每个元素都是复合类型,由用于创建表 emp
的列定义组成。该示例还在 emp_tbl 类型中创建了索引。
t_emp 是类型 emp_tbl 的关联数组。SELECT 语句使用 BULK COLLECT INTO 命令填充 t_emp 数组。在填充 t_emp 后,FORALL
语句会遍历 t_emp 数组索引中的值 i,然后将每个记录行插入 emp_copy 中。
CREATE TABLE emp_copy(LIKE emp);
DECLARE
TYPE emp_tbl IS TABLE OF emp%ROWTYPE INDEX BY BINARY_INTEGER;
t_emp emp_tbl;
BEGIN
SELECT * FROM emp BULK COLLECT INTO t_emp;
FORALL i IN t_emp.FIRST .. t_emp.LAST
INSERT INTO emp_copy VALUES t_emp(i);
END;
以下示例使用 FORALL 语句更新三名员工的工资:
DECLARE
TYPE empno_tbl IS TABLE OF emp.empno%TYPE INDEX BY BINARY_INTEGER;
TYPE sal_tbl IS TABLE OF emp.ename%TYPE INDEX BY BINARY_INTEGER;
t_empno EMPNO_TBL;
t_sal SAL_TBL;
BEGIN
t_empno(1) := 9001;
t_sal(1) := 3350.00;
t_empno(2) := 9002;
t_sal(2) := 2000.00;
t_empno(3) := 9003;
t_sal(3) := 4100.00;
FORALL i IN t_empno.FIRST..t_empno.LAST
UPDATE emp SET sal = t_sal(i) WHERE empno = t_empno(i);
END;
SELECT * FROM emp WHERE empno > 9000;
empno | ename | job | mgr | hiredate | sal | comm | deptno
-------+--------+---------+-----+----------+---------+------+--------
9001 | JONES | ANALYST | | | 3350.00 | | 40
9002 | LARSEN | CLERK | | | 2000.00 | | 40
9003 | WILSON | MANAGER | | | 4100.00 | | 40
(3 rows)
以下示例通过 FORALL 语句删除三名员工。
DECLARE
TYPE empno_tbl IS TABLE OF emp.empno%TYPE INDEX BY BINARY_INTEGER;
t_empno EMPNO_TBL;
BEGIN
t_empno(1) := 9001;
t_empno(2) := 9002;
t_empno(3) := 9003;
FORALL i IN t_empno.FIRST..t_empno.LAST
DELETE FROM emp WHERE empno = t_empno(i);
END;
SELECT * FROM emp WHERE empno > 9000;
empno | ename | job | mgr | hiredate | sal | comm | deptno
-------+-------+-----+-----+----------+-----+------+--------
(0 rows)