Ir para conteúdo
Fórum Script Brasil
  • 0

Banco Access com VBA (RESOLVIDO)


kassio07

Pergunta

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

Editado por kassio07
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...