Bonjour,
J'ai un peiti soucis avec une requête.
Voilà, j'ai une listbox qui me permets de choisir un paramètre, que j'utilise dans une requête pour compléter une seconde listbox.
Ma requête est correcte, elle fonctionne sous Access, mais dès que je lance mon appli, j'ai rien, même pas de messages d'erreur...
Voici mon code:
Pour remplir mon ListBox1, j'ai fait exactement la même chose, et ça marche...
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 ListBox2.Visible = True Dim TypeElection As String = ListBox1.Text Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Users\Moi\Documents\bas.mdb") Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() Mycommand.CommandText = "SELECT distinct Elections.Annee FROM elections WHERE Elections.Election Like '" & TypeElection & "*' ORDER BY Elections.Annee" MyConnexion.Open() Dim myReader As OleDbDataReader = Mycommand.ExecuteReader() Do While myReader.Read() ListBox2.Items.Add(myReader.GetString(0)) Loop myReader.Close() MyConnexion.Close()
Je précise que le code ci-dessus est dans une sub déclenchée par le double-click sur le ListBox1....
Si vous avez une solution, merci !
Partager