nom des champs sous ACCESS

Question

Salut à tous !!!

j'ouvre une BDD ACCESS avec opendatabase, je nomme un enregistrement avec un recordset, et je voudrais savoir comment récupérer les nom des champs afin de les mettre dans une listebox.

Comment faire SVP !!!

Grand Merci !!!

cs_hassen · Answer

set Db=opendatabase(...)
combo1.Clear


for i=0 to Db.TableDefs.Fields("MaTable").fields.Count-1
      combo1.additem Db.TableDefs.Fields("MaTable").fields(i).Name
next i

Hassen TUNISIE

cs_CanisLupus · Answer

Salut, petite correction hassen :

For i = 0 To db.TableDefs("MaTable").Fields.Count - 1
      combo1.additem db.TableDefs("MaTable").Fields(i).Name
Next i

et autre proposition :

Dim fld As Field

For Each fld In db.TableDefs("MaTable").Fields
  combo1.additem fld.Name
Next

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Enfin, si c'est une listbox, remplacer combo1 par le nom de ta Listbox.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_hassen · Answer

merci CanisLupus pour la correction de ma faute de frappe

Hassen TUNISIE

Nom des champs sous ACCESS

4 réponses

Discussions similaires