open cur_object;
fetch cur_object bulk collect
into vnt_object;
close cur_object;

dbms_output.put_line('count=' || vnt_object.count);
dbms_output.put_line('Elapsed: ' ||
to_char(mod(dbms_utility.get_time - l_start_time +
c_big_number,
c_big_number)));
end;

1.3限制BULK COLLECT提取数据

Oracle为BULK COLLECT提供了一个LIMIT子句，让我们可以对从数据库提取的行的数量做限制，语法是：
FETCH cursor BULK COLLECT INTO ... [LIMIT rows]

其中rows可是直接量、变量或者求值的结果是整数的表达式。

对于BULK COLLECT来说，LIMIT是非常有用的，因为这个语句可以帮助我们控制程序用多大内存来处理数据。比如，假设你需要查询并处理10000行的数据。你可以用BULK COLLECT一次取出所有的行，然后填充到一个非常大的集合中。可是，这种方法会消耗掉该会话的大量PGA内存。如果这个代码被多个Oracle模式运行，你的应用程序性能就可能会因为PGA换页而下降。

declare
type nt_object is table of my_objects%rowtype;
vnt_object_bulk nt_object;
vnt_object nt_object := nt_object(); --初始化

c_big_number number := power(2, 31);
l_start_time pls_integer;

cursor cur_object is
select * from my_objects;
begin

dbms_output.put_line('========显示游标BULK COLLECT LIMIT提取==========');
l_start_time := dbms_utility.get_time;

open cur_object;
loop
fetch cur_object bulk collect
into vnt_object_bulk limit 100;
for i in vnt_object_bulk.first .. vnt_object_bulk.last loop
vnt_object.extend;
vnt_object(vnt_object.last) := vnt_object_bulk(i);
end loop;
exit when cur_object%notfound;
end loop;
close cur_object;

dbms_output.put_line('count=' || vnt_object.count);
dbms_output.put_line('Elapsed: ' ||
to_char(mod(dbms_utility.get_time - l_start_time +
c_big_number,
c_big_number)));

end;

注意：这里是在循环的最后通过检查cur_object%notfound的值来结束循环。当每次只查询一条数据时，总是把这个代码紧跟在FETCH语句的后面。不过使用BULK COLLECT时就不能这么做了，因为当FETCH操作提取最后一部分数据集之后，游标虽然空了（%NOTFOUND会返回TRUE）但是在集合中还有一些元素需要处理。因此，或者在循环的最后检查%NOTFOUND属性，或者在FETCH操作之后立即查看集合的内容：

open cur_object;
loop
fetch cur_object bulk collect
into vnt_object_bulk limit 100;
exit when vnt_object_bulk.count = 0;

和在循环体的最后检查%NOTFOUND属性值比较起来，第二中方法的不好之处就在于我们需要额外再执行一个返回空行的FETCH操作。

2.通过FORALL加速DML

BULK COLLECT用于对查询加速。而FORALL会对插入、更新、删除以及合并做同样的事情（只有Oracle 11g才支持FORALL的合并）。FORALL告诉PL/SQL引擎要先把一个或者多个集合的所有成员都绑定到SQL语句中，然后在把语句发送给SQL引擎。

2.1FORALL语句的语法

尽管FORALL语句带有一个迭代模式，但它并不是一个FOR循环。因此，既不需要LOOP也不需要END LOOP语句。它的语法如下：

FORALL index IN
[lower.bound .. upper.bound |
INDICES OF indexing_collection |
VALUES OF indexing_collection
]
[SAVE EXCEPTIONS]
sql_statement;

其中：

index

是一个整数，由Oracle隐式声明的，并被定义做集合的索引值。

lower_bound

操作开始的索引值。

upper_bound

操作结束的索引值。

sql_statement

将对每一个集合元素执行的SQL语句。

indexing_collection

这是一个PL/SQL集合，是一个指向sql_statement所使用的绑定数组的索引的集合。INDICES OF和VALUES OF是从Oracle 10g才有的。

SAVE EXCEPTIONS

这是一个可选的子句，告诉FORALL处理全部行，不过把发生的任何异常保存下来。

使用FORALL时，必须遵守这些规则：

2.2FORALL批量插入

从user_objects数据字典中中批量将所有数据插入到my_objects表中。

declare
type nt_object is table of my_objects%rowtype;
vnt_object nt_object;
c_big_number number := power(2, 31);
l_start_time pls_integer;
begin

dbms_output.put_line('========批量插入==========');
l_start_time := dbms_utility.get_time;

select * bulk collect into vnt_object from user_objects;
forall i in vnt_object.first .. vnt_object.last
insert into my_objects values vnt_object (i);

dbms_output.put_line('count=' || vnt_object.count);
dbms_output.put_line('Elapsed: ' ||
to_char(mod(dbms_utility.get_time