oi DJhasselman
sobre o teu caso, tudo depende de como queres visualizar os teus dados. vamos supor que estas a utilizar um datagridview e pretendes ver os dados em textbox, entao deves criar primeiro uma rotina:
Private Sub ExibeDados()
TextBox1.Text = ds.Tables(0).Rows(i)("ID").ToString()
TextBox2.Text = ds.Tables(0).Rows(i)("nome").ToString()
TextBox3.Text = ds.Tables(0).Rows(i)("email").ToString()
End Sub
esta rotina será chamada sempre que usares qualquer operação (primeiro,anterior,proximo,ultimo)
eis ai os comandos para os botoes:
PRIMEIRO BOTÃO
PRIMEIRO REGISTO
Private Sub btnPrimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiro.Click
If ds.Tables(0).Rows.Count > 0 Then
i = 0
Call ExibeDados()
End If
End Sub
PROXIMO REGISTO
Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click
If i < ds.Tables(0).Rows.Count - 1 Then
i += 1
Call ExibeDados()
End If
End Sub
REGISTO ANTERIOR
Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
If i = ds.Tables(0).Rows.Count - 1 OrElse i <> 0 Then
i -= 1
Call ExibeDados()
Else
MsgBox("Início de arquivo.")
End If
End Sub
ULTIMO REGISTO
Private Sub btnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUltimo.Click
If ds.Tables(0).Rows.Count > 0 Then
i = ds.Tables(0).Rows.Count - 1
Call ExibeDados()
End If
End Sub
espero ter ajudado. se for boa, não esquece de MARCAR A RESPOSTA
" Abraão " _________________________ Apreciador de programação Senhor me ilumine
