Discussion :

[gudul]

Bonjour,

j'aimerais réaliser un requêteur en partant d'un fichier contenant une requête avec des paramètes. Je suis en Delphi 7 et j'utilise des ADO pour attaquer une base Oracle 10G.

A la lecture de la requête contenue dans le fichier, je voudrais créer les contrôles correspondant aux paramètres

exemple:
Je charge le fichier contenant cette requete

Code :

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

1
2
3
4
5
select slibelle "Nom"
,  Sprenom "prénom"
from personne
where datenaissance < :DateNaissance
  and taille > :TailleMin

J'aimerais récupérer le nom des paramètres et leur type de façon à créer un DateTimePicker pour le premier et un edit pour le second.

Si qqun a une idée ou à déjà réalisé quelquechose de semblable, merci d'avance de vos réponses

[Andry]

J'avais déjà réalisé un truc pareil.
J'avais utilisé un fichier Ini pour enregistrer la requête et le type des paramètres. Ensuite je lis le fichier ini et
- extrait la partie SQL
- extrait la partie paramètre (nom et type)
C'est lors de l'exécution que j'affiche une fenêtre qui vas afficher les contrôles pour la saisie des paramètres en fonction de leur type.

[popo]

Andry, comment tu fait ça, le type de ta variable n'est pas écrit dans la requête.

Comment tu arrives à detecter le type de données avec un champ un paramètre :TailleMin ?

A moins de stocker chaque nom de champ avec son type, je ne vois pas comment faire. Et si c'est cette technique que tu as utilisé, ça veux dire qu'il faut mettre à jour le fichier stokant ces informations à chaque fois que tu modifie la structure de la base ! C'est une usine à gaz et pas très simple à maintenir !

[philnext]

Pour chaque colonne de ton résultat tu récupères le TField.DataType .
Jettes un coup d'oeil à ce petit soft qui utilise ADO / D7 et qui permet (entre autres) de visualiser les type des champs d'une base via ADO.
http://sourceforge.net/projects/axbase/

[Andry]

Andry, comment tu fait ça, le type de ta variable n'est pas écrit dans la requête.
Comment tu arrives à détecter le type de données avec un champ un paramètre :TailleMin ?

J'ai une unité qui permet de parser une requête et d'en récupérer les les champs, les conditions, les groupages, les paramètres, etc.
Pour ce qui est du type de paramètre, c'est l'opérateur qui le sélectionne depuis un combo. Bien sur, le nom du paramètre et le type sont enregistrés dans le fichier INI

A moins de stocker chaque nom de champ avec son type, je ne vois pas comment faire. Et si c'est cette technique que tu as utilisé, ça veux dire qu'il faut mettre à jour le fichier stokant ces informations à chaque fois que tu modifie la structure de la base ! C'est une usine à gaz et pas très simple à maintenir !

Généralement, la structure de la base de donnée ne change pas tous les jours. En plus, dans mon créateur/interpréteur de requête, je fais juste afficher uniquement les vues (avec des noms de colonnes plus parlant) mais pas les tables.

[gudul]

Merci de la réponse.

le TField.DataType reste à ftUnknown pour le paramètre.

Je suis parti sur le même principe. Un fichier .param qui répertorie l'ensemble des paramètres, le texte que je veux afficher, le type de paramètre et d'autre infos pour aller chercher la valeur à partir d'un requete SQL.

Il est clair qu'il ne faut pas que les types changent et qu'il faut que la personne qui fait les requêtes fournisse le fichier des parametres en même temps.

MaReq.sql
MaReq.param

avec MaReq.sql

Code :

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

1
2
3
4
5
select slibelle "Nom"
,  Sprenom "prénom"
from personne
where datenaissance < :DateNaissance
  and taille > :TailleMin

et

MaReq.param

Code :

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

1
2
DateNaissance|Entrez la date de naissance|date|0
TailleMin|Entrez la taille mini|Integer|0

[Andry]

Le mien ressemble à ceci

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
 
[HEADER]
Title=The Title
Desc=Description
ParamCount=1
[SQL]
S0=SELECT 
S1=  CHAMPS1,
S2=  CHAMPS2
S3=FROM TABLE
S4=WHERE
S5=  CHAMPS1 >= :PARAM1
S6=ORDER BY
S7=  CHAMPS2 DESC
[PARAMETERS]
Name1=PARAM1
Desc1=Description Of Param1
Type1=Integer