Vérification de l'exécution d'une procédure [Résolu]

[hidiho]

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

[laurentschneider]

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

[AbouZaid]

bonjour,

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

Code :

Exception when others then

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

[hidiho]

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

[laurentschneider]

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;

[Mohamed.Houri]

Code :

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