¿Cómo restablezco una secuencia en Oracle?


170

En PostgreSQL , puedo hacer algo como esto:

ALTER SEQUENCE serial RESTART WITH 0;

¿Hay un equivalente de Oracle?


1
Echa un vistazo a "Sequence resets" aquí .
gerikson

3
ADVERTENCIA: todo el código siguiente solo es válido para secuencias que se crearon inicialmente con "incremento en 1". Si la secuencia original se creó con un incremento! = 1; Después de aplicar cualquiera de los procedimientos anteriores, el incremento habrá cambiado a 1. El valor de incremento correcto a utilizar se puede obtener de la vista de secuencias de usuario.

1
Suelta y recrea la secuencia
Viswanath Lekshmanan

Respuestas:


153

Aquí hay un buen procedimiento para restablecer cualquier secuencia a 0 desde el gurú de Oracle Tom Kyte . Gran discusión sobre los pros y los contras en los enlaces a continuación también.

tkyte@TKYTE901.US.ORACLE.COM> 
create or replace
procedure reset_seq( p_seq_name in varchar2 )
is
    l_val number;
begin
    execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_val;

    execute immediate
    'alter sequence ' || p_seq_name || ' increment by -' || l_val || 
                                                          ' minvalue 0';

    execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_val;

    execute immediate
    'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
end;
/

Desde esta página: SQL dinámico para restablecer el valor de secuencia
Otra buena discusión también está aquí: ¿Cómo restablecer secuencias?


@Dougman: hola soy principiante ... en la respuesta anterior, ¿por qué mencionas en la cláusula en el último en lugar de ejecutar inmediatamente 'select' || p_seq_name || '.nextval INTO l_val desde dual';
Thiyagu ATR

@Thiyagu: en PL / SQL esta es la sintaxis cuando se usa execute immediatepara capturar la salida de una selección que devuelve como máximo 1 fila. Aquí está la documentación sobre ejecución inmediata: docs.oracle.com/cd/B28359_01/appdev.111/b28370/…
Doug Porter

@matra No veo un escenario en el que uno deba restablecer una secuencia y estar en un entorno concurrente con otros usuarios de la misma secuencia.
Ekevoo

Por qué necesita seleccionar la secuencia, por qué no simplemente hacer la última línea'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
Goku

100

Un verdadero reinicio no es posible AFAIK . (¡Por favor corrígeme si estoy equivocado!).

Sin embargo, si desea establecerlo en 0, puede eliminarlo y volver a crearlo.

Si desea establecerlo en un valor específico, puede establecer el INCREMENTO en un valor negativo y obtener el siguiente valor.

Es decir, si su secuencia está en 500, puede establecerla en 100 a través de

ALTER SEQUENCE serial INCREMENT BY -400;
SELECT serial.NEXTVAL FROM dual;
ALTER SEQUENCE serial INCREMENT BY 1;

44
Solo una nota para las personas en PLSQL. Asegúrese de agregar "límite 1;" o "rownum = 1" a la instrucción select; de lo contrario, puede terminar ejecutando nextVal un par de veces e incrementándolo en -400 sin importar cuántas veces.
user830914

1
La secuencia de error .NEXTVAL va por debajo de MINVALUE y no puede ser instanciada cuando INCREMENT BY - <<big_number>>
zloctb

47

Este es mi enfoque:

  1. soltar la secuencia
  2. recrearlo

Ejemplo:

--Drop sequence

DROP SEQUENCE MY_SEQ;

-- Create sequence 

create sequence MY_SEQ
minvalue 1
maxvalue 999999999999999999999
start with 1
increment by 1
cache 20;

29
Solo tenga en cuenta que la caída invalidará cualquier objeto que dependa de esa secuencia y tendrá que volver a compilarse.
Doug Porter

22
También tendrá que volver a otorgar todas las subvenciones que se otorgaron para seleccionar de la secuencia.
GreenGiant

37
alter sequence serial restart start with 1;

Esta característica se agregó oficialmente en 18c, pero no está disponible oficialmente en 12.1.

