CODIGO NAO EXECUTA CONSULTA CORRETAMENTE!

USUARIO.EXCLUIDOS 28/11/2006 08:27:44
#186673

Olá pessoal

O que de errado com este código abaixo? Ele não faz a consulta do Like, e atualizando o DataGrid com as respostas encontradas. Estou usando MySQL, com Adodc e DataGrid

Private Sub TxtBusca_Change()
Dim Busca As String
Busca = TxtBusca.Text
DataCli.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};server=" & mySqlIP & ";uid=" & usr_id & ";pwd=" & pass & ";database=sik"
DataCli.RecordSource = "Select CodCli, Nome, Contato From CadCli WHERE Nome LIKE '" & Busca & "*' Order By CodCli"
DataCli.Refresh
End Sub


Grato a todos!
LOOZE 28/11/2006 08:31:43
#186674
Desta forma o like esta buscando somente o que começar com os dados apresentados na string BUSCA.

Se for parecido a qualquer momento adicione mais uma Asterisco no começo do like.

DataCli.RecordSource = "Select CodCli, Nome, Contato From CadCli WHERE Nome LIKE '*" & Busca & "*' Order By CodCli"

....
HUGOSSOUZA 28/11/2006 08:36:06
#186678 Resposta escolhida
tenta trocar o "*" por "%"
USUARIO.EXCLUIDOS 28/11/2006 09:03:47
#186694


Hugo

Perfeito...muito grato!!
Tópico encerrado , respostas não são mais permitidas
Voltar