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