Oracle 存储过程 每天凌晨 更新sequence 从0 开始

实现 Oracle 储存过程 每天凌晨 更新sequence 从0 开始。

CREATE OR REPLACE PROCEDURE seq_reset AS
  n    NUMBER(10);
  tsql VARCHAR2(100);
 BEGIN
  EXECUTE IMMEDIATE 'select SQD_LSH.nextval from dual'
    INTO n;
  n    := - (n );
  tsql := 'alter sequence  SQD_LSH increment by ' || n;
  EXECUTE IMMEDIATE tsql;
  EXECUTE IMMEDIATE 'select  SQD_LSH.nextval from dual'
    INTO n;
    tsql := 'alter sequence SQD_LSH increment by 1';
  EXECUTE IMMEDIATE tsql;
 
END seq_reset;

先得到sequence的当前值，然后设置其步长为这个值的相反数，在执行nextval相当于减去已经增长的部分，使sequence重新归零，最后恢复步长为1.