Oracle 循环相关

1.简单的循环

以loop关键字开始, exit when子句退出循环, end loop子句为循环结束标志。

DECLARE

   PI   CONSTANT NUMBER (9, 7) := 3.1415926;

   RADIUS        INTEGER (5);

   AREA          NUMBER (14, 2);

BEGIN

    RADIUS := 3;

    LOOP

      AREA := PI * POWER (RADIUS, 2);

      DBMS_OUTPUT.put_line ('半径：' || RADIUS || '; 面积：'|| AREA);

      RADIUS := RADIUS + 1;

      EXIT WHEN AREA > 100;

    END LOOP;

END;

---

2,简单的游标循环
    %FOUND              可在游标中取一个记录
    %NOTFOUND        不能从游标中再取一个记录
    %ISOPEN              游标已经打开
    %ROWCOUNT       迄今为止从游标中取出的行数
    
    exit when rad_cursor%NOTFOUND;/*如果游标中取不到值则推出循环*/ 

---

3.FOR循环

DECLARE

   PI   CONSTANT NUMBER (9, 7) := 3.1415926;

   RADIUS        INTEGER (5);

   AREA          NUMBER (14, 2);

BEGIN

   FOR RADIUS IN 1 .. 7

   LOOP

      AREA := PI * POWER (RADIUS, 2);

      DBMS_OUTPUT.put_line ('半径：' || RADIUS || '; 面积：'|| AREA);

   END LOOP;

END;

---

4.游标循环

DECLARE

   PI   CONSTANT NUMBER (9, 7) := 3.1415926;

   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);

      DBMS_OUTPUT.put_line ('半径：' || RAD_VAL.RADIUS|| '; 面积：' || AREA);

   END LOOP;

END;

---

5.WHILE循环

DECLARE

   PI   CONSTANT NUMBER (9, 7) := 3.1415926;

   RADIUS        INTEGER (5);

   AREA          NUMBER (14, 2);

BEGIN

   RADIUS := 3;

   WHILE RADIUS <= 7

   LOOP

      AREA := PI * POWER (RADIUS, 2);

      DBMS_OUTPUT.PUT_LINE ('半径：' || RADIUS || '; 面积：' || AREA);

      RADIUS := RADIUS + 1;

   END LOOP;

END;

---

6.CASE语句

DECLARE

   pi   CONSTANT NUMBER (9, 7) := 3.1415926;

   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 WHEN rad_cursor%NOTFOUND;

      area := pi * POWER (rad_val.radius, 2);

 

      CASE

         WHEN rad_val.Radius = 3

         THEN

            DBMS_OUTPUT.put_line ('半径：' || rad_val.radius || '; 面积：' || area);

         WHEN rad_val.Radius = 4

         THEN

            DBMS_OUTPUT.put_line ('半径：' || rad_val.radius || '; 面积：' || area);

         WHEN rad_val.Radius = 10

         THEN

            DBMS_OUTPUT.put_line ('半径：' || rad_val.radius || '; 面积：' || area);

         ELSE

            RAISE CASE_NOT_FOUND;

      END CASE;

   END LOOP;

END;

 

 

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