Jump to content
Fórum Script Brasil
  • 0

Banco Access com VBA (RESOLVIDO)


kassio07
 Share

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
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

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.

 Share



  • Forum Statistics

    • Total Topics
      150.8k
    • Total Posts
      648.8k
×
×
  • Create New...