[Toutes versions] Connaître les champs d'une requête sans l'exécuter [Résolu]

[guidav]

Bonjour

J'ai une requête dont l'exécution est assez longue. J'aimerais connaître en VBA les noms des champs sans avoir à ouvrir la requête, est-ce possible ?

Par exemple, j'utilise actuellement

Code :

1
2
3
4
5
6
 
strsql = "ma requete select longue à exécuter"
set rcset = CurrentDb.OpenRecordset(strsql)
for each fld in rcset.Fields
debug.print fld.name
next

Cette méthode est très lente car le openRecordset nécessite d'exécuter entièrement la requête avant d'en renvoyer les noms de champs.

Y a-t-il une autre méthode plus rapide ?

Merci d'avance

[LedZeppII]

Bonjour,

peut-être comme ça

Code :

1
2
3
4
5
6
7
8
9
Dim sQry As String
Dim db As DAO.Database, qd As DAO.QueryDef, fld As DAO.Field
 
sQry = "ma requete select longue à exécuter"
Set db = CurrentDb
Set qd = db.QueryDefs(sQry)
For Each fld In qd.Fields
    Debug.Print fld.Name
Next

A+

[guidav]

Merci, ça fonctionne très bien.