Discussion :

[Immo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neguib]

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
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

[Immo]

merci