Bonjour
J'ai créé ce code pour un formulaire de recherche
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
TxtInterroTitre.Text = InterroTitre.Titre.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 * FROM Vidéo WHERE TitreFilm like '%" & TxtInterroTitre.Text & "%'"
        MyConnexion.Open()
 
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        Do While myReader.Read
            TextBoxNuméro.Text = myReader.GetValue(0).ToString
            TextBoxTitre.Text = myReader.GetValue(1).ToString
            TextBoxAnnée.Text = myReader.GetValue(27).ToString
        Loop
Ca fonctionne mais à l'affichage j'ai le dernier enregistrement trouvé
Comment faire pour avoir le premier et ensuite afficher les suivants avec un bouton de commande
Merci de votre aide