Selecionar itens de uma tabela

[l_nando 0]

Pessoal, boa tarde!

 

Estou querendo aprender um pouco de vb e estou tentando selecionar registros cadastrados em uma tabela, mas quando eu digito no campo de busca por exemplo "Teste", aparece tudo que está cadastrado e não somente os registros cujo cliente se chama teste.

 

Segue o cód.:

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim caminho As String
Dim isSql As String
__________________________________________________________________________
Private Sub cmdbuscar_Click()
caminho = App.Path & "\V_AGENDA1.MDB"
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & caminho & ";jet oledb:database password=senha;"
isSql = "SELECT * From AGENDA WHERE CLIENTE ='" & txtbusca & "'"
rs.Open isSql, conn
data_cons.RecordSource = isSql
DBGrid1.Refresh
DBGrid1.Visible = True
conn.Close
End Sub
__________________________________________________________________________
Private Sub cmdsair_Click()
Unload Me
End Sub
__________________________________________________________________________
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.ColWidth(0) = 100
MSFlexGrid1.ColWidth(1) = 3000
MSFlexGrid1.ColWidth(2) = 3000
MSFlexGrid1.ColWidth(3) = 3000
MSFlexGrid1.ColWidth(4) = 3000
MSFlexGrid1.ColWidth(5) = 3000
MSFlexGrid1.ColWidth(6) = 3000
MSFlexGrid1.ColWidth(7) = 3000
End Sub

Se alguém puder me dar uma dica, pois eu não manjo nada.

 

Desde já eu agradeço.

 

Abraço a todos.

[Claudio Neto 3]

Olá.

 

Bom, aparentemente seu código está correto.

 

Quando você usar o where cliente = 'teste', deveria retornar do banco somente somente os clientes que são iguais a 'teste'.

 

Tente executar essa mesma query direto no seu banco e veja qual será o retorno, depois poste aqui.

[l_nando 0]

Boa noite Claudio!

 

Uso o BD Access, mas criei uma consulta simples e nesta consulta me retornou só o que estava cadastrado com cliente teste.

 

Abraço.

[scorpio 7]

O que essa linha faz? Não tem que dar um refresh no data_cons também ?

data_cons.RecordSource = isSql
data_cons.Refresh

Provavelmente é ele que você usa para preencher o grid.

 

 

 

Você usa o rs em algum outro lugar?

rs.Open isSql, conn

 

Se todas as alternativas anteriores falharem (:lol:), coloque o SQL com LIKE (para teste):

SELECT * From AGENDA WHERE CLIENTE LIKE 'Manoel'

 

 

Até mais