关于在PL/SQL中使用正确的循环控制

王朝mssql·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

当你在 PL/SQL 中处理一个被索引的表时,很多情况下你不能确定表上是否存在索引,所以你不能使用最明显的 FOR 循环方式来循环表中的值。例如:

Declare

type my list_type is table of number index by pls_integer;

mylist mylist_type;

begin

-- start at 2, instead of 1

mylist(2) := 2;

mylist(3) := 3;

-- skip 4 and 5

mylist(6) := 6;

for i in 1..mylist.count loop

dbms_output.put_line(mylist(i));

end loop;

end;

/

前面的代码将返回 ORA-01403 错误:由于缺少索引1,没有发现数据。

如果你尝试使用 .FIRST/.LAST 修正这个问题,那么你将自动地从第一个索引开始循环,直到到达最后一个索引,如下:

Declare

type mylist_type is table of number index by pls_integer;

mylist mylist_type;

begin

mylist(2) := 2;

mylist(3) := 3;

mylist(5) := 6;

for i in mylist.first .. mylist.last loop

dbms_output.put_lin(mylist(i));

end loop;

end;

/

然而,你依然得到一个 ORA-01403 错误:由于跳过值,没有发现数据。要进一步避免这种错误,你可以在访问索引前使用 EXISTS 方法测试它是否存在:

Declare

type mylist_type is table of number index by pls_integer;

mylist mylist_type;

begin

mylist(2) := 2;

mylist(3) := 3;

mylist(6) := 6;

for i in mylist.first..mylist.last loop

if (mylist.exists(i)) then

dbms_output.put_line(mylist(i));

end if;

end loop;

end;

/

或者,你可以通过.NEXT 属性使用常规的 LOOP 循环来迭代一个表上存在的索引――但是你必须声明循环计数器:

Declare

type mylist_type is table of number index by pls_integer;

mylist mylist_type;

i pls_integer;

begin

mylist(2) := 2;

mylist(3) := 3;

mylist(6) := 6;

i := mylist.first;

loop

dbms_output.put_line(mylist(i));

exit when i = mylist.last;

i := mylist.next(i);

end loop;

end;

/

当你不确定哪些值已经被删除或装载而导致缺少索引时,可以使用上面这两个有效的方法作为默认方法。但是对于使用 FORALL 语句的大量操作,这两种方法都不能正确运行,原因是 FORALL 语句并不是一个真正的循环,而且其语法只能带一个下加界,一个上边界和一个 SQL DML 语句。

然而,Oracle 10g中引入了两个新子句,这两个子句允许你避免这种局限性。向 FORALL 语法添加一个 INDICES OF 子句允许你自动地循环一个表中的所有值,而无须担心索引是否存在:

Declare

type mylist_type is table of number index by pls_integer;

mylist mylist_type;

begin

mylist(2) := 2;

mylist(3) := 3;

mylist(6) := 6;

foralli in indices of mylist

insert into mynumtable values(mylist(i));

end;

/

另外还有一个 VALUES OF 子句,该子句使用你的嵌套表的值,或者被表索引的值作为循环的下标:

Declare

type mysubs_type is table of pls_integer index by pls_integer;

type mylist_type is table of number index by pls_integer;

mysubs mylist_type;

mylist mylist_type;

begin

mylist(2) := 2;

mysubs(10) := 2;

-- point to mylist(2)

mylist(3) := 3;

mysubs(20) := 3;

-- point to mylist(3)

mylist(6) := 6;

mysubs(30) := 6;

-- point to mylist(6)

mysubs(40) := 3;

-- point to mylist(3), again!

foralli in values ofmysubs

insert into mynumtable values(mylist(i));

end;

/

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航