批量修改Oracle序列值的存储过程

使用Oracle序列来生成表主键值的时候 ，可能会碰到会根据主键值来修改相应序列的值。

    下面存储过程P_MODIFY_SEQUENCES完成这一目的。

　 r:=F_MODIFY_SEQUENCE('SE_DATATYPE','T_DATATYPE','DDID'); 
     r:=F_MODIFY_SEQUENCE('SE_DATAITEM','T_DATAITEM','ITEMID');

把这个修改成要修改的序列名及对应表名和主键名，支持多序列。

create or replace procedure P_MODIFY_SEQUENCES is
--更新各序列值
str_sql varchar2(4000);
r boolean;

function F_MODIFY_SEQUENCE(sequenceName varchar2,taleName varchar2,keyF varchar2)return boolean
is
  LastValue integer;
  f_sql varchar2(4000);
  Next_num number;
  Max_num number;
begin
 f_sql:='select max('||keyF||') from '||taleName;
 execute immediate f_sql into Max_num;
 if(Max_num is not null) then
      Next_num:=Max_num+1;
     f_sql:='alter sequence '||sequenceName||' increment by 1 nocache';
     execute immediate f_sql;
     --f_sql:='select '||sequenceName||'.nextval from dual';
     --execute immediate f_sql;
     f_sql:='alter sequence '||sequenceName||' increment by 1 nocache';
     execute immediate f_sql;
 
     loop
      f_sql:='select '||sequenceName||'.nextval from dual';
      execute immediate f_sql into LastValue;
      --select SE_DATATYPE.nextval into LastValue from dual;    
      exit when LastValue >= Next_num - 1;
      f_sql:='select '||sequenceName||'.nextval from dual';
      execute immediate f_sql into LastValue;    
      --select SE_DATATYPE.nextval into LastValue from dual;
     end loop;  
     f_sql:='alter sequence '||sequenceName||' increment by 1 cache 20';
     execute immediate f_sql;
 end if;
 commit;
 return true;
 Exception
    when others then
            return false; 
end F_MODIFY_SEQUENCE;


begin 
     r:=F_MODIFY_SEQUENCE('SE_DATATYPE','T_DATATYPE','DDID'); 
     r:=F_MODIFY_SEQUENCE('SE_DATAITEM','T_DATAITEM','ITEMID'); 
end P_MODIFY_SEQUENCES;
/