probleme d'affichage listbox textbox
salut, je debute dans la programmation, et j'ai un souci. je travail en vb6, access. j'arrive a me connecter a ma base de donnée est a afficher dans ma listbox, mais ca ce complique la lorsque je clique dans ma listbox il m'affiche dans ma textbox toujour le mêmes resulta quelque soi mon choix dans ma listbox
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub lb_Click()
'on efface la listbox
lb.Clear
' Préparation de la requêtes
SQL = "SELECT * FROM table"
'Execution requête
Call Execute_Sql
' tri par hippodrome
RstAdo.Sort = "[non de la table] asc"
' on se place sur le premier enregistrement
RstAdo.MoveFirst
While Not RstAdo.EOF
'On ajoute dans la liste
Me.lb.AddItem CStr(RstAdo!table)
'on remplis les zones texte
'Me.Text(1).Text = RstAdo!departement |
merci a vous de prendre quelque minute pour m'aider