Mise à jour conditionnelle d'une base [Résolu]

[awalter1]

Bonjour,
Je fais un script sql d'upgrade pour modifier des tables. Je veux pouvoir appliquer ce script sur des bases qui ont ou qui n'ont pas déjà été upgradées. Il me faut alors pouvoir tester si ma table est dans l'ancien modèle ou le nouveau.
Des qu'une table est modifiée, je la renomme en old_table et la recrée avec la nouvelle definition puis la remplit à partir de old_table (cette façon de faire est éprouvée depuis longtemps).
Ca devrait ressembler à ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DECLARE
   modif number;
BEGIN
SELECT data_length INTO modif FROM user_tab_columns WHERE table_name='CONTROL' AND column_name='ERGO_POSITION';
IF modif < 10 THEN
-- REM l'upgrade de la table est nécessaire
   execute droptable('OLD_CONTROL')
   execute renametable('CONTROL')
   CREATE TABLE CONTROL (
      ARCHITECTURE VARCHAR2(20) NOT NULL,
      ERGO_POSITION VARCHAR2(10));
   DECLARE
      tablexist number;
   BEGIN
      SELECT count(*) INTO tableexist FROM user_tables WHERE table_name='OLD_CONTROL';
      IF tableexist > 0 THEN
         execute immediate
            'INSERT INTO CONTROL (ARCHITECTURE,ERGO_POSITION) SELECT ARCHITECTURE,ERGO_POSITION from OLD_CONTROL';
      END IF;
   END;
END IF;
END;
/

Cela ne marche pas car je pense que l'imbrication de la structure 'declare begin end' dans une autre structure 'declare begin end' pose problème. Comment le résoudre ?
Merci de votre aide

[xdescamp]

Bonjour,

Envoyé par awalter1

Cela ne marche pas ...

Un message d'erreur pourrait nous aider.

Ceci dit, ce qui ne peut pas fonctionner est l'instraction CREATE TABLE au milieu d'un bloc PL/SQL : il s'agit d'une instruction DDL alors que seuls les ordres DML sont autorisés en PL/SQL. L'astuce consiste à "cacher" cet ordre DDL dans un EXECUTE IMMEDIATE :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DECLARE
   modif number;
BEGIN
SELECT data_length INTO modif FROM user_tab_columns WHERE table_name='CONTROL' AND column_name='ERGO_POSITION';
IF modif < 10 THEN
-- REM l'upgrade de la table est nécessaire
   execute droptable('OLD_CONTROL')
   execute renametable('CONTROL')
   EXECUTE IMMEDIATE 'CREATE TABLE CONTROL (
      ARCHITECTURE VARCHAR2(20) NOT NULL,
      ERGO_POSITION VARCHAR2(10))';
   DECLARE
      tablexist number;
   BEGIN
      SELECT count(*) INTO tableexist FROM user_tables WHERE table_name='OLD_CONTROL';
      IF tableexist > 0 THEN
         execute immediate
            'INSERT INTO CONTROL (ARCHITECTURE,ERGO_POSITION) SELECT ARCHITECTURE,ERGO_POSITION from OLD_CONTROL';
      END IF;
   END;
END IF;
END;
/

[awalter1]

Mais oui, c'est tout à fait cela : encapsuler mon ordre dans un execute immediate.
Merci beaucoup

[awalter1]

J'ai testé le 'CREATE' encapsulé dans le 'execute immediate' et c'est bon. Par contre le 'execute droptable('OLD_CONTROL')' n'est pas reconnu :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SQL> @testif.sql
execute droptable ('OLD_CONTROL')
        *
ERROR at line 6:
ORA-06550: line 6, COLUMN 9:
PLS-00103: Encountered the symbol "DROPTABLE" when expecting one of the
following:
:= . ( @ % ; immediate
The symbol ":=" was substituted FOR "DROPTABLE" TO continue.
ORA-06550: line 7, COLUMN 1:
PLS-00103: Encountered the symbol "EXECUTE" when expecting one of the
following:
. ( * % & = - + ; < / > at IN IS mod remainder NOT rem
<an exponent (**)> <> OR != OR ~= >= <= <> AND OR LIKE LIKE2_
LIKE4_ LIKEC_ BETWEEN || multis

Je redonne mon script :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DECLARE
   modif number;
BEGIN
SELECT DATA_LENGTH INTO modif FROM user_tab_columns WHERE table_name='CONTROL' AND column_name='ERGO_POSITION';
IF modif < 11 THEN
execute droptable ('OLD_CONTROL')
execute immediate 
'CREATE TABLE TEST2 (ARCHITECTURE_NAME VARCHAR2(20) NOT NULL)';
DECLARE
   tableexist number;
BEGIN
SELECT count(*) INTO tableexist FROM user_tables WHERE table_name='CONTROL';
IF tableexist > 0 THEN
   execute immediate 'INSERT INTO OPS$OPE.TEST (ARCHITECTURE_NAME) SELECT simulation_name FROM   OPS$OPE.simul';
END IF;
END;
END IF;
END;
/