bonjour
Voici mon code:
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.
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
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
Partager