Discussion :

[Vesta]

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.

[Tofalu]

La collection Fields retourne les champs.

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

[Vesta]

Mais ca ne retourne aucuns fields:

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

[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

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

[Vesta]

Ca ne change rien...

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

[Tofalu]

Là, je ne vois pas.

[Vesta]

En fait ca fonctionne avec les requetes normales mais pas avec ajout, suppression, mise a jour... Je viens de le constater

[Tofalu]

Bien sur puisqu'elles ne retournent pas de champs

[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...

[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

[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...

[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 =

[Vesta]

Je vais essayer de me débrouiller avec ca... Merci en tt cas...

[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 :

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

1
2
 
 DoCmd.OpenQuery Me![nomRq], A_DESIGN

Hope this may help !