oracle的loop

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
    */  

oracle的双重for循环

    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;