Auto select

inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012 - 15 oct. 2008 à 20:48
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 15 oct. 2008 à 21:52
Bonjour a vous<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>


 


J’ai un petit problème comme beaucoup ici


Est il possible lorsque je charge une listbox via une bdd access, que ma première ligne de ma collection  sois automatiquement sélectionnée ?

Je charge ma listbox comme ça.







 


'On vide tout (au cas ou)



ListBox6.Items.Clear()







'






'






'






'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''






''''''''''''''''' On charge la Listbox6 des ingr‚dients … disposition '''''''''''''''''''






'On cr‚e une connexion






Dim
MyConnexion

As
OleDbConnection =

New
OleDbConnection(

"Provider=Microsoft.Jet.OLEDB.4.0;Data source=L:\Technique\bdtechnique.mdb;"
)


'on cr‚e notre commande contenant la requˆte SQL






Dim
Mycommand1

As
OleDbCommand MyConnexion.CreateCommand()Mycommand1.CommandText


"SELECT Mots FROM Mots where utilisateur ='"
& TextBox8.Text &

"'"

MyConnexion.Open()







'On cr‚e le Datareader et on stocke chaque r‚sultat dans la raf






Dim
myReader1

As
OleDbDataReader = Mycommand1.ExecuteReader()


Do



While
myReader1.Read()ListBox6.Items.Add(myReader1.GetString(0))


Loop

myReader1.Close()


MyConnexion.Close()

1 réponse

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
15 oct. 2008 à 21:52
De mémoire tu dois avoir une propriété SelectedIndex pour spécifier l'index de l'item sélectionné, ou alors SelectedItem pour directement indiquer l'item sélectionné

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
0
Rejoignez-nous