Bonjour
J'ai créé un formulaire pour afficher la biographie d'acteurs
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
16
17
18
19
20
21
 Private Sub ResultatBioActeurNom_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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.Parameters.Add("@Acteur", OleDbType.VarChar, 50)
        Mycommand.Parameters("@Acteur").Value = TBActeur.Text
        Mycommand.CommandText = "SELECT distinct Acteur1,Sexe,Nationalité,Photo,Naissance,[Ville Naissance]," & _
        "PaysNaissance,Mort,[Ville DC],PaysDC,AgeMort,Drapeau FROM Filmographie WHERE acteur1 like @Acteur"
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
        Do While myReader.Read()
            Me.Text = "Nom d'acteur contenant " & TBActeur.Text
            Dim nbrecords As Integer
            nbrecords = myReader.FieldCount.ToString
            If nbrecords = 0 Then
                MsgBox("Pas d'acteur correspondant", 48, "Collection de DVD")
                Me.Close()
            End If
Je n'ai mis que le début du code
Le problème est que si je tape "Alain Delon" ça fonctionne
Par contre si je cherche tous les Delon en tapant seulement Delon rien ne s'affiche
De plus si je tape un nom qui n'existe pas, je n'ai pas le message d'erreur

Ensuite j'ai une autre question, comment naviguer dans myreader avec des boutons suivant,précédent etc
Merci d'avance de vos conseils