Liste comment faire ?

>-----Message d'origine-----
voilà je souhaite mettre dans une liste le contenu d'une

table produit

contenu dans une base access 2000
Kel méthode utliser s'il vous plait
Je souhaiterais utliser le data list de préférence mais

je suis ouvert à toute suggestion.

Bonjour - VB6 et les Bases de données (OEM) p 163

Private Sub Form_Activate()
Dim DB As Database
' j'ouvre la base de données
Set DB = OpenDatabase("C:Nwind.MDB")
Dim RC As Recordset
' je pointe vers la table Clients
Set RC = DB.OpenRecordset("Clients", DbOpenSnapShot)
' je répète jusqu'à la fin de la table
Do Until RC.EOF
' Je remplis dans la liste avec 2 champs choisis
List1.AddItem RC!Société & " " & RC!Contact
' je passe au record suivant
RC.MoveNext
' je retourne au début de la boucle
Loop
End Sub

J'espère que cela t'aidera...

Salut,

Je suis novice en VB6 mais je crois qu'il ne sait pas lire access au-delà de
la version 97.

Corrigez moi si je me trompe.

Bon courage
<jd30_2003@yahoo.fr> a écrit dans le message de
news:001a01c3c196$57a0b170$a301280a@phx.gbl...

-----Message d'origine-----
voilà je souhaite mettre dans une liste le contenu d'une

table produit

contenu dans une base access 2000
Kel méthode utliser s'il vous plait
Je souhaiterais utliser le data list de préférence mais

je suis ouvert à toute suggestion.

Bonjour - VB6 et les Bases de données (OEM) p 163

Private Sub Form_Activate()
Dim DB As Database
' j'ouvre la base de données
Set DB = OpenDatabase("C:Nwind.MDB")
Dim RC As Recordset
' je pointe vers la table Clients
Set RC = DB.OpenRecordset("Clients", DbOpenSnapShot)
' je répète jusqu'à la fin de la table
Do Until RC.EOF
' Je remplis dans la liste avec 2 champs choisis
List1.AddItem RC!Société & " " & RC!Contact
' je passe au record suivant
RC.MoveNext
' je retourne au début de la boucle
Loop
End Sub

J'espère que cela t'aidera...