oracle中的几种循环|转|

 http://blog.csdn.net/yxc369/article/details/1470780

1,简单的循环
     以loop关键字开始,exit when子句确定何时推出循环,end loop子句为循环结束标志。
     declare
      pi       constant NUMBER(9,7) :=3.1415727
      radius   INTEGER(5);
      area     NUMBER(14,2);
     begin
      radius:=3;
      loop
       area:=pi*power(radius,2);
        insert into AREAS values (radius,area);
       radius:=radius+1;
       exit when area >100；
      end loop;
     end;
     
   2,简单的游标循环
    %FOUND       可在游标中取一个记录
    %NOTFOUND    不能从游标中再取一个记录
    %ISOPEN      游标已经打开
    %ROWCOUNT       迄今为止从游标中取出的行数
    
    exit when rad_cursor%NOTFOUND;/*如果游标中取不到值则推出循环*/ 
    
   3,FOR循环
    for循环是指循环次数已经指定的循环
     declare
      pi       constant NUMBER(9,7) :=3.1415727
      radius   INTEGER(5);
      area     NUMBER(14,2);
     begin
      for radius in 1..7 loop
         area:=pi*power(radius,2);
        insert into AREAS values (radius,area);
      end loop;
     end;    
   
   4,游标For循环
     declare
      pi       constant NUMBER(9,7) :=3.1415727
      area     NUMBER(14,2);
      cursor rad_cursor is
          select * from RADIUS_VAS;
          
     begin   
      for rad_val in rad_cursor
       loop
         area:=pi*power(rad_val.radius,2);
        insert into AREAS values (rad_val.radius,area);
       end loop；
     end;
  5,WHILE循环
     declare
      pi       constant NUMBER(9,7) :=3.1415727
      radius   INTEGER(5);
      area     NUMBER(14,2);
     begin
      radius:=3;
      while radius<=7
      loop
         area:=pi*power(radius,2);
        insert into AREAS values (radius,area);
         radius:=radius+1;
      end loop;
     end;       
---------------------------------------------------------------------------------------------------
CASE语句
     declare
      pi       constant NUMBER(9,7) :=3.1415727
      area     NUMBER(14,2);
      cursor rad_cursor is
        select * from RADIUS_VALS;
      rad_val rad_cursor%ROWTYPE;
      
     begin
      open rad_cursor;
      loop
        fetch rad_cursor into rad_val;
        exit wehn rad_cursor%NOTFOUND;
         area:=pi*power(rad_val.radius,2);
         case
          when rad_val.Radius=3 then insert into AREAS values (rad_val.radius,area);
         when rad_val.Radius=4 then insert into AREAS values (rad_val.radius,area); 
         when rad_val.Radius=10 then insert into AREAS values (0,0);
         else raise CASE_NOT_FOUND;
        end case;
      end loop;
     end; 
---------------------------------------------------------------------------------------------------
exception异常:
  exception
    when ZERO_DIVIDE
     then insert into AREAS values(0,0);
  当PL/SQL块产生一个错误时,它会扫描定义的异常处理过程。 ZERO_DIVIDE是一个系统定义的异常。
  可以用when other子句处理在异常处理部分未定义过的异常。