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子句处理在异常处理部分未定义过的异常。