Bonjour, depuis de nombreuses années je fais appel dans mon code à des requêtes SQL.

Voici l'exemple qui m'interesse sous VB 6.0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim rs As ADODB.Recordset
 
Data.rsPsRibbon "MDIFORM"
Set rs = Data.rsPsMenuRibbon
 
Do Until rs.EOF
    Debug.Print rs("RIBBON_KEY")
    Debug.Print rs("RIBBON_FR")
rs.MoveNext
Loop
rs.Close
Je n'arrive pas à reproduire la même chose sous VB.net :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim tb As New LTEDATADataSetTableAdapters.PsMenuRibbonTableAdapter()
        tb.Fill(LTEDATADataSet.PsMenuRibbon, "'MDIFrm'")
Principalement dans la lectue de la table :

do while ???


loop

Merci de me donner un coup de main, malgré des heures de tests j n'arrive pa à trouver la solution qui est certainement très simple.