Boucle sur un DELETE

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:

---

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.

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

Code:

---

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... :weird:

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

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:

---

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:

---

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.

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