none
Como avançar e/ou retroceder e ir para primeiro ou ultimo registros? RRS feed

  • Pergunta

  • Boa tarde a todos!

    Estou utilizando o VB.NET 2010 (VS 2010) com uma conexão System.data.oledb.oledbconection e os demais comandos bom, gostaria de saber como faço para navegar pelos registros através de botões no meu form? A quem ajudar-me gradeço desde já. Ah mais uma coisa como faço para que na entrada do form apresente-me os dados do primeiro registro da tabela?

    Att.


    Dilson J. Hasselmann Desenvolvedor VB.NET

    quarta-feira, 18 de setembro de 2013 16:10

Respostas

  • 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

    sexta-feira, 20 de setembro de 2013 09:48