PROBLEMAS COM PESQUISA EM ADO

 Tópico anterior Próximo tópico Novo tópico

PROBLEMAS COM PESQUISA EM ADO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#17363 - 28/03/2004 19:15:39

USUARIO.EXCLUIDOS

Cadast. em:


Pessoal, estou tendo problemas para fazer uma pesquisa usando ADO.
Abri a conexo no load do Form, por isso a linha :
If rs.State = 1 Then
    rs.Close
Estou tentando assim:
Dim Pesquisa As String
If rs.State = 1 Then
    rs.Close
End If
    lblSaldo.Visible = True
    lblSaldo2.Visible = True
    Pesquisa = InputBox("Informe o Nome:")
    rs.CursorLocation = adUseClient
    rs.Open "select * from Clientes Where Nome Like '*" & Pesquisa & "*'", DB, adOpenStatic, adLockOptimistic
    Do While rs.EOF = False
               txtNome.Text = rs.Fields(0)
               txtEndereco.Text = rs.Fields(1)
               txtBairro.Text = rs.Fields(2)
               txtTelefone.Text = rs.Fields(3)
               txtCidade.Text = rs.Fields(4)
               txtNascimento.Text = rs.Fields(5)
               txtRG.Text = rs.Fields(6)
               txtCPF.Text = rs.Fields(7)
               txt.Email.Text = rs.Fields(8)
    Loop
    If DadosClientes.Recordset.NoMatch = True Then
        MsgBox "Registro no encontrado na Base de Dados!"
    End If
Algum saberia me responder o que tem de errado?

Abraos...

Junior Mascioli



Resposta escolhida #17364 - 28/03/2004 21:07:25

USUARIO.EXCLUIDOS

Cadast. em:


O ADO No usa a mscara * e sim % ok.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45