Listebox vba access-excelRésolu

Question

Bonjour,
J ai commence le vba y a pas longtemps (oui j aurai du passer a vb.net directement!!!!) et je ne sais pas comment faire pour mettre un champ d une table access dans une listebox d une userform excel

Est ce que qq un pourrai venir a mon secours????
Merci bcp

jpleroisse · Accepted Answer

Bonjour,
Voilà un exemple avec la BD Biblio.mdb, qui se trouve dans vb98.
D'abord, tu coches dans Outils/Références Microsoft DAO.3.51(ou 4.0)si tu est sur version récente de Win98.) object Library.

Private Sub CommandButton1_Click()
Dim Db As Database
Dim Req As Recordset
Set Db = OpenDatabase("C:\Program files\microsoft Visual Studio\vb98\Biblio.mdb")
Set Req = Db.OpenRecordset("SELECT *FROM Publishers")

Do Until Req.EOF
ListBox1.AddItem Req("Name")
Req.MoveNext
Loop
Set Req = Nothing
Set Db = Nothing
End Sub


jpleroisse

chrisnyc · Answer

j ai trouve entre temps
une fois de temps en temps mon cerveau fonctionne correctement et la ca a ete le cas

merci quand meme

cordialement

Listebox vba access->excel

2 réponses

Discussions similaires