Vérification de l'exécution d'une procédure

Version imprimable

09/06/2011, 10h15
hidiho

Vérification de l'exécution d'une procédure

Bonjour,
Je voudrai savoir quelle commande utiliser pour vérifier si une procédure delete, insert ou update a bien été effectué pour que mon programme ne supprime pas l'enregistrement de la table source si un problème est survenu (table bloqué ...)

Dans quel langage? Script? SQL*PLus? PL/SQL ?

dans sqlplus

Code:

WHENEVER SQLERROR EXIT FAILURE ROLLBACK

p.ex.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
SQL> create table t(x number primary key);
Table created.
SQL> WHENEVER SQLERROR EXIT FAILURE ROLLBACK
SQL> insert into t(x) values (1);
1 row created.
SQL> insert into t(x) values (1);
insert into t(x) values (1)
*
ERROR at line 1:
ORA-00001: unique constraint (SCOTT.SYS_C0029695) violated
 
Disconnected from ...

Dans PL/SQL, gère les exceptions

Code:

1
2
3
4
5
6
7
8
9
10
11
begin
  insert into t(x) values (1);
  insert into t(x) values (1);
end;
/
 
begin
*
ERROR at line 1:
ORA-00001: unique constraint (SCOTT.SYS_C0029695) violated
ORA-06512: at line 3

09/06/2011, 11h21
AbouZaid

bonjour,

Tu peux utiliser en pl/sql la gestion d'exceptions :

Code:

Exception when others then
09/06/2011, 13h11
hidiho
C'est vrai que je ne l'ai pas précisé c'est en pl sql.
Est-il possible de passer cette instruction à l'intérieur d'une boucle?
IL faudrai que j'arrive à sa:
Code:

1 2 3 4 5 6 7 8 9 WHILE condition LOOP .... COMMIT; appel de procedure delete, update ou insert IF delete, update ou insert ne c est pas effectuer THEN ROLLBACK; END IF; ... END LOOP;
J'ai essayé ceci en dehors de ma boucle sa fonctionne mais pas a l'intérieur
Code:

1 2 3 4 EXCEPTION WHEN OTHERS THEN raise_application_error (20000, 'Modification non pris en compte'); ROLLBACK;
quel qu'un a une idéé de comment je pourai faire?
10/06/2011, 09h55
hidiho

Ça marche en utilisant ce code dans chaque procédure.

tu peux avoir des begin dans les begin...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
BEGIN
...
  LOOP
    ...
    BEGIN
       INSERT
    EXCEPTION
      WHEN ... 
    END;
   ...
  END LOOP;
  ...
END;

Citation:
Code:

1 2 3 4 5 6 7 8 9 WHILE condition LOOP .... COMMIT; appel de procedure delete, update ou insert IF delete, update ou insert ne c est pas effectuer THEN ROLLBACK; END IF; ... END LOOP;
Bonjour,

Vous faites un COMMIT à l'interieur de la LOOP (commit accross FETCH) ce qui n'est pas du tout conseillé pour plusieurs raisons entre autres les suivantes:
(1) parce que c'est une des raisons qui provoque l'erreur ORA-01555 rollback segment snapshot too old
(2) en cas d'erreur survenue dans la nième itération vous auriez alors un traitement à moitié fait et vous allez avoir des problèmes à redémarrer correctement votre programme.

Vous devriez plutôt utiliser ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 LOOP BEGIN -- set a savepoint so that in case of error will rollback SAVEPOINT sav_point; /* your pl/sql code goes here */ EXCEPTION WHEN OTHERS THEN ROLLBACK to sav_point; -- ici il faut prévoir quelque chose pour stocker -- l'erreur dans une table afin de savoir quel record -- est en erreur et pourquoi END; -- next message END LOOP; COMMIT; END;
Evidement que le code ci-dessus n'est pas encore complet car il faudrait que le select qui conduit la loop ne considère que les records qui n'ont pas été traités. Ainsi vous auriez un code re-demarable

Bien à vous

Mohamed Houri