recherche nom de champs d'une table access

Question

Bonjour,

Je cherche à recuperer le nom ( pas les valeurs) des champs d'une table Access, tout ca a partir de vb. 
Je ne sais pas si il faut utiliser une requete select mais je pense que ca doit etre possible!!

Bref, si quelqu'un peut m'aider ce serait cool.

Merki à vous
8)

cs_EBArtSoft · Answer

Tu peut faire ceci :

Ajoute a ton projet la reference DAO 3.51 ou 3.6 etc...

dim db as database
dim rs as recordset
dim fd as field

set db = dbengine.opendatabase("C:\MaBase.mdb")
set rs = db.openrecordset("MaTable")
for each fd in rs.fields
'Ici le code pour recuperer les noms
debug.print fd.Name
next
rs.close
db.close
set rs=nothing
set db=nothing

Pour notre ami BruNews voici la version ADODB

    Dim r As New ADODB.Recordset
    Dim f As Field
    r.Open "table1", "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\bd1.mdb'", ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1
    For Each f In r.Fields
        Debug.Print f.Name
    Next
    r.Close

@+

E.B.

Recherche nom de champs d'une table access

1 réponse

Discussions similaires