[8i]contrôle de scripts de création

Version imprimable

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:

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à !! :cry:

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

29/12/2005, 17h46
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.
29/12/2005, 23h22
vintz72

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

Avec ce genre de controles, probablement:

Code:

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;
/