bonjour
Voici mon code:
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
On Error Resume Next
 DB.Provider = "Microsoft.JET.OLEDB.4.0;"
    DB.Open App.Path & "\table1.mdb"
Set RS = New ADODB.Recordset
 
RS.Open "SELECT nom, prenom from table1 where age like " & Text3.Text, DB, adOpenStatic, adLockOptimistic
 
If Not RS.EOF Then
 
    Text4.Text =  RS!nom
  RS.MoveNext
 Text5.Text =  RS!nom
    RS.MoveNext
     Text6.Text = RS!nom
RS.MoveNext
   End If
RS.Close
Donc Comme vous pouvez remarquer je voudrai afficher les nom des personnes qui ont le même age dans text4 , text5, et text6 ainsi de suite.
Ce code marche bien mais je suis certain qu'il y a un autre code plus performant que le mien. Pourrais je avoir ce code?
merci