• 0
Sign in to follow this  
kassio07

Banco Access com VBA (RESOLVIDO)

Question

Então pessoal to precisando fazer um select para trazer os dados do banco access para um plicativo VBA, a pessoa deve buscar por um valor em especifico e o aplicativo deve mostrar todos os registros que possuam aquela informação. Até consegui fazer ele exibir, mas ele só mostra o primeiro registro e não todos os registros que possuam as informações buscadas.

Esse é o meu código fonte:

Private Sub but_ok_Click()
      Dim db As New ADODB.Connection
      Dim bus As New ADODB.Recordset

      db = abrirCon
      db.Open
      
      If text_busca = "" Then
      
        MsgBox "Digite alguma data para busca!", vbInformation, "Aviso"
        
      ElseIf Not IsDate(text_busca) Then
        
        MsgBox "Digite uma data para ser pesquisada!", vbInformation, "Aviso"
        text_busca = ""
        
      ElseIf IsNumeric(text_busca) Then
      
        MsgBox "Digite somente Letras!", vbInformation, "Aviso"
        text_busca = ""
        
      Else
            
        Sql = "SELECT Unidade FROM ControleAdministrativo WHERE Prazo_Renova = '" & text_busca & "'"
        bus.Open Sql, db
          
        If bus.BOF <> True Then
      
         Result = bus(0).Value
         text_result = Result
      
        Else
       
         MsgBox "Data não encontrada!", vbInformation, "Aviso"
      
        End If
      End If
End Sub

Edited by kassio07

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Troque:

Result = bus(0).Value

text_result = Result

por:

Do While Not bus.EOF

Result = Result & bus.Fields(0)

rs.MoveNext 'Vai para próximo resultado

Loop

text_result = Result

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this