Discussion :

[valboubou]

Bonjour,

J'aimerai faire une boucle sur un delete. J'arrive à la faire marcher mais quand j'essaie d'intéger EXCEPTION cela ne marche plus...


Voici le code. Ce que je comprends pas c'est que si je fais le delete sans la partie EXCEPTION ça marche trés bien et quand je rajoute la partie EXCEPTION il me met l'erreur suivante

• Erreur(479,8): PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following: begin case declare end exit for goto if loop mod null pragma raise return select update while with << close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   select count(*) into nb_min_apurge FROM table
   WHERE id_d in (SELECT ID_D FROM tmp_id_d);
    nb_boucle := CEIL(nb_min_apurge/10);
 
 
    BEGIN
      For i in 1..nb_boucle
      LOOP
        DELETE FROM table
        WHERE (ID_D IN (SELECT ID_D FROM tmp_id_d)) and (rownum <= 10)  ;
        nbPurge := SQL%ROWCOUNT;
         DBMS_OUTPUT.PUT_LINE (to_char (i)|| ' NB_LIGNES_PURGEES : ' || SQL%ROWCOUNT);
      EXCEPTION
      WHEN OTHERS THEN
       outMsgErr := SQLERRM;
         dbms_output.put_line( 'Code    erreur : ' || to_char( SQLCODE )) ;
         dbms_output.put_line( 'libellé erreur : ' || to_char( SQLERRM )) ; 
         ROLLBACK;
         LogErreur (NOM_TABLE_PURGE, outMsgErr);
         RETURN -1;
        End loop ;
    END;

Quelqu'un sait-il pourquoi j'ai cette erreur?

Merci d'avance.

[al1_24]

Ton EXCEPTION vient interrompre la structure LOOP .. END LOOPLa structure devrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
FOR ...
LOOP
    BEGIN
        .. Traitement ..
    EXCEPTION
        WHEN condition THEN
            ... Gestion d'erreur ...
    END; 
END LOOP;

Je ne me suis penché que sur la structure... Le contenu...

[valboubou]

Merci beaucoup!! ça m'a l'air trés bien.

Le contenu n'est pas terrible?? c'est ce que vous voulez dire?

Je suis novice..

[skuatamad]

Pour le contenu, c'est effectivement un condensé de ce qu'il ne faut pas faire.
Il est inutile et contre performant de faire le DELETE dans une boucle par 10 lignes, faites juste un DELETE.

Le bloc exception WHEN OTHERS, généralement inutile, doit renvoyer l'erreur après le log (RAISE), et pas gérer l'exception par un code retour qu'on peut tranquilement ignorer.

Votre code devrait donc simplement être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
create procedure ...
begin
  DELETE FROM TABLE
   WHERE ID_D IN (SELECT ID_D FROM tmp_id_d);
  DBMS_OUTPUT.PUT_LINE (' NB_LIGNES_PURGEES : ' || SQL%ROWCOUNT);
end;

Voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
begin
  DELETE FROM TABLE
   WHERE ID_D IN (SELECT ID_D FROM tmp_id_d);
  DBMS_OUTPUT.PUT_LINE (' NB_LIGNES_PURGEES : ' || SQL%ROWCOUNT);
EXCEPTION
  WHEN OTHERS THEN
       outMsgErr := SQLERRM;
       LogErreur (NOM_TABLE_PURGE, outMsgErr);
       raise;
end;

Normalement LogErreur doit être déclaré comme une procédure autonome.

[valboubou]

bonjour,
Merci de ta réponse. En fait, jai mis 10 lignes ici dans l'exemple juste pour tester sur un petit échantillon.
En effet, l'intêret de faire une boucle dans le delete et que j'ai un souci d'espace temporaire... je dois purger des tables qui font plusieurs millions de lignes.
Donc aprés des tests je faire des boucles pour purger 6 millions de lignes maximun à chaque fois pour que mon delete revienne sans erreurs.
LOGerreur est une procédure qui me permet d'alimenter une table d'anomalie si le delete ne fonctionne pas.
Merci à vous.
Bonne journée