probleme avec une listbox

Version imprimable

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:

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

09/04/2007, 15h34
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 :(
09/04/2007, 18h06
patou60110

probleme avec une listbox

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.:oops: :oops: :oops: :oops: merci de m'aider
09/04/2007, 18h35
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.

Code:

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.

09/04/2007, 19h32
patou60110

probleme avec une listbox

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
09/04/2007, 19h38
OhMonBato

C'est Madame Walf ?

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

Sinon, regarde le code proposé par Delbeke ;)