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:
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()
Pour remplir mon ListBox1, j'ai fait exactement la même chose, et ça marche...
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 !