PLSQL : Analyse syntaxe

**argoet** · 08/06/2004, 15h31

J'ai besoin d'analyser des requetes SQL saisie par des utilisateurs (avertis)
pour ensuite générer de manière dynamique ces requetes entre elles.

8) Exemple :
J'ai une table

Code :

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

1
2
3
4
5
6
Table Entete (
C1 number(4),
C2 varchar2(10),
C3 char(5),
C4 date
)

J'ai une requete

Code :

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

V_requete := 'Select C1,C2,C3,C4  from Entete';

Existe t'il un package ORACLE permettant de faire l'analyse de "V_requete"
a savoir :
le nombre de colonne sélectionnés (Ici 4)
le type et le nom des colonnes sélectionnées
C1 number(4),
C2 varchar2(10),
C3 char(5),
C4 date

Le but de cette analyse est de générer un curseur "PL/SQL" à partir de "V_requete"

**orafrance** · 08/06/2004, 15h43

pourquoi ne pas utiliser la vue all_tab_columns ?

**SheikYerbouti** · 08/06/2004, 15h53

Le package DBMS_SQL

Code :

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

1
2
3
4
5
dbms_sql.open_cursor;
dbms_sql.parse();
dbms_sql.execute();
dbms_sql.describe_columns2();
dbms_sql.close_cursor();

**argoet** · 08/06/2004, 15h58

V_requete est le resultat d'une saisie
c'est juste un exemple , je ne sais absolument pas quel est le contenu de la requete . la seule chose que je connais : c'est le contenu d'un varchar2 ==> V_requete que je doit analyser et ensuite lancer pour recuperer les valeurs selectionnées . Ces valeures seront ensuite réutilisées pour générer d'autres "Requete SQL" elles meme analysées et lancées .

PS : En ProC c'est possible avec les structures et fonctions fournies avec "SQLDA" mais je ne sait pas (Encore) comment réaliser la meme chose en PL/SQL

**orafrance** · 08/06/2004, 16h14

Tu peux très bien faire une boucle sur cette requête :

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
DECLARE
 
TYPE t_ref_cursor IS REF CURSOR;
list_values      t_ref_cursor;
V_requete VARCHAR2(4000);
 
mavaleur ???
 
BEGIN
 
V_requete := 'Select C1,C2,C3,C4  from Entete';
OPEN list_values FOR V_requete;
 
LOOP
FETCH list_values INTO mavaleur;
EXIT WHEN list_values%NOTFOUND;
 
END LOOP;
END;
/

ton probléme c'est que tu ne sais pas comment définir mavaleur, c'est bien ça ?

**SheikYerbouti** · 08/06/2004, 16h33

Orafrance

il veut faire une analyse du parse de sa requête

nombre de colonnes
quel type
etc...

package DBMS_SQL quoi...

**orafrance** · 08/06/2004, 16h36

non non, pas seulement : V_requete que je doit analyser et ensuite lancer pour recuperer les valeurs selectionnées

c'est donc bien ce que je demande... je crois

**argoet** · 08/06/2004, 17h09

Merci SheikYerbouti ... orafrance itoo !!!
par contre j'ai rien trouvé dans la doc ORACLE sur "dbms_sql.describe_columns2" (2) ==>

:

et pour ceux que cela interesse !!!

8)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Set serveroutput on;
 
declare
  curseur number;     /* Pointeur sur le Curseur Dynamique  */
  result number;      /* Resultat sur l'ordre de la requete (OK/KO) */
  nbr_col integer;    /* Nbre de colonne de la requete      */
  les_colonnes dbms_sql.desc_tab;  /* Structure donnant le descriptif des colonnes */
 
 
  procedure decrit_la_colonne(rec in dbms_sql.desc_rec) is
  begin
    dbms_output.put_line('-----------------------------------------------------------');
    dbms_output.put_line('col_type            =    ' || rec.col_type);
    dbms_output.put_line('col_maxlen          =    ' || rec.col_max_len);
    dbms_output.put_line('col_name            =    ' || rec.col_name);
    dbms_output.put_line('col_name_len        =    ' || rec.col_name_len);
    dbms_output.put_line('col_schema_name     =    ' || rec.col_schema_name);
    dbms_output.put_line('col_schema_name_len =    ' || rec.col_schema_name_len);
    dbms_output.put_line('col_precision       =    ' || rec.col_precision);
    dbms_output.put_line('col_scale           =    ' || rec.col_scale);
    dbms_output.put('col_null_ok         =    ');
 
    if (rec.col_null_ok) Then
           dbms_output.put_line('Oui'); 
    else    
           dbms_output.put_line('Non'); 
    end if;
  end;
 
