ERRO NA CONSULTA

ADHEL 23/01/2010 12:23:56
#332687
Boa tarde Pessoal

Fiz uma consulta, que a princípio era para aparecer apenas o CNPJ da Empresa que foi colocada no Campo de pesquisa.Só que aparece todos os cnpj cadastrados.
Eis o Código

Private Sub Command1_Click()
Dim RS As New ADODB.Recordset
RS.Open [Ô]Clientes[Ô], CONEXAO, adOpenKeyset, adLockPessimistic

CONEXAO.Execute ([Ô]Select * From Clientes Where Nome Like [ô][Ô] & txtNome.Text & [Ô][ô][Ô])
Do While Not RS.EOF
list.AddItem RS!cnpj
RS.MoveNext
Loop

End Sub
ASHKATCHUP 23/01/2010 12:27:15
#332688
Tire o comando [Ô]Like[Ô] e coloque [Ô]=[Ô].


Select * from Clientes where nome =[ô][Ô] & txtnome.text [Ô][ô][Ô])
ADHEL 23/01/2010 12:32:02
#332689
Citação:

:
Tire o comando [Ô]Like[Ô] e coloque [Ô]=[Ô].


Select * from Clientes where nome =[ô][Ô] & txtnome.text [Ô][ô][Ô])



Boa tarde ASHKATCHUP
Continua aparecendo todos os CNPJ cadastrados
JOSIMARCSILVA 23/01/2010 13:06:37
#332690
Tente assim ...

Private Sub Command1_Click()
Dim RS As New ADODB.Recordset

CONEXAO.Execute ([Ô]Select * From Clientes Where Nome = [ô][Ô] & txtNome.Text & [Ô][ô][Ô])
RS.Open [Ô]Clientes[Ô], CONEXAO, adOpenKeyset, adLockPessimistic

Do While Not RS.EOF
list.AddItem RS!cnpj
RS.MoveNext
Loop

End Sub

ou assim ...

Private Sub Command1_Click()
Dim RS As New ADODB.Recordset

RS.Open [Ô]Select * From Clientes Where Nome = [ô][Ô] & txtNome.Text & [Ô][ô][Ô], CONEXAO, adOpenKeyset, adLockPessimistic

Do While Not RS.EOF
list.AddItem RS!cnpj
RS.MoveNext
Loop

End Sub
ADHEL 23/01/2010 13:17:48
#332691
JOSIMARCSILVA
A primeira opção retorna todos os cnpjs.A segunda não retorna nada.
Obrigado
MARCELO.TREZE 23/01/2010 13:24:05
#332693 Resposta escolhida
é assim

Private Sub Command1_Click()
Dim RS As New ADODB.Recordset
RS.Open [Ô]Clientes[Ô], CONEXAO, adOpenKeyset, adLockPessimistic

Set RRS = CONEXAO.Execute ([Ô]Select * From Clientes Where Nome=[ô][Ô] & txtNome.Text & [Ô][ô][Ô])
If RRS.EOF = True And RRS.BOF = True Then Exit Sub

list.AddItem RS!cnpj

End Sub
ADHEL 23/01/2010 13:36:18
#332694
Marcelo
Não retorna nnhum cnpj
MARCELO.TREZE 23/01/2010 13:40:29
#332695
verifique o banco de dados

se o nome que estádigitando esta correto
MARCELO.TREZE 23/01/2010 13:42:45
#332696
desculpe achei o erro

Private Sub Command1_Click()
Dim RS As New ADODB.Recordset
RS.Open [Ô]Clientes[Ô], CONEXAO, adOpenKeyset, adLockPessimistic

Set RRS = CONEXAO.Execute ([Ô]Select * From Clientes Where Nome=[ô][Ô] & txtNome.Text & [Ô][ô][Ô])
If RRS.EOF = True And RRS.BOF = True Then Exit Sub

list.AddItem RRS!cnpj

End Sub


tenta agora
ADHEL 23/01/2010 13:47:20
#332697
Marcelo obrigado
Ficou perfeito.
Tópico encerrado , respostas não são mais permitidas
Voltar