Equivalent Oracle du IF EXIST

Version imprimable

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:

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

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

Code:

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

19/12/2019, 11h30
Cvanhove

C'est parfait, merci bcp :)

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:

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:

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:

1 2 ALTER SESSION SET PLSQL_CCFlags = 'PLSLQ_VAR_NAME:&SQL_VAR_NAME'
Et dans le PL/SQL :
Code:

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