begin
  curseur := dbms_sql.open_cursor;
  dbms_sql.parse(curseur, 'select par_code,par_nom,par_lib,''OK'' TestOK , sysdate LA_DATE from par', dbms_sql.native);
  result := dbms_sql.execute(curseur);
  dbms_sql.describe_columns(curseur, nbr_col, les_colonnes);
 
  ----------------------------------------------------------------
  --   Je decrit les colonnes de ma requete
  ----------------------------------------------------------------
  For j in 1..nbr_col Loop
      decrit_la_colonne(les_colonnes(j));
  End Loop;
 
  dbms_sql.close_cursor(curseur);
end;
/

Le resultat est le suivant

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
-----------------------------------------------------------
col_type            =    2
col_maxlen          =    22
col_name            =    PAR_CODE
col_name_len        =    8
col_schema_name     =
col_schema_name_len =    0
col_precision       =    2
col_scale           =    0
col_null_ok         =    Non
-----------------------------------------------------------
col_type            =    1
col_maxlen          =    12
col_name            =    PAR_NOM
col_name_len        =    7
col_schema_name     =
col_schema_name_len =    0
col_precision       =    0
col_scale           =    0
col_null_ok         =    Non
-----------------------------------------------------------
col_type            =    1
col_maxlen          =    40
col_name            =    PAR_LIB
col_name_len        =    7
col_schema_name     =
col_schema_name_len =    0
col_precision       =    0
col_scale           =    0
col_null_ok         =    Oui
-----------------------------------------------------------
col_type            =    96
col_maxlen          =    2
col_name            =    TESTOK
col_name_len        =    6
col_schema_name     =
col_schema_name_len =    0
col_precision       =    0
col_scale           =    0
col_null_ok         =    Oui
-----------------------------------------------------------
col_type            =    12
col_maxlen          =    7
col_name            =    LA_DATE
col_name_len        =    7
col_schema_name     =
col_schema_name_len =    0
col_precision       =    0
col_scale           =    0
col_null_ok         =    Oui
 
PL/SQL procedure successfully completed.

**argoet** · 08/06/2004, 17h17

Envoyé par orafrance

Tu peux très bien faire une boucle sur cette requête :

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
DECLARE
 
TYPE t_ref_cursor IS REF CURSOR;
list_values      t_ref_cursor;
V_requete VARCHAR2(4000);
 
mavaleur ???
 
BEGIN
 
V_requete := 'Select C1,C2,C3,C4  from Entete';
OPEN list_values FOR V_requete;
 
LOOP
FETCH list_values INTO mavaleur;
EXIT WHEN list_values%NOTFOUND;
 
END LOOP;
END;
/

ton probléme c'est que tu ne sais pas comment définir mavaleur, c'est bien ça ?

Orafrance , je trouve ton idée interessante : mais justement comment declares tu "mavaleur"
en list_values%ROWTYPE ??? ==> C'est possible ça ???

**orafrance** · 08/06/2004, 17h34

bah je ne crois pas, et je suis bien embêté parce que je ne sais pas moi-même

**helyos** · 09/06/2004, 10h49

Envoyé par argoet

Orafrance , je trouve ton idée interessante : mais justement comment declares tu "mavaleur"
en list_values%ROWTYPE ??? ==> C'est possible ça ???

Non c'est pas possible. Il faut que tu te construise la variable de "réception" avec un type de donnée précis.

**orafrance** · 09/06/2004, 10h54

c'est bien ce que je pensais

**argoet** · 09/06/2004, 13h08

Pendant que le sujet est encore chaud ...
Kestion 1 : connaissez vous les différences entre dbms_sql.describe_columns2
Et dbms_sql.describe_columns

:

Kestion 2 : Y a t'il une fct ou une Procedure dans dbms_sql qui fasse cette meme analyse sur la condition "where"

:

**Nico57** · 21/09/2006, 14h22

Envoyé par argoet

Pendant que le sujet est encore chaud ...
Kestion 1 : connaissez vous les différences entre dbms_sql.describe_columns2 et dbms_sql.describe_columns

:

Je remonte ce très vieux topic, car il vient de me servir.

Donc, si tu utilises dbms_sql.describe_columns avec certaines requêtes, tu obtiens ce message d'erreur très explicite

:

Code :

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

1
2
3
4
5
 
ORA-06502: PL/SQL: numeric or value error: dbms_sql.describe_columns overflow, col_name_len=33. Use describe_columns2
ORA-06512: at "SYS.DBMS_SYS_SQL", line 1569
ORA-06512: at "SYS.DBMS_SQL", line 621
ORA-06512: at line 62

Donc a priori, mieux vaut utiliser dbms_sql.describe_columns2 . Je suppose que dbms_sql.describe_columns est l'implantation d'origine, et que les gens d'Oracle se sont rendus compte de ses faiblesses?

Merci aux gens qui ont contribué à ce topic qui m'a bien aidé.

Nico'