Chinaunix首页 | 论坛 | 博客
  • 博客访问: 334923
  • 博文数量: 1051
  • 博客积分: 53280
  • 博客等级: 大将
  • 技术积分: 6670
  • 用 户 组: 普通用户
  • 注册时间: 2008-09-09 13:21
文章分类

全部博文(1051)

文章存档

2011年(1)

2008年(1050)

我的朋友

分类:

2008-09-09 15:44:09


  当你在 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 语句。
  
  然而, 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;
  /
【责编:admin】

--------------------next---------------------

阅读(117) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~