Discussion :

[patou60110]

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))

[Delbeke]

Bon, on va encore devoir deviner

D'abord, une confusion avec un listbox et un listview, il me semble, car pour ajouter une ligne a un listbox, on utilise additem

Ensuite une boucle While sans Wend

Ensuite un clear du listview a chaque itération

Ensuite, il existe des balises sur ce site pour mettre en evidence les parties de code, il serait bon d'aller lire les regles du forum

Enfin,C'est agaçant de repeter toujours les mêmes choses

[patou60110]

non je me suis pas trompée je veux bien utiliser une listbox et non pas une listview. de plus le code c'est des faction de code que j'ai essaie pour faire marché la listbox. et comme je l'ai dit, ce n'est qu'un bout du code. merci de m'aider

[OhMonBato]

La méthode la plus simple à mon avis pour ajouter un item à une liste est tout simplement :

List1.additem "toto"

Essayes déjà comme ça.

Mets aussi un petit debug.print CStr(resultatADO!hippodrome) pour voir la valeur du bidule (si jamais il a une valeur) dans la fenetre d'exécution.

[Delbeke]

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
18
   'variable qui indique le nombres d'enregistrement dans la base
    Dim compteur As String
    'police de depart
    List1.Font.Size = 10
    'effacer la list
    List1.Clear  
    'incrementation du compteur et affichage dans le label
    compteur = resultatADO.RecordCount
    Lbl_Record.Caption = Lbl_Record.Caption & " " & compteur
    'on se met sur le premier recordset
    resultatADO.MoveFirst
    While Not resultatADO.EOF
      'On ajoute dans la liste
      List1.AdItem   CStr(resultatADO!hippodrome)
     'On lit l'enregistrement suivant
     resultatADO.MoveNext
     'et on recommence tant que la condition Not resultatADO.EOF est vraie
   Wend

Simple question de logique non ? tu avais toutes les clefs en main et je t'avais pointé les problèmes dès mon premier post.

[patou60110]

je pense que je ne suis pas fait comprendre. je veut afficherla liste d'un champs de ma base de donnée dans ma listbox. List1.additem "toto" il me marque toto dans la listbox mais ne m'affiche pas les donnée de mon champ

[OhMonBato]

C'est Madame Walf ?

Et si tu essaye ça, ça fait quoi ?
List1.additem "dédé"

Sinon, regarde le code proposé par Delbeke