Comment réinitialiser une séquence dans Oracle?


170

Dans PostgreSQL , je peux faire quelque chose comme ceci:

ALTER SEQUENCE serial RESTART WITH 0;

Existe-t-il un équivalent Oracle?


1
Jetez un œil à "Réinitialisation de la séquence" ici .
gerikson le

3
ATTENTION: tout le code ci-dessous n'est valable que pour les séquences initialement créées avec "incrémentation de 1". Si la séquence d'origine a été créée avec un incrément! = 1; après avoir appliqué l'une des procédures ci-dessus, l'incrément est passé à 1! La valeur d'incrémentation correcte à utiliser peut être obtenue à partir de la vue user_sequences.

1
Déposer et recréer la séquence
Viswanath Lekshmanan

Réponses:


153

Voici une bonne procédure pour réinitialiser n'importe quelle séquence à 0 à partir du gourou d'Oracle Tom Kyte . Grande discussion sur les avantages et les inconvénients dans les liens ci-dessous également.

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;
/

De cette page: SQL dynamique pour réinitialiser la valeur de séquence
Une autre bonne discussion est également ici: Comment réinitialiser les séquences?


@Dougman: Salut, je suis débutant .... dans la réponse ci-dessus pourquoi est-ce que vous mentionnez dans la clause dans la dernière à la place, exécutez "select" immédiat || p_seq_name || '.nextval INTO l_val de dual';
Thiyagu ATR

@Thiyagu: En PL / SQL, il s'agit de la syntaxe lors de l'utilisation execute immediatepour capturer la sortie d'une sélection retournant au plus 1 ligne. Voici la documentation sur Exécuter immédiatement: docs.oracle.com/cd/B28359_01/appdev.111/b28370/…
Doug Porter

@matra Je ne vois pas de scénario dans lequel on aurait besoin de réinitialiser une séquence et d'être dans un environnement concurrent avec d'autres utilisateurs de la même séquence.
Ekevoo

Pourquoi vous devez sélectionner la séquence, pourquoi ne pas simplement faire la dernière ligne'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
Goku

100

Un vrai redémarrage n'est pas possible AFAIK . (Corrigez-moi si j'ai tort, s'il-vous plait!).

Cependant, si vous souhaitez le définir sur 0, vous pouvez simplement le supprimer et le recréer.

Si vous souhaitez le définir sur une valeur spécifique, vous pouvez définir INCREMENT sur une valeur négative et obtenir la valeur suivante.

Autrement dit, si votre séquence est à 500, vous pouvez la définir sur 100 via

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

4
Juste une note pour les utilisateurs de PLSQL. Assurez-vous d'ajouter "limite 1;" ou "rownum = 1" à l'instruction select sinon vous pouvez finir par exécuter nextVal plusieurs fois et en incrémentant de -400 le cas échéant.
user830914

1
La séquence d'erreur .NEXTVAL passe en dessous de MINVALUE et ne peut pas être instanciée lorsque INCREMENT BY - <<big_number>>
zloctb

47

Voici ma démarche:

  1. abandonner la séquence
  2. le recréer

Exemple:

--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
Sachez simplement que la suppression invalidera tous les objets qui dépendent de cette séquence et qu'ils devront être recompilés.
Doug Porter

22
Vous devrez également ré-accorder toutes les subventions qui ont été accordées pour sélectionner dans la séquence.
GreenGiant

37
alter sequence serial restart start with 1;

Cette fonctionnalité a été officiellement ajoutée dans la 18c, mais elle est officieusement disponible dans la 12.1.

Il est sans doute sûr d'utiliser cette fonctionnalité non documentée dans la version 12.1. Même si la syntaxe n'est pas incluse dans la documentation officielle , elle est générée par le package Oracle DBMS_METADATA_DIFF . Je l'ai utilisé plusieurs fois sur des systèmes de production. Cependant, j'ai créé une demande de service Oracle et ils ont vérifié qu'il ne s'agissait pas d'un bogue de documentation, la fonctionnalité n'est vraiment pas prise en charge.

Dans 18c, la fonctionnalité n'apparaît pas dans la syntaxe du langage SQL, mais est incluse dans le Guide de l'administrateur de base de données .


Hé @Jon, je suis au courant de la fonctionnalité non documentée, cependant, je ne savais pas qu'elle était visible dans le script généré à partir de DBMS_METADATA_DIFF. Pourriez-vous me dire comment vous avez généré le script, quelle procédure, etc.? J'essaierais de le tester aussi.
Lalit Kumar B

@LalitKumarB Je suis tombé sur cette fonctionnalité en répondant à cette question .
Jon Heller

1
Aah, compris maintenant. Merci :-)
Lalit Kumar B

