Discussion :

[vintz72]

Bonjour,

problème tout bête, mais insoluble avec Oracle (enfin, j'ai l'impression pour le moment).

Pour livrer les évolutions de la base, je veux livrer des scripts PL/SQL de mise à jour. Ayant une table de suivi des révisions, je veux la mettre à jour à l'occasion, mais indiquer dedans si j'ai rencontrer un problème (ça parait pas compliqué). Ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
-- On trace les modifications de la base
INSERT INTO SGO_REVISION (SGR_ID, SGR_VERSION, SGR_REVISION, SGR_STATUT, SGR_COMMENT)
	VALUES ((select max(sgr_id)+1 from sgo_revision), 'V3', 'V3.0.4', 'EC', 'Evolutions);
 
-- Application des modifications
@./impact/update_base.sql;
@./functions/nouvelle_fonction.sql;
 
-- il faudrait faire cela qu'en cas de succès mais on ne peut pas
-- mettre un begin / exception / end sans qu'Oracle gueule (ou il y a une astuce ?)
UPDATE SGO_REVISION SET SGR_STATUT='FI' where SGR_ID = (select max(SGR_ID) from SGO_REVISION);

En gros, si je mets des begin / end / transaction, sqlplus me jette sur le premier create rencontré dans le script update_base.sql en disant qu'il ne l'attend pas là !!

HELP ! C'est quoi le secret ?? Migrer en Oracle plus récent ? Et sinon ?

[SheikYerbouti]

Begin ... End; sert à encadrer un block PL/SQL.
Dans ce cas, vous auriez interêt à passer vos ordres de DML via du sql dynamique (execute immediate).

Sinon, dans un script SQL*Plus, vous pouvez tester le bon déroulement des ordres SQL et arrêter le traitement en cas d'erreur.

[vintz72]

Le "sinon" me semble intéressant. Mais concrètement, comment fait-on ce genre de contrôle ?
Merci de votre aide.

[plabrevo]

Avec ce genre de controles, probablement:

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
23
24
25
26
27
28
29
30
31
 
VARIABLE mesg          VARCHAR2(1000);
VARIABLE program_error VARCHAR2(1);
 
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR  EXIT FAILURE ROLLBACK;
 
DECLARE
 
BEGIN
 
--
-- Pgm body
--
 
:mesg := 'Program successfully completed';
 
EXCEPTION
WHEN OTHERS         THEN
:mesg          := 'ERROR: '||sqlerrm;
:program_error := 'Y';
END;
/
PRINT mesg
 
BEGIN
IF :program_error = 'Y' THEN
  RAISE program_error;
END IF;
END;
/