salut je programme depuis peut et je rencontre un probleme avec une listbox et basse de donnée.
je travail en vb6 et access 2000
voila le bout de code qui pose probleme

je suis bien connecter a la base de donnée puisque le compteur m'affiche le nombre d'enregistrement dans ma base de données.mais de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    'variable qui indique le nombres d'enregistrement dans la base
    Dim compteur As String
 
    'incrementation du compteur et affichage dans le label
    compteur = resultatADO.RecordCount
    Lbl_Record.Caption = Lbl_Record.Caption & " " & compteur
    resultatADO.MoveFirst
    'declare une variable pour ajouter des objets listitem
    Dim itmx As ListItem
    While Not resultatADO.EOF
 
    'effacer la list
    List1.Clear
 
    'police de depart
    List1.Font.Size = 10
  Set itmx = List1.ListItems.Add(, , CStr(resultatADO!hippodrome))