（转）Oracle中的for和while循环

有两种方式可以实现条件循环

一、for 变量 in 开始数值...结束数值 loop end loop；

二、while 条件 loop end loop；

loop的使用方式：

一、X := 100;

LOOP

X := X + 10;

IF X > 1000 THEN

EXIT;

END IF END LOOP;

Y := X;

二、 X := 100;

LOOP

X := X + 10;

EXIT WHEN X > 1000;

X := X + 10;

END LOOP;

Y := X;

还有一个GOTO的使用，在后面的过程中会有的，用来产生错误日志。

以下是一个非常简单的过程，用来熟悉循环的！

create or replace procedure count_number is

/*

功能描述：计算计算出1到100的和

t的值为和

*/

i number(10);

t number(10);

begin

/*

i := 1;

t := 0;

--用while+loop实现

/*begin

while i <= 100 loop

t := t + i;

i := i + 1;

end loop;

end;

*/

i := 1;

t := 0;

--用for实现

begin

for i in 1 .. 100 loop

t := t + i;

end loop;

end;

end count_number;

for循环：

[PL/SQL] 用For Loop 替代Cursor

CURSOR FOR Loop

FOR employee_rec in c1 ---employee_rec直接用，不用提前定义

LOOP

total_val := total_val + employee_rec.monthly_income;

END LOOP;

当使用CURSOR FOR Loop时，不用我手工open cursor close cursor

应用：

begin

FOR emm IN ( SELECT ro_site, ns_site, product_line, wh_type

FROM eis_hq_invhl_mail_data

WHERE report_type = 'Detailed' )

LOOP

DBMS_OUTPUT.put_line( emm.product_line );

eis_hq_invhl_pkg.make_mail_detailed_data

( p_ro_site =>
emm.ro_site,

p_ns_site =>
emm.ns_site,

p_product_line =>
emm.product_line,

p_wh_type =>
emm.wh_type,

p_current_day =>
to_date('2005-11-07','yyyy-MM-dd') );

END LOOP;

end;

存储过程DIY2----游标与循环

while循环：

WHILE( i <= CEIL( LENGTH( p_clob_data ) / 4000 ))

LOOP

v_clob_data := TRIM( SUBSTR( p_clob_data,

i * 4000,

4000 ));

DBMS_OUTPUT.put_line( SUBSTR( v_clob_data,

0,

255 ));

i := i + 1;

END LOOP;