none
botao para avancar registros RRS feed

  • Pergunta

  • olá amigos, procurei em vários fóruns alguns exemplos de botoes de navegação de registros com banco de dados em access, preciso apenas disto pra fechar um aplicação que estou fazendo, gostaria de saber como faço pra ir avançando de registro em registro clickando em um botão, pois o meu código vai pro ultimo registro.

    Dim conn As ADODB.Connection
        Dim insertstring, drop, nome, rg As String
        Dim cod As String
        
        Set conn = New ADODB.Connection
        Set rs = New ADODB.Recordset
    
        With conn
            Let .Provider = "Microsoft.Jet.OLEDB.12.0;"
            Let .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & caminho_banco & "Persist Security Info=False"
        End With
        
        conn.Open
        insertstring = "SELECT * FROM controle_chamada"
        
        Set rs = conn.Execute(insertstring)
            If rs.RecordCount < 0 Then
                Do While Not rs.EOF
                    nome = rs.Fields("nome")
                    rg = rs.Fields("rg")
                    cod = rs.Fields("Código")
                    
                    rs.MoveNext
                Loop
                
            End If
    
        conn.Close

    quinta-feira, 2 de maio de 2013 19:34