Podría decirse que es seguro usar esta característica no documentada en 12.1. Aunque la sintaxis es no incluida en la documentación oficial , la genera el paquete DBMS_METADATA_DIFF de Oracle . Lo he usado varias veces en sistemas de producción. Sin embargo, creé una solicitud de servicio de Oracle y verificaron que no se trata de un error de documentación, la función no es compatible.

En 18c, la función no aparece en la sintaxis del lenguaje SQL, pero se incluye en la Guía del administrador de la base de datos .


Hola @ Jon, soy consciente de la característica no documentada, sin embargo, no sabía que se ve en el script generado de DBMS_METADATA_DIFF. ¿Podría decirme cómo generó el script, qué procedimiento, etc.? Intentaría probarlo también.
Lalit Kumar B

@LalitKumarB Me topé con esa característica al responder esta pregunta .
Jon Heller

1
Aah, lo tengo ahora. Gracias :-)
Lalit Kumar B

Supongo que esto se implementó para admitir "alter table your_table modify (id generado de forma predeterminada en nulo como inicio de identidad con valor límite);". ¡Es bueno saber que también funciona en secuencias estándar!
Oliver

1
En el caso de que el valor mínimo de la secuencia sea mayor 0 considere escribir... RESTART START WITH 0 MINVALUE 0
conceptdeluxe el

33

Mi enfoque es una extensión adolescente para adolescente del ejemplo de Dougman .

Las extensiones son ...

Pase el valor semilla como parámetro. ¿Por qué? Me gusta llamar a la cosa restableciendo la secuencia a la ID máxima utilizada en alguna tabla . Termino llamando a este proceso desde otro script que ejecuta múltiples llamadas para un conjunto completo de secuencias, restableciendo nextval nuevamente a un nivel lo suficientemente alto como para no causar violaciones de la clave primaria donde estoy usando el valor de la secuencia para un identificador único.

También honra el minvalor anterior . De hecho, puede impulsar el siguiente valor cada vez más alto si el p_val deseado o el valor mínimo existente son más altos que el valor actual o el siguiente valor calculado.

Lo mejor de todo es que se puede llamar para restablecer a un valor especificado, y solo esperar hasta que vea el procedimiento de "arreglar todas mis secuencias" al final.

create or replace
procedure Reset_Sequence( p_seq_name in varchar2, p_val in number default 0)
is
  l_current number := 0;
  l_difference number := 0;
  l_minvalue user_sequences.min_value%type := 0;

begin

  select min_value
  into l_minvalue
  from user_sequences
  where sequence_name = p_seq_name;

  execute immediate
  'select ' || p_seq_name || '.nextval from dual' INTO l_current;

  if p_Val < l_minvalue then
    l_difference := l_minvalue - l_current;
  else
    l_difference := p_Val - l_current;
  end if;

  if l_difference = 0 then
    return;
  end if;

  execute immediate
    'alter sequence ' || p_seq_name || ' increment by ' || l_difference || 
       ' minvalue ' || l_minvalue;

  execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_difference;

  execute immediate
    'alter sequence ' || p_seq_name || ' increment by 1 minvalue ' || l_minvalue;
end Reset_Sequence;

Ese procedimiento es útil por sí solo, pero ahora agreguemos otro que lo llame y especifique todo programáticamente con una convención de nomenclatura de secuencia y busque el valor máximo utilizado en una tabla / campo existente ...

create or replace
procedure Reset_Sequence_to_Data(
  p_TableName varchar2,
  p_FieldName varchar2
)
is
  l_MaxUsed NUMBER;
BEGIN

  execute immediate
    'select coalesce(max(' || p_FieldName || '),0) from '|| p_TableName into l_MaxUsed;

  Reset_Sequence( p_TableName || '_' || p_Fieldname || '_SEQ', l_MaxUsed );

END Reset_Sequence_to_Data;

¡Ahora estamos cocinando con gas!

El procedimiento anterior verificará el valor máximo de un campo en una tabla, construye un nombre de secuencia a partir del par tabla / campo e invoca "Reset_Sequence" con ese valor máximo detectado.

