[VBA-A] Procédure pour analyser Query

Version imprimable

10/07/2006, 12h09
Vesta

[VBA-A] Procédure pour analyser Query

Voila je voudrais pouvoir créer une procédure qui me donnerai la structure d'une requete, les champs source, destination, les critères utilisés, etc...

J'ai cherché du coté de QueryDef et de ses Fields mais rien a faire...

Une idée?

Le résultat devrait ressembler a ce que l'on peu voir dans l'éditeur de query d'access... Pkoi pas sous excel.
10/07/2006, 12h14
Tofalu

La collection Fields retourne les champs.

Citation:

Envoyé par moi

Notez que vous pouvez différencier le nom d'un champ et son alias en utilisant la propriété SourceField de l'objet Field.

La collection Parameters, les paramètres (déclarée dans l'entete de la requête PARAMETERS ...)

Mais ca ne retourne aucuns fields:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub QueryAnalyse(QueryName As String)
Dim DB As Database
Dim QryDef As QueryDef
Dim fld As Field
 
Set DB = CurrentDb
Set QryDef = DB.QueryDefs(QueryName)
Debug.Print QryDef.Type
For Each fld In QryDef.Fields
    Debug.Print fld.Name
Next fld
Debug.Print QryDef.SQL
Set QryDef = Nothing
Set DB = Nothing
 
End Sub

10/07/2006, 12h59
Tofalu

A mon avis tu as les deux références DAO et ADO. Modifie ton code pour utiliser DAO. Comme expliquer partout dans ce forum

Citation:

Dim DB As DAO.Database
Dim QryDef As DAO.QueryDef
Dim fld As DAO.Field

Ca ne change rien...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub QueryAnalyse(QueryName As String)
Dim DB As DAO.Database
Dim QryDef As DAO.QueryDef
Dim fld As DAO.Field
Dim prm As DAO.Parameter
 
Set DB = CurrentDb
Set QryDef = DB.QueryDefs(QueryName)
Debug.Print QryDef.Type
For Each fld In QryDef.Fields
    Debug.Print fld.Name
Next fld
For Each prm In QryDef.Parameters
    Debug.Print prm.Name
Next prm
 
Debug.Print QryDef.SQL
Set QryDef = Nothing
Set DB = Nothing
End Sub

10/07/2006, 13h27
Tofalu

Là, je ne vois pas.
10/07/2006, 13h41
Vesta

En fait ca fonctionne avec les requetes normales mais pas avec ajout, suppression, mise a jour... Je viens de le constater
10/07/2006, 18h53
Tofalu

Bien sur puisqu'elles ne retournent pas de champs :roll:
10/07/2006, 20h29
Vesta

En fait ce que je souhaiterai c'est connaitre les critères de ces requetes, de maniere automatique car j'en ai + de 1000 a analyser ca me simplifierai le travail...

Pour chaque requete pouvoir faire :

Table(s) Source : 1 ou plusieurs si join
Table destination : Si requete ajout
Champs sources - Champ cible et criteres - MAJ

Genre comme l'editeur de Access...

Je ne vois vraiment pas comment faire...
10/07/2006, 20h37
pgz

Bonjour,

Peut-être en traitant directement le SQL de la requête, comme un interpréteur. Mais bonjour la procédure!

C'était juste une idée, peut-être pas très bonne.

pgz
10/07/2006, 21h01
Vesta

J'y ai effectivement pensé mais c'est de la folie pure... Certaines requetes ont des JOIN de tables différentes c'est très compliqué a programmer...

Mais ce n'est pas une mauvaise idée en soit, juste très longue...
Je voulais jstement trouver une solution différente ici, j'epere que ca ira...
10/07/2006, 21h14
Tofalu

Si c'est une requête Action, à priori, il n'y aura pas de join. De toute façon, le cas du delete ne pose pas de problème pour les champs (y en a pas). Pour les insert, il suffit de regarder ce qu'il y a dans la première parenthèse avant values ou select (si aucune parenthèse, alors c'est qu'il s'agit de tous les champs de la table). Enfin, si update, il suffira de spliter la chaine entre le set et le =
12/07/2006, 00h06
Vesta

Je vais essayer de me débrouiller avec ca... Merci en tt cas...
12/07/2006, 22h19
micniv
Peut-être suis je a coté de la plaque mais pour l'analyser la requete et visualiser les relations entre les tables pourquoi , simplement, ne pas ouvrir la requete dans le QBE en mode Design ?
Code:

1 2 DoCmd.OpenQuery Me![nomRq], A_DESIGN
Hope this may help !