Discussion :

[alex_972]

Bonjour,

En faisant des recherche, je suis tombé sur cette page :
https://forums.oracle.com/forums/thr...hreadID=319710

J'ai décidé d'appliquer la dernière proposition postée malheureusement je n'est pas l'impression que mon IF fonctionne ! J'ai toujours une erreur si la table existe déjà.

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
-- Create Package
CREATE OR REPLACE PACKAGE pkg IS
  -- Create Table
  PROCEDURE create_table (p_table_name IN VARCHAR2 );
END;
/
 
CREATE OR REPLACE PACKAGE BODY pkg IS
  PROCEDURE create_table ( p_table_name IN VARCHAR2) IS
 
      l_table_name VARCHAR2(30);
      l_test NUMBER;
 
  BEGIN
    l_table_name := dbms_asset.simple_sql_name(p_table_name);
 
      EXECUTE IMMEDIATE 'SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper(' || l_table_name || ')' INTO l_test;
 
    IF l_test = 0 THEN
     EXECUTE IMMEDIATE 'CREATE TABLE ' || l_table_name || ' AS SELECT * FROM v$session';
 
    END IF;
END;
 
END;

Merci d'avance

[Waldar]

Comme souvent l'affichage de ce qui est exécuté vous donnera la réponse :

Code :

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

1
2
3
4
5
6
7
8
    l_exec := 'SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper(' || l_table_name || ')';
    dbms_output.put_line(l_exec);
 
...
 
begin pkg.create_table('tutu'); end;
 
SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper(tutu)

Je vous laisse trouver l'erreur !

[ORA-007]

Ceci marche chez moi :

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
DECLARE
      --l_table_name VARCHAR2(30);
      lv_query       varchar2(4000);
      l_test         NUMBER;
      lv_table       varchar2(30) := 'TABLE_QUI_EXISTE_PAS';
 
  BEGIN
    --l_table_name := dbms_asset.simple_sql_name(p_table_name);
    lv_query := ' ';
    lv_query :=  lv_query || ' SELECT count(table_name)' ;
    lv_query :=  lv_query || ' FROM all_tables' ;
    lv_query :=  lv_query || ' WHERE upper(table_name) = upper(:1)' ;
 
    EXECUTE IMMEDIATE lv_query 
                      INTO  l_test
                      USING lv_table;
 
    IF l_test = 0 THEN
       lv_query := ' ';
       lv_query :=  lv_query || ' CREATE TABLE ' || lv_table;
       lv_query :=  lv_query || ' AS SELECT * FROM v$session ';
 
       EXECUTE IMMEDIATE lv_query ;
 
       DBMS_OUTPUT.put_line('Existe pas');
    ELSE 
       DBMS_OUTPUT.put_line('Existe');
    END IF;
END;

[alex_972]

Comme souvent l'affichage de ce qui est exécuté vous donnera la réponse :

Code :

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

1
2
3
4
5
6
7
8
    l_exec := 'SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper(' || l_table_name || ')';
    dbms_output.put_line(l_exec);
 
...
 
begin pkg.create_table('tutu'); end;
 
SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper(tutu)

Je vous laisse trouver l'erreur !

dbms_output.put_line ne fonctionne pas chez moi :$ Mais je pense savoir ce que vous voulez me montrer. Il manque les simples quotes autour de ma variable ?
Si le problème vient de la je ne vois pas comment faire. J'ai essayé en mettant des ''' mais sans résultat.


ORA-007 :

lv_query := ' ';
lv_query := lv_query || ' SELECT count(table_name)' ;
lv_query := lv_query || ' FROM all_tables' ;
lv_query := lv_query || ' WHERE upper(table_name) = upper(:1)' ;

EXECUTE IMMEDIATE lv_query
INTO l_test
USING lv_table;

Cette partie ne fonctionne pas chez moi !J'ai toujours la même erreur.

[Waldar]

Mais je pense savoir ce que vous voulez me montrer. Il manque les simples quotes autour de ma variable ?

Si le problème vient de la je ne vois pas comment faire. J'ai essayé en mettant des ''' mais sans résultat.

Oui c'est bien ça. Il faut bien compter le nombre de quote :

Code :

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

1
2
3
4
l_exec := 'SELECT count(table_name) FROM tabs WHERE table_name = upper(''' || l_table_name || ''')';
dbms_output.put_line('-- ' || l_exec);
 
-- SELECT count(table_name) FROM tabs WHERE upper(table_name) = upper('tutu')

Quand vous dites dbms_output ne fonctionne pas, ça provoque une erreur ou ça n'affiche rien ?
Si c'est le dernier problème, placez DBMS_OUTPUT.ENABLE dans votre fonction.

À noter car c'est important, je vous ai montré où était votre erreur, mais la bonne manière de développer est celle-ci :

Code :

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

1
2
3
SELECT count(table_name) INTO l_test
  FROM tabs
 WHERE table_name = upper(l_table_name);

Pour le create table, pas le choix par contre, il faut utiliser du SQL dynamique avec EXECUTE IMMEDIATE.

[alex_972]

Merci ca fonctionne !

par contre l'affichage via dbms_output ne fonctionne qu'une fois puis plus rien !