La pieza final de este rompecabezas y la guinda del pastel viene a continuación ...

create or replace
procedure Reset_All_Sequences
is
BEGIN

  Reset_Sequence_to_Data( 'ACTIVITYLOG', 'LOGID' );
  Reset_Sequence_to_Data( 'JOBSTATE', 'JOBID' );
  Reset_Sequence_to_Data( 'BATCH', 'BATCHID' );

END Reset_All_Sequences;

En mi base de datos real hay alrededor de otras cien secuencias que se restablecen a través de este mecanismo, por lo que hay 97 llamadas más a Reset_Sequence_to_Data en ese procedimiento anterior.

¿Quiéralo? ¿Lo odio? ¿Indiferente?


2
Me encanta. Agregaría una variable para obtener y guardar el incremento por valor de la tabla user_sequences. (Puede que no sea 1). Nota: es posible que deba usar la tabla all_sequences en su lugar. En este caso, es posible que desee pasar también en la secuencia_propietario.
Harv

1
No puedo votarte lo suficiente. Este es un problema bastante común cuando se trata de la migración de datos, y este es el mejor enfoque AFAIK si está atascado con secuencias.
Dominique Eav

1
Votado porque este es un excelente enfoque. El único inconveniente es que puede dar lugar a un comportamiento impredecible en un sistema RAC, donde l_currentpuede ser uno de varios valores, dependiendo de qué nodo se ejecute el script; volver a ejecutar el script puede generar resultados diferentes. Descubrí que si lo ejecuté varias veces, finalmente se decidió por un valor particular.
Jeffrey Kemp

10

El siguiente script establece la secuencia en el valor deseado:

Dada una secuencia recién creada llamada PCS_PROJ_KEY_SEQ y la tabla PCS_PROJ:

BEGIN
   DECLARE
      PROJ_KEY_MAX       NUMBER := 0;
      PROJ_KEY_CURRVAL   NUMBER := 0;
   BEGIN

    SELECT MAX (PROJ_KEY) INTO PROJ_KEY_MAX FROM PCS_PROJ;
    EXECUTE IMMEDIATE 'ALTER SEQUENCE PCS_PROJ_KEY_SEQ INCREMENT BY ' || PROJ_KEY_MAX;
    SELECT PCS_PROJ_KEY_SEQ.NEXTVAL INTO PROJ_KEY_CURRVAL FROM DUAL;
    EXECUTE IMMEDIATE 'ALTER SEQUENCE PCS_PROJ_KEY_SEQ INCREMENT BY 1';

END;
END;
/

1
Olvidó el signo menos en su primera declaración DDL (también, hay una ENDpalabra clave adicional ).
Priidu Neemre

5

Este procedimiento almacenado reinicia mi secuencia:

Create or Replace Procedure Reset_Sequence  
  is
  SeqNbr Number;
begin
   /*  Reset Sequence 'seqXRef_RowID' to 0    */
   Execute Immediate 'Select seqXRef.nextval from dual ' Into SeqNbr;
   Execute Immediate 'Alter sequence  seqXRef increment by - ' || TO_CHAR(SeqNbr) ;
   Execute Immediate 'Select seqXRef.nextval from dual ' Into SeqNbr;
   Execute Immediate 'Alter sequence  seqXRef increment by 1';
END;

/ /


+1: también puede parametrizarlo para que pase el nombre de la secuencia.
DCookie

4

Hay otra forma de restablecer una secuencia en Oracle: establezca las propiedades maxvaluey cycle. Cuando el nextvalde la secuencia llega a maxvalue, si la cyclepropiedad está establecida, comenzará nuevamente desdeminvalue de la secuencia.

La ventaja de este método en comparación con establecer un valor negativo increment by es que la secuencia puede continuar utilizándose mientras se ejecuta el proceso de reinicio, lo que reduce la posibilidad de que necesite tomar algún tipo de interrupción para realizar el reinicio.

