oracle数据库修改序列的当前值

在oracle数据库刷库过程中我们有时候需要修改某一个表主键所引用序列的当前值以便能够兼容一些原始数据或者灾备等等吧。

自己写了一个修改数据库当前值的存储过程给大家分享一下。

CREATE OR REPLACE PROCEDURE modify_seq(SEQUENCENAME  IN VARCHAR2,
                                               TALENAME  IN VARCHAR2,
                                               PKEY   IN VARCHAR2, 
                                               S_RESULT OUT VARCHAR2) AS
  IN_SQL VARCHAR2(4000);
  SEQ_SQL VARCHAR2(4000);
  LastValue VARCHAR2(10);
  Next_num  VARCHAR2(200);
  Max_num    VARCHAR2(200);
  TYPE C_1 is ref CURSOR;

  CUR_RESULT1  C_1;
  TYPE C_2 is ref CURSOR;

  CUR_RESULT2  C_2;
BEGIN
  IN_SQL:='select max('||PKEY||') from '||TALENAME; 
  OPEN CUR_RESULT1 FOR IN_SQL;
  SEQ_SQL:='select '||sequenceName||'.nextval from dual'; 
  OPEN CUR_RESULT2 FOR SEQ_SQL;
     LOOP
     FETCH CUR_RESULT1 INTO Max_num;
   Next_num:=Max_num+1;
   FETCH CUR_RESULT2 INTO LastValue;
     EXIT WHEN LastValue >= Next_num - 1;
   SEQ_SQL:='select '||sequenceName||'.nextval from dual';
     execute immediate SEQ_SQL into LastValue;   
     END LOOP;
  COMMIT;
  S_RESULT := SYSDATE || ' OK!';
EXCEPTION
  WHEN OTHERS THEN
    S_RESULT := IN_SQL;
    ROLLBACK;
END modify_seq;

下边的方法进行调用：

declare S_RESULT VARCHAR2(20);
begin
modify_seq('YOUR_SEQ','YOUR_T','P_KEY',S_RESULT);
end;

存储过程的逻辑是：获取到目标表的主键最大值，然后让序列循环到其最大值，最后跳出循环。