1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| TBActeur.Text = InterroBioActeurNom.TextBoxActeur.Text
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\Access\DvdData.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT distinct Acteur1,Sexe,Nationalité,Photo,Naissance,[Ville Naissance]," & _
"PaysNaissance,Mort,[Ville DC],PaysDC,AgeMort,Drapeau FROM Filmographie WHERE acteur1 like @Acteur"
Mycommand.Parameters.AddWithValue("@Acteur", "%" + TBActeur.Text + "%")
'ou encore Mycommand.Parameters.AddWithValue("Acteur", "%" +TBActeur.Text+ "%")
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
If myReader.HasRows Then
Do While myReader.Read()
' ici je remplis mon formulaire |
Partager