El valor de maxvaluetiene que ser mayor que el actual nextval, por lo que el siguiente procedimiento incluye un parámetro opcional que permite un búfer en caso de que se vuelva a acceder a la secuencia entre la selección nextvalen el procedimiento y la configuración de la cyclepropiedad.

create sequence s start with 1 increment by 1;

select s.nextval from dual
connect by level <= 20;

   NEXTVAL
----------
         1 
...
        20

create or replace procedure reset_sequence ( i_buffer in pls_integer default 0)
as
  maxval pls_integer;
begin

  maxval := s.nextval + greatest(i_buffer, 0); --ensure we don't go backwards!
  execute immediate 'alter sequence s cycle minvalue 0 maxvalue ' || maxval;
  maxval := s.nextval;
  execute immediate 'alter sequence s nocycle maxvalue 99999999999999';

end;
/
show errors

exec reset_sequence;

select s.nextval from dual;

   NEXTVAL
----------
         1 

El procedimiento en espera permite la posibilidad de que otra sesión obtenga el valor 0, lo que puede o no ser un problema para usted. Si es así, siempre podrías:

  • Establecer minvalue 1en el primer alter
  • Excluir la segunda nextvalbúsqueda
  • Mueva la instrucción para establecer la nocyclepropiedad en otro procedimiento, que se ejecutará en una fecha posterior (suponiendo que desee hacer esto).

3

Jezus, toda esta programación solo para un reinicio del índice ... Quizás soy un idiota, pero para el pre-oráculo 12 (que tiene una función de reinicio), lo que está mal con un simpel:

drop sequence blah;
create sequence blah 

?


2
El principal problema al soltar una secuencia es que pierde los privilegios otorgados sobre ella.
Jon Heller

1
De acuerdo, Jon. En su mayoría, restaurarlos costará mucho menos tiempo que toda esa programación. Los buenos DBA generalmente tienen guiones, por lo que no debería ser un problema :-)
Lawrence

2

1) Suponga que crea una SECUENCIA como se muestra a continuación:

CREATE SEQUENCE TESTSEQ
INCREMENT BY 1
MINVALUE 1
MAXVALUE 500
NOCACHE
NOCYCLE
NOORDER

2) Ahora obtiene valores de SECUENCIA. Digamos que he buscado cuatro veces como se muestra a continuación.

SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual

3) Después de ejecutar los cuatro comandos anteriores, el valor de la SECUENCIA será 4. Ahora suponga que he restablecido el valor de la SECUENCIA a 1 nuevamente. El sigue los siguientes pasos. Siga todos los pasos en el mismo orden que se muestra a continuación:

  1. ALTER SEQUENCE TESTSEQ INCREMENT BY -3;
  2. SELECT TESTSEQ.NEXTVAL FROM dual
  3. ALTER SEQUENCE TESTSEQ INCREMENT BY 1;
  4. SELECT TESTSEQ.NEXTVAL FROM dual

2

Alterar el valor de INCREMENTO de la secuencia, incrementarlo y luego volver a alterarlo es bastante sencillo, además tiene el beneficio adicional de no tener que restablecer todas las subvenciones como lo hubiera hecho si hubiera eliminado / recreado la secuencia.


2

Creo un bloque para restablecer todas mis secuencias:

DECLARE
    I_val number;
BEGIN
    FOR US IN
        (SELECT US.SEQUENCE_NAME FROM USER_SEQUENCES US)
    LOOP
        execute immediate 'select ' || US.SEQUENCE_NAME || '.nextval from dual' INTO l_val;
        execute immediate 'alter sequence ' || US.SEQUENCE_NAME || ' increment by -' || l_val || ' minvalue 0';
        execute immediate 'select ' || US.SEQUENCE_NAME || '.nextval from dual' INTO l_val;
        execute immediate 'alter sequence ' || US.SEQUENCE_NAME || ' increment by 1 minvalue 0';
    END LOOP;
END;

2

