A l aide vb access

[Fermé]
Signaler
Messages postés
18
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
4 mai 2010
-
Bonjour,j écrit ce programme reliant un base access au vb express 2008
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, ListBox2.SelectedValueChanged, ListBox2.SelectedIndexChanged, ListBox1.SelectedValueChanged, ListBox1.SelectedIndexChanged
Dim i As Integer
Dim cd As String
If ListBox1.SelectedItem = "Tunisie" Then
If (ListBox2.SelectedIndex < 3 Or ListBox2.SelectedIndex = 7) Then
MsgBox("Association ville pays incorrecte ")

End If


End If
If ListBox1.SelectedItem = "France" Then
If (ListBox2.SelectedIndex < 7) Then
MsgBox("Association ville pays incorrecte ")

End If

End If
If ListBox1.SelectedItem = "Italie" Then
If (ListBox2.SelectedIndex > 2) Then
MsgBox("Cette ville n'est pas en italie")

End If

End If
cd = ListBox2.SelectedItem
cd = cd.Substring(1, 3)






CmdR = Cn.CreateCommand() 'Creation de commande


CmdR.CommandText = "select * where Code_ville Like ""%cd% "" "

CmdR.ExecuteNonQuery()
Dim enumerate As OleDbDataReader = CmdR.ExecuteReader()
i = 0
Do While enumerate.Read
DataGridView1.Rows.Add(enumerate.Item(0).ToString, enumerate.Item(1).ToString, enumerate.Item(2).ToString, enumerate.Item(3).ToString)



Loop

enumerate.Close()
End Sub
les message box du if ne s affichent pas et il m affiche que la syntaxe de la requete est incorrecte merci se me corriger