大数据量删除与插入的PLSQL语句

转载自：http://yangchao20020.blog.163.com/blog/static/48382247200921321442812/

在PL/SQL中的命令窗口执行下面的语句：(先将下面代码粘贴到命令窗口，粘贴完后，再在窗口里输入"/"键则运行你刚粘贴到窗口里的该程序代码)

【1】业务逻辑：A表中有300W的数据，B表中有70W的数据,现在要对A表中的部分数据进行删除，删除条件是：根据B表中70W数据来对A表进行条件删除，条件的字段为usercode。

 

set serveroutput  on
     Declare
       rcode  integer;
     begin
          loop
             -- 每次将表a删除10000条记录
             delete  from a
              where  exists ( select usercode  from b  where a.usercode  = b.usercode)
                and rownum  <  10000;
             -- 每10000条提交一次
             commit;
             exit  when sql % rowcount  =  0;
           end loop;
          rcode : =  1;
           -- delete操作完成后，rcode值为1
          dbms_output.put_line( ' 结果是： ' ||to_char(rcode));
    exception
       when others  then
         rollback;
        rcode : =  0;
         -- delete操作失败后，rcode值为0
        dbms_output.put_line( ' 结果是： ' ||to_char(rcode));
     end;

语句的逻辑：每循环一次，删除a表中的10000条记录，并commit提交该delete语句，当整个循环执行完后，70W数据成功删除完后，会在命令窗口打印出（delete出现异常则打印0）：

结果是：1
PL/SQL 过程成功完成

【2】业务逻辑：批量插入5000调测试数据到susr_info表和susr_basic表中，做为测试数据。

     set serveroutput  on
     Declare
      cnt              number( 10);
      v_userindex      number( 20);
      v_customerindex  number( 20);
      v_usercode       varchar( 100);
      rcode            varchar( 200);
      v_message        varchar( 200);
     begin
          cnt : =  1;
          v_usercode: = 16500000000;
          loop
                 begin
                      sp_get_next_seq( ' susr_info ',v_customerindex); -- 序列器产生v_customerindex
                      sp_get_next_seq( ' susr_basic ',v_userindex); -- 同上
                      v_usercode : = v_usercode  +  1;
                       insert  into susr_info
                      (customerindex,
                       customerid,
                       usertruename,
                       useremail,
                       userpwd
                       )
                        values
                      (v_customerindex,
                       v_customerindex,
                        ''  || v_usercode,
                        '   ',
                        ' 55555 '
                       );
                        insert  into susr_basic
                      (userindex,
                       usercode,
                       accountindex,
                       customerindex,
                       msisdntype
                       )
                        values
                      (v_userindex,
                        ''  || v_usercode,
                        0,
                       v_customerindex,
                        1
                       );
                       if mod(v_userindex,  1000)  =  0  then
                         commit;
                       end  if;
                exception
                 when others  then
                   rollback;
                  v_message : = sqlcode || ' : ' ||sqlerrm;
                   -- 将异常记录做日志
                   insert  into log_info  values( ' zxdbm_ismp.v3_sub_2 ',v_message,sysdate,v_usercode); 
                   commit;
                 end; 
                cnt : = cnt  +  1;
                 if cnt  >  5000  then
                   exit;
                 end  if;   
           end loop;
           commit;
          rcode : =  ' over ';
          dbms_output.put_line( ' 结果是： ' ||rcode);
     end;

语句的逻辑：每循环1000次，将LOOP循环体中的两个insert语句的结果commit，每次循环，如果insert语句只其中一个出现异常，则将异常记录写到日志表log_info中，接着执行下一次循环，当执行insert的次数达到5000，则退出循环，结束整个业务流程。执行完后，会在命令窗口打印出

结果是：over
PL/SQL 过程成功完成