Aquí hay un procedimiento más robusto para alterar el siguiente valor devuelto por una secuencia, además de mucho más.

  • En primer lugar, protege contra ataques de inyección SQL, ya que ninguna de las cadenas pasadas se utiliza para crear directamente ninguna de las sentencias SQL dinámicas
  • En segundo lugar, evita que el siguiente valor de secuencia se establezca fuera de los límites de los valores de secuencia mínimo o máximo. El next_valueserá! = min_valueY entre min_valuey max_value.
  • En tercer lugar, tiene increment_byen cuenta la configuración actual (o propuesta) , así como todas las demás configuraciones de secuencia al limpiar.
  • Cuarto, todos los parámetros, excepto el primero, son opcionales y, a menos que se especifiquen, toman la configuración de secuencia actual como valores predeterminados. Si no se especifican parámetros opcionales, no se toman medidas.
  • Finalmente, si intenta alterar una secuencia que no existe (o que no es propiedad del usuario actual), generará un ORA-01403: no data founderror.

Aquí está el código:

CREATE OR REPLACE PROCEDURE alter_sequence(
    seq_name      user_sequences.sequence_name%TYPE
  , next_value    user_sequences.last_number%TYPE := null
  , increment_by  user_sequences.increment_by%TYPE := null
  , min_value     user_sequences.min_value%TYPE := null
  , max_value     user_sequences.max_value%TYPE := null
  , cycle_flag    user_sequences.cycle_flag%TYPE := null
  , cache_size    user_sequences.cache_size%TYPE := null
  , order_flag    user_sequences.order_flag%TYPE := null)
  AUTHID CURRENT_USER
AS
  l_seq user_sequences%rowtype;
  l_old_cache user_sequences.cache_size%TYPE;
  l_next user_sequences.min_value%TYPE;
BEGIN
  -- Get current sequence settings as defaults
  SELECT * INTO l_seq FROM user_sequences WHERE sequence_name = seq_name;

  -- Update target settings
  l_old_cache := l_seq.cache_size;
  l_seq.increment_by := nvl(increment_by, l_seq.increment_by);
  l_seq.min_value    := nvl(min_value, l_seq.min_value);
  l_seq.max_value    := nvl(max_value, l_seq.max_value);
  l_seq.cycle_flag   := nvl(cycle_flag, l_seq.cycle_flag);
  l_seq.cache_size   := nvl(cache_size, l_seq.cache_size);
  l_seq.order_flag   := nvl(order_flag, l_seq.order_flag);

  IF next_value is NOT NULL THEN
    -- Determine next value without exceeding limits
    l_next := LEAST(GREATEST(next_value, l_seq.min_value+1),l_seq.max_value);

    -- Grab the actual latest seq number
    EXECUTE IMMEDIATE
        'ALTER SEQUENCE '||l_seq.sequence_name
            || ' INCREMENT BY 1'
            || ' MINVALUE '||least(l_seq.min_value,l_seq.last_number-l_old_cache)
            || ' MAXVALUE '||greatest(l_seq.max_value,l_seq.last_number)
            || ' NOCACHE'
            || ' ORDER';
    EXECUTE IMMEDIATE 
      'SELECT '||l_seq.sequence_name||'.NEXTVAL FROM DUAL'
    INTO l_seq.last_number;

    l_next := l_next-l_seq.last_number-1;

    -- Reset the sequence number
    IF l_next <> 0 THEN
      EXECUTE IMMEDIATE 
        'ALTER SEQUENCE '||l_seq.sequence_name
            || ' INCREMENT BY '||l_next
            || ' MINVALUE '||least(l_seq.min_value,l_seq.last_number)
            || ' MAXVALUE '||greatest(l_seq.max_value,l_seq.last_number)
            || ' NOCACHE'
            || ' ORDER';
      EXECUTE IMMEDIATE 
        'SELECT '||l_seq.sequence_name||'.NEXTVAL FROM DUAL'
      INTO l_next;
    END IF;
  END IF;

  -- Prepare Sequence for next use.
  IF COALESCE( cycle_flag
             , next_value
             , increment_by
             , min_value
             , max_value
             , cache_size
             , order_flag) IS NOT NULL
  THEN
    EXECUTE IMMEDIATE 
      'ALTER SEQUENCE '||l_seq.sequence_name
          || ' INCREMENT BY '||l_seq.increment_by
          || ' MINVALUE '||l_seq.min_value
          || ' MAXVALUE '||l_seq.max_value
          || CASE l_seq.cycle_flag
             WHEN 'Y' THEN ' CYCLE' ELSE ' NOCYCLE' END
          || CASE l_seq.cache_size
             WHEN 0 THEN ' NOCACHE'
             ELSE ' CACHE '||l_seq.cache_size END
          || CASE l_seq.order_flag
             WHEN 'Y' THEN ' ORDER' ELSE ' NOORDER' END;
  END IF;
