[Resolvido] Função Busca ao digitar

[Etamess 0]

Preciso fazer uma função de busca, que a cada tecla digitada pelo usuário a lista vai atualizar de acordo com o termo que se forma na caixa de pesquisa, tenho o seguinte codigo

 

Private Sub TXT_Pesquisa_Change()

LST_Clientes.Clear

Do While Not DTA_Clientes.Recordset.EOF

DTA_Clientes = "select * from clientes where nome like '" + TXT_Pesquisa.Text * "'" & "*"

LST_Clientes.AddItem (DTA_Clientes.Recordset("NOME"))

Loop

End Sub

 

Não consigo fazer com que funcione ja troquei para onkeydown, alguem pode me ajudar?

 

Itens Usados

Caixa de pesquisa - TXT_Pesquisa

Tabela - Clientes

Coluna - Nome

Lista - LST_Clientes

Banco de dados DTA_Clientes (Acess 2000)

 

Desde já Agradeço

[johnhey 0]

Eu também estava a procura da mesma solução e consegui resolver alterando o select da seguinte forma:

("SELECT * FROM <nomedatabela> WHERE <campodatabela>  LIKE '" & <campotxt> & "%' ", <conexão>)

 

Já agora você esta a usar um listbox? se for lhe envio o código todo como coloquei se ainda não tiver resolvido o problema.

[Etamess 0]

Eu também estava a procura da mesma solução e consegui resolver alterando o select da seguinte forma:

("SELECT * FROM <nomedatabela> WHERE <campodatabela>  LIKE '" & <campotxt> & "%' ", <conexão>)

 

Já agora você esta a usar um listbox? se for lhe envio o código todo como coloquei se ainda não tiver resolvido o problema.

 

Cara eu tentei utilizar seu codigo e nao consegui se for possivel me mandar o codigo todo eu estou usando uma listabox e a area de <conexão> que voce colocou eu fiquei meio perdido. Grato

[johnhey 0]

Bom esse é o código todo:

 

       'Limpa o listbox
       Listanome.Items.Clear()

       ' Texto de ligação à base de dados
       Dim linha As String = Application.StartupPath & "\SIAF.mdf"
       Dim myConnectionString As String = _
      "Data source=.\SQLEXPRESS;AttachDbFilename=" & linha & ";Integrated Security=True;User Instance=True"

       Dim Con As SqlConnection = New SqlConnection(myConnectionString)
       Con.Open()
       Dim reader As SqlDataReader
       Dim cmd As New SqlCommand("SELECT * FROM TBPais WHERE Pais  LIKE '" & txtnome.Text & "%' ", Con)
       reader = cmd.ExecuteReader

       While reader.Read()
           Listanome.Items.Add(reader("Pais")) 'Adiciona a pesquisa ao listbox
       End While

       'Fecha as conexões
       Con.Close() Then
       reader.Close()
       cmd.Dispose()

 

Qualquer dúvida estamos aqui.

[Etamess 0]

Bom esse é o código todo:

 

       'Limpa o listbox
       Listanome.Items.Clear()

       ' Texto de ligação à base de dados
       Dim linha As String = Application.StartupPath & "\SIAF.mdf"
       Dim myConnectionString As String = _
      "Data source=.\SQLEXPRESS;AttachDbFilename=" & linha & ";Integrated Security=True;User Instance=True"

       Dim Con As SqlConnection = New SqlConnection(myConnectionString)
       Con.Open()
       Dim reader As SqlDataReader
       Dim cmd As New SqlCommand("SELECT * FROM TBPais WHERE Pais  LIKE '" & txtnome.Text & "%' ", Con)
       reader = cmd.ExecuteReader

       While reader.Read()
           Listanome.Items.Add(reader("Pais")) 'Adiciona a pesquisa ao listbox
       End While

       'Fecha as conexões
       Con.Close() Then
       reader.Close()
       cmd.Dispose()

 

Qualquer dúvida estamos aqui.

 

Vlw consegui muito grato!