Je suppose que cela a été implémenté pour prendre en charge "alter table your_table modify (id généré par défaut sur null car l'identité commence avec la valeur limite);". C'est bien de savoir que cela fonctionne aussi sur les séquences standard!
Oliver

1
Dans le cas où la valeur minimale de la séquence est supérieure 0 envisager d'écrire... RESTART START WITH 0 MINVALUE 0
conceptdeluxe

33

Mon approche est une extension minuscule de l'exemple de Dougman .

Les extensions sont ...

Transmettez la valeur de départ comme paramètre. Pourquoi? J'aime appeler la chose en réinitialisant la séquence à l'ID maximum utilisé dans certaines tables . Je finis par appeler ce proc à partir d'un autre script qui exécute plusieurs appels pour tout un tas de séquences, réinitialisant nextval à un niveau suffisamment élevé pour ne pas provoquer de violations de clé primaire où j'utilise la valeur de la séquence pour un identifiant unique.

Il honore également la valeur min précédente . Il peut en fait pousser la valeur suivante encore plus haut si la valeur p_val souhaitée ou la valeur minimale existante est supérieure à la valeur suivante actuelle ou calculée.

Le meilleur de tous, il peut être appelé pour réinitialiser à une valeur spécifiée, et attendez simplement que vous voyiez la procédure «réparer toutes mes séquences» du wrapper à la fin.

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;

Cette procédure est utile en elle-même, mais ajoutons maintenant une autre qui l'appelle et spécifie tout par programme avec une convention de dénomination de séquence et en recherchant la valeur maximale utilisée dans une table / un champ existant ...

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;

Maintenant, nous cuisinons au gaz!

La procédure ci-dessus vérifiera la valeur maximale d'un champ dans une table, construira un nom de séquence à partir de la paire table / champ et invoquera "Reset_Sequence" avec cette valeur maximale détectée.

La dernière pièce de ce puzzle et la cerise sur le gâteau viennent ensuite ...

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;

Dans ma base de données actuelle, il y a une centaine d'autres séquences en cours de réinitialisation via ce mécanisme, il y a donc 97 appels supplémentaires à Reset_Sequence_to_Data dans la procédure ci-dessus.

Aimer? Le detesté? Indifférent?


2
J'aime cela. J'ajouterais une variable pour obtenir et enregistrer l'incrément par valeur de la table user_sequences. (Ce n'est peut-être pas 1). Remarque: il peut être nécessaire d'utiliser la table all_sequences à la place. Dans ce cas, vous voudrez peut-être également passer dans sequence_owner.
Harv

1
Je ne peux pas vous voter assez. C'est un problème assez courant lorsque vous traitez avec la migration de données, et c'est la meilleure approche AFAIK si vous êtes coincé avec des séquences.
Dominique Eav

1
J'ai voté pour parce que c'est une excellente approche. Le seul inconvénient est que cela peut entraîner un comportement imprévisible dans un système RAC, où l_currentpeut être l'une des différentes valeurs, selon le nœud sur lequel le script est exécuté; la réexécution du script peut entraîner des résultats différents. J'ai trouvé que si je l'ai exécuté plusieurs fois, il s'est finalement installé sur une valeur particulière.
Jeffrey Kemp

10

Le script suivant définit la séquence sur une valeur souhaitée:

Étant donné une séquence nouvellement créée nommée PCS_PROJ_KEY_SEQ et la table 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
Vous avez oublié le moins dans votre première instruction DDL (également, il y a un ENDmot clé supplémentaire ).
Priidu Neemre

5

Cette procédure stockée redémarre ma séquence:

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 - Vous pouvez également le paramétrer pour lui transmettre le nom de la séquence.
DCookie

4

Il existe un autre moyen de réinitialiser une séquence dans Oracle: définissez les propriétés maxvalueet cycle. Lorsque le nextvalde la séquence atteint le maxvalue, si la cyclepropriété est définie, elle recommencera à partir du minvaluede la séquence.

L'avantage de cette méthode par rapport à la définition d'une valeur négative increment byest que la séquence peut continuer à être utilisée pendant l'exécution du processus de réinitialisation, ce qui réduit le risque que vous deviez prendre une forme de panne pour effectuer la réinitialisation.

La valeur de maxvaluedoit être supérieure à la valeur actuelle nextval, de sorte que la procédure ci-dessous inclut un paramètre facultatif permettant une mémoire tampon au cas où la séquence serait à nouveau accédée entre la sélection de nextvaldans la procédure et la définition de la cyclepropriété.

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 

La procédure en l'état permet toujours la possibilité qu'une autre session récupère la valeur 0, ce qui peut ou non être un problème pour vous. Si c'est le cas, vous pouvez toujours:

  • Situé minvalue 1dans le premier alter
  • Exclure la deuxième nextvalextraction
  • Déplacez l'instruction pour définir la nocyclepropriété dans une autre procédure, à exécuter à une date ultérieure (en supposant que vous souhaitiez le faire).

3

Jezus, toute cette programmation pour juste un redémarrage d'index ... Peut-être que je suis un idiot, mais pour le pré-oracle 12 (qui a une fonction de redémarrage), quel est le problème avec un simpel:

drop sequence blah;
create sequence blah 

?


2
Le principal problème avec la suppression d'une séquence est qu'elle perd les privilèges qui lui sont accordés.
Jon Heller

1
D'accord, Jon. La plupart du temps, leur restauration coûtera beaucoup moins de temps que toute cette programmation. Les bons DBA ont généralement des scripts, donc cela ne devrait pas être un problème :-)
Lawrence

2

1) Supposons que vous créez une SEQUENCE comme indiqué ci-dessous:

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

2) Vous récupérez maintenant les valeurs de SEQUENCE. Disons que j'ai récupéré quatre fois comme indiqué ci-dessous.

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

3) Après avoir exécuté au-dessus de quatre commandes, la valeur de la SEQUENCE sera 4. Supposons maintenant que j'ai remis à nouveau la valeur de la SEQUENCE à 1. Suivez les étapes suivantes. Suivez toutes les étapes dans le même ordre comme indiqué ci-dessous:

  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

Modifier la valeur INCREMENT de la séquence, l'incrémenter, puis la modifier à nouveau est assez simple, et vous avez l'avantage supplémentaire de ne pas avoir à rétablir toutes les subventions comme vous le feriez si vous aviez supprimé / recréé la séquence.


2

Je crée un bloc pour réinitialiser toutes mes séquences:

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

Voici une procédure plus robuste pour modifier la valeur suivante renvoyée par une séquence, et bien plus encore.

  • Tout d'abord, il protège contre les attaques par injection SQL car aucune des chaînes transmises n'est utilisée pour créer directement l'une des instructions SQL dynamiques,
  • Deuxièmement, il empêche la valeur de séquence suivante d'être définie en dehors des limites des valeurs de séquence min ou max. Le next_valuesera! = min_valueEt entre min_valueet max_value.
  • Troisièmement, il prend increment_byen compte le paramètre actuel (ou proposé) ainsi que tous les autres paramètres de séquence lors du nettoyage.
  • Quatrièmement, tous les paramètres à l'exception du premier sont facultatifs et, sauf indication contraire, prennent le paramètre de séquence actuel par défaut. Si aucun paramètre facultatif n'est spécifié, aucune action n'est entreprise.
  • Enfin, si vous essayez de modifier une séquence qui n'existe pas (ou n'appartient pas à l'utilisateur actuel), une ORA-01403: no data founderreur se produira .

Voici le code:

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

Dans mon projet, une fois qu'il est arrivé que quelqu'un entre manuellement les enregistrements sans utiliser de séquence, je dois donc réinitialiser manuellement la valeur de la séquence, pour laquelle j'ai écrit ci-dessous l'extrait de code sql:

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;

Veuillez noter que le code ci-dessus fonctionnera si la séquence est en retard.


1

Vous pouvez utiliser l'option CYCLE, illustrée ci-dessous:

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

Dans ce cas, lorsque la séquence atteint MAXVALUE (100), elle sera recyclée à MINVALUE (0).

Dans le cas d'une séquence décrémentée, la séquence serait recyclée à MAXVALUE.


1
Pour les downvoters (qui ne verront jamais ce commentaire): L'attribut CYCLE est exactement ce que j'ai utilisé pour effectuer une réinitialisation de séquence. Le fait que la réinitialisation soit automatique ne signifie pas qu'elle n'atteint pas l'objectif - OP n'a pas précisé que la réinitialisation devait être pour une séquence préexistante !
Jeromy French

1

Voici comment faire en sorte que toutes les séquences d'incrémentation automatique correspondent aux données réelles:

  1. Créez une procédure pour appliquer la valeur suivante comme cela a déjà été décrit dans ce fil:

    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. Créez une autre procédure pour réconcilier toutes les séquences avec le contenu réel:

    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;

REMARQUES:

  1. La procédure extrait les noms du code de déclenchement et ne dépend pas des conventions de dénomination
  2. Pour vérifier le code généré avant l'exécution, basculez les commentaires sur les deux dernières lignes

1

Je propose une alternative dont l'utilisateur n'a pas besoin de connaître les valeurs, le système récupère et utilise des variables pour mettre à jour.

--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

Procédure stockée qui a fonctionné pour moi

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;

Comment utiliser la procédure stockée:

execute reset_sequence('company_sequence','company');
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.