END;

2

En mi proyecto, una vez que sucedió que alguien ingresó manualmente los registros sin usar la secuencia, por lo tanto, tengo que restablecer el valor de la secuencia manualmente, para lo cual escribí el fragmento de código sql a continuación:

declare
max_db_value number(10,0);
cur_seq_value number(10,0);
counter number(10,0);
difference number(10,0);
dummy_number number(10);

begin

-- enter table name here
select max(id) into max_db_value from persons;
-- enter sequence name here
select last_number into cur_seq_value from user_sequences where  sequence_name = 'SEQ_PERSONS';

difference  := max_db_value - cur_seq_value;

 for counter in 1..difference
 loop
    -- change sequence name here as well
    select SEQ_PERSONS.nextval into dummy_number from dual;
 end loop;
end;

Tenga en cuenta que el código anterior funcionará si la secuencia está retrasada.


1

Puede usar la opción CICLO, que se muestra a continuación:

CREATE SEQUENCE test_seq
MINVALUE 0
MAXVALUE 100
START WITH 0
INCREMENT BY 1
CYCLE;

En este caso, cuando la secuencia alcanza MAXVALUE (100), se reciclará a MINVALUE (0).

En el caso de una secuencia disminuida, la secuencia se reciclaría al MAXVALUE.


1
Para los votantes negativos (que nunca verán este comentario): El atributo CYCLE es exactamente lo que usé para lograr un restablecimiento de secuencia. El hecho de que el reinicio sea automático no significa que no cumpla el objetivo: ¡OP no especificó que el reinicio tenía que ser para una secuencia preexistente !
Jeromy French

1

Aquí se explica cómo hacer que todas las secuencias de incremento automático coincidan con los datos reales:

  1. Cree un procedimiento para aplicar el siguiente valor como ya se describió en este hilo:

    CREATE OR REPLACE PROCEDURE Reset_Sequence(
        P_Seq_Name IN VARCHAR2,
        P_Val      IN NUMBER DEFAULT 0)
    IS
      L_Current    NUMBER                      := 0;
      L_Difference NUMBER                      := 0;
      L_Minvalue User_Sequences.Min_Value%Type := 0;
    BEGIN
      SELECT Min_Value
      INTO L_Minvalue
      FROM User_Sequences
      WHERE Sequence_Name = P_Seq_Name;
      EXECUTE Immediate 'select ' || P_Seq_Name || '.nextval from dual' INTO L_Current;
      IF P_Val        < L_Minvalue THEN
        L_Difference := L_Minvalue - L_Current;
      ELSE
        L_Difference := P_Val - L_Current;
      END IF;
      IF L_Difference = 0 THEN
        RETURN;
      END IF;
      EXECUTE Immediate 'alter sequence ' || P_Seq_Name || ' increment by ' || L_Difference || ' minvalue ' || L_Minvalue;
      EXECUTE Immediate 'select ' || P_Seq_Name || '.nextval from dual' INTO L_Difference;
      EXECUTE Immediate 'alter sequence ' || P_Seq_Name || ' increment by 1 minvalue ' || L_Minvalue;
    END Reset_Sequence;
  2. Cree otro procedimiento para conciliar todas las secuencias con contenido real:

    CREATE OR REPLACE PROCEDURE RESET_USER_SEQUENCES_TO_DATA
    IS
      STMT CLOB;
    BEGIN
      SELECT 'select ''BEGIN'' || chr(10) || x || chr(10) || ''END;'' FROM (select listagg(x, chr(10)) within group (order by null) x FROM ('
        || X
        || '))'
      INTO STMT
      FROM
        (SELECT LISTAGG(X, ' union ') WITHIN GROUP (
        ORDER BY NULL) X
        FROM
          (SELECT CHR(10)
            || 'select ''Reset_Sequence('''''
            || SEQ_NAME
            || ''''','' || coalesce(max('
            || COL_NAME
            || '), 0) || '');'' x from '
            || TABLE_NAME X
          FROM
            (SELECT TABLE_NAME,
              REGEXP_SUBSTR(WTEXT, 'NEW\.(\S*) IS NULL',1,1,'i',1) COL_NAME,
              REGEXP_SUBSTR(BTEXT, '(\.|\s)([a-z_]*)\.nextval',1,1,'i',2) SEQ_NAME
            FROM USER_TRIGGERS
            LEFT JOIN
              (SELECT NAME BNAME,
                TEXT BTEXT
              FROM USER_SOURCE
              WHERE TYPE = 'TRIGGER'
              AND UPPER(TEXT) LIKE '%NEXTVAL%'
              )
            ON BNAME = TRIGGER_NAME
            LEFT JOIN
              (SELECT NAME WNAME,
                TEXT WTEXT
              FROM USER_SOURCE
              WHERE TYPE = 'TRIGGER'
              AND UPPER(TEXT) LIKE '%IS NULL%'
              )
            ON WNAME             = TRIGGER_NAME
            WHERE TRIGGER_TYPE   = 'BEFORE EACH ROW'
            AND TRIGGERING_EVENT = 'INSERT'
            )
          )
        ) ;
      EXECUTE IMMEDIATE STMT INTO STMT;
      --dbms_output.put_line(stmt);
      EXECUTE IMMEDIATE STMT;
    END RESET_USER_SEQUENCES_TO_DATA;

NOTAS

  1. El procedimiento extrae nombres del código de activación y no depende de convenciones de nomenclatura
  2. Para verificar el código generado antes de la ejecución, cambie los comentarios en las últimas dos líneas

1

Hago una alternativa para que el usuario no necesite conocer los valores, el sistema obtiene y usa variables para actualizar.

--Atualizando sequence da tabela SIGA_TRANSACAO, pois está desatualizada
DECLARE
 actual_sequence_number INTEGER;
 max_number_from_table INTEGER;
 difference INTEGER;
BEGIN
 SELECT [nome_da_sequence].nextval INTO actual_sequence_number FROM DUAL;
 SELECT MAX([nome_da_coluna]) INTO max_number_from_table FROM [nome_da_tabela];
 SELECT (max_number_from_table-actual_sequence_number) INTO difference FROM DUAL;
IF difference > 0 then
 EXECUTE IMMEDIATE CONCAT('alter sequence [nome_da_sequence] increment by ', difference);
 --aqui ele puxa o próximo valor usando o incremento necessário
 SELECT [nome_da_sequence].nextval INTO actual_sequence_number from dual;
--aqui volta o incremento para 1, para que futuras inserções funcionem normalmente
 EXECUTE IMMEDIATE 'ALTER SEQUENCE [nome_da_sequence] INCREMENT by 1';
 DBMS_OUTPUT.put_line ('A sequence [nome_da_sequence] foi atualizada.');
ELSE
 DBMS_OUTPUT.put_line ('A sequence [nome_da_sequence] NÃO foi atualizada, já estava OK!');
END IF;
END;

-1

Procedimiento almacenado que funcionó para mí

create or replace
procedure reset_sequence( p_seq_name in varchar2, tablename in varchar2 )
is
    l_val number;
    maxvalueid number;
begin
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'select max(id) from ' || tablename INTO maxvalueid;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by -' || l_val || ' minvalue 0';
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by '|| maxvalueid ||' minvalue 0';  
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
end;

Cómo usar el procedimiento almacenado:

execute reset_sequence('company_sequence','company');
Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.
Licensed under cc by-sa 3.0 with attribution required.