oracle的loop等循环语句的几个用法小例子 

--loop循环用法 (输出1到10)

    declare v_num number(2) := 0;

    begin

      loop

        v_num := v_num + 1;

        exit when v_num > 10;

        --上面退出循环也可以用下面3行

         /* if(v_num > 9) then

            exit;

         end if;*/

        dbms_output.put_line(v_num);

      end loop;

    end;  

    --while loop循环用法 (输出1到10)

    declare v_num number(2) := 0;

    begin

      while v_num < 10 loop

         v_num := v_num + 1;

         dbms_output.put_line(v_num);

      end loop;

    end;  

    --for loop循环用法1 (输出1到10)

    declare v_num number(2) := 99;

    begin

      for v_n in 1 .. v_num loop

         exit when v_n > 10;

         dbms_output.put_line(v_n);

      end loop;

    end;  

    --for loop循环用法2 (输出某个表的序号、列数据)

    begin

       for v_n in(select amount,rownum from tmp) loop

          dbms_output.put_line(v_n.rownum || ' , ' || v_n.amount);

       end loop;

    end;  

    ---个循环打印某个月日历例子

    declare v_days number(2);

            v_firstday number(2);

            v_result varchar2(4000);

            v_d varchar(100);

            v_month date;

    begin

       v_month := to_date('','yyyymmdd');

       v_result := to_char(v_month,'yyyy') || '年' || to_char(v_month,'mm') || '月' || chr(10) ||  '日 一 二 三 四 五 六' || chr(10);

       select to_char(last_day(v_month), 'dd') into v_days from dual;--当月多少天

       select to_char(trunc(v_month, 'mm'),'d') into v_firstday from dual;--当月第1天是星期几：1-7

       --1号所在星期几的之前每一天补3个空格

       for v_week in 1 .. v_firstday - 1  loop

          exit when v_firstday < 2;

          v_result := v_result || '   ';

       end loop;

       for v_date in 1 .. v_days loop

          v_d := v_date;

          if(length(v_date) = 1) then

             v_d :=  ' '||v_date ;

          end if;

          v_result := v_result || v_d || ' ';

          if(mod(v_date + v_firstday, 7) = 1) then

              v_result := v_result || ' ' || chr(10);

          end if;

       end loop;

       dbms_output.put_line(v_result);

    end;

    /*

    运行结果：  

    2017年03月

    日 一 二 三 四 五 六

              1  2  3  4

     5  6  7  8  9 10 11

    12 13 14 15 16 17 18

    19 20 21 22 23 24 25

    26 27 28 29 30 31

    */  

    create or replace procedure test_procedure is

      --a表游标定义

      cursor a_cursor is

      select substr(mc,0,2) as str ,mc as mcs   from t_bz_zd_xzqh_jc;

      --b表游标定义

      cursor b_cursor(str1 string) is

        SELECT bm FROM t_bz_zd_xzqh where mc like  '%' || str1 || '%'; -- instr(mc, str1) > 0;

    begin

      for a_cur in a_cursor loop

        for b_cur in b_cursor(a_cur.str) loop

          --这里是你要执行的操作，比如insert到c

          --insert into c values (b_cur.id);

          update t_bz_zd_xzqh_jc set bh= b_cur.bm where mc = a_cur.mcs ;

          commit;

        end loop;

      end loop;  

      end;