Discussion :

[Cvanhove]

Bonjour,

Je cherche à faire un équivalent du IF EXIST pour Oracle pour mon script de création de table/sequence/trigger mais je ne trouve pas comment faire pour chacun de mes éléments.

Voici mon script de base :

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
 
Drop table FULL_PURGE_TABLES;
 
Create Table DBDWIRDUSR.FULL_PURGE_TABLES(
    ID_TABLE number(10),
    TABLE_NAME varchar(30 char),
    NB_LIGNE_ENTREE number(30),
    NB_LIGNE_SORTIE number(30),
    NB_LIGNE_PURGE number(30),
    ETAPE number(1),
    DT_DEB date,
    DT_FIN date
);
 
Alter Table DBDWIRDUSR.FULL_PURGE_TABLES ADD(
CONSTRAINT PK_PURGE_FULL PRIMARY KEY (ID_TABLE));
 
CREATE SEQUENCE PURGE_SEQUENCE;
 
CREATE OR REPLACE TRIGGER PURGE_ON_INSERT
  BEFORE INSERT ON FULL_PURGE_TABLES
  FOR EACH ROW
BEGIN
  SELECT PURGE_SEQUENCE.nextval
  INTO :new.ID_TABLE
  FROM dual;
END;
/
 
commit;

J'ai cru comprendre que pour la table il fallait chercher dans all_tables si la table existe ou non. Mais pour le reste je ne sais pas comment faire.
Si quelqu'un à des propositions je suis preneur.

Merci d'avance

[al1_24]

J'utilise une fonction pour vérifier l'existence d'une table, vue, séquence, etc

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
create  or replace
function    TABLE_EXISTS
                (   p_Table_Name    varchar2
                ,   p_Table_Type    varchar2    := 'TABLE'
                ,   p_Table_Owner   varchar2    := null
                )
    return  boolean
is
    n_Exists    integer := 0;
begin
    select  count(0)
    into    n_Exists
    from    ALL_CATALOG
    where   TABLE_NAME  = upper(trim(p_Table_Name))
        and TABLE_TYPE  = coalesce(upper(trim(p_Table_Type)), 'TABLE')
        and OWNER       = coalesce(upper(trim(p_Table_Owner)), user)
    ;
    return  (n_Exists > 0);
end;/

Il ne manque plus grand'chose pour la transformer en procédure qui supprime l'objet s'il existe

[Cvanhove]

C'est parfait, merci bcp

[JeitEmgie]

Pour exécuter des scripts de manière conditionnelle, sans passer par des procédures/fonctions,
il est possible de spooler les résultats dans un fichier que l'on exécute ensuite :

Code :

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

1
2
3
4
5
6
7
 
spool '/tmp/script.sql'
set head off
select /* csv */ case when exists(select 1  from all_catalog where table_name = 'TARGET_TABLE' and table_type = 'TARGET_TYPE' and owner = 'TARGET_OWNER')
    then 'drop TARGET_TYPE TARGET_TABLE ;' end as s from dual ;
spool off 
@/tmp/script.sql

les TARGET pouvant évidemment être des variables de scripts
(éventuellement initialisées par d'autres query en utilisant:

Code :

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

1
2
3
4
5
 
column COLNAME_FROM_QUERY new_value SQL_VAR_NAME
select ...
;
/

Et pour la compilation conditionnelle de PL/SQL (dans un SPC ou un BDY par exemple) :
dans le script SQL précédant l'exécution du code PL/SQL :

Code :

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

1
2
 
ALTER SESSION SET PLSQL_CCFlags = 'PLSLQ_VAR_NAME:&SQL_VAR_NAME'

Et dans le PL/SQL :

Code :

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

1
2
3
4
5
 
 
$IF $$PLSLQ_VAR_NAME = CONDITION $THEN   
 
$END