[VB.NET] Comment naviguer dans un DataSet à l'aide de TextBox et Button ?

Bonjour,

j'aimerais faire défiler les infos de ma bdd avec des boutons. ces infos sont affichés dans 2 textbox.
J'utilise un dataset et mon code est le suivant :
Code:

1 2 3 4 5 6 If RowNumber > ObjetDatatable.Rows.Count - 1 Then Exit Sub ' ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) ' donne le contenu d'un champ dans une ligne donnée Me.identifiant.Text = ObjetDatatable.Rows(RowNumber).Item("id_civilite") Me.libelle.Text = ObjetDatatable.Rows(RowNumber).Item("lib_civilite")
les 2 boutons nécessaire permettent de voir l'enregistrement suivant/précédent.

Merci de vos réponses.

IMMO

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Protected Const Minimum = 0
Protected Maximum As Integer
Protected RowNumber As Integer
 
' une fois que la dataset est initialisée
Maximum = ObjetDatatable.Rows.Count -1
RowNumber = Minimum
 
Private Sub ModiFyText( ByVal index As Integer)
  With ObjetDatatable
     Me.identifiant.Text = .Rows(index).Item("id_civilite") 
     Me.libelle.Text = .Rows(index).Item("lib_civilite")
  End With
End Sub
 
Private Sub Back_Click(ByVal sender As Object, e As EventArg)
  If RowNumber > Minimum Then 
     RowNumber -= 1
     ModiFyText(RowNumber)
  EndIf
End Sub
 
Private Sub Next_Click(ByVal sender As Object, e As EventArg)
  If RowNumber < Maximum Then 
     RowNumber += 1
     ModiFyText(RowNumber)
  EndIf
End Sub

merci :wink: