FILTRANDO NUMEROS

NEGRON 29/08/2010 14:44:37
#351619
Boa tarde Galera


Galera estou criando uma tela de consulta de clientes, onde consigo consultar por nome normalmente, mas a minha dúvida é como faço para filtrar pelo cpf

O sistema usa a conexao ado e banco acess, quando vc abre a tela de consulta já é enchido automaticamente o listview, ai queria filtrar pelo cpf... já tentei usar o like
mas não deu certo com numero, já com o nome deu tudo certo

Por favor galera me ajude a filtrar pelo numero
brigadão
vejam o código


Public Function FILTRORESPNIS(Carregarrespnis As Object, Optional ByVal PEGANDORESPNIS As String) As Boolean

    Set TabResponsavel = New ADODB.Recordset
    FILTRORESPNIS = False
    If PEGANDORESPNIS <> [Ô][Ô] Then
        [ô]TabResponsavel.Open [Ô] Select NISRESP, NOMERESP,CODDOMICILIO,NASCIMENTO from RESPONSAVEL WHERE NISRESP LIKE [ô]%[Ô] & PEGANDORESPNIS & [Ô]%[ô]  order by NOMERESP asc [Ô], Conexao
        TabResponsavel.Open [Ô] Select NISRESP, NOMERESP,CODDOMICILIO,NASCIMENTO from RESPONSAVEL WHERE NISRESP =[ô][Ô] & PEGANDORESPNIS & [Ô][ô]  [Ô], Conexao
        If Not TabResponsavel.EOF Then
            Do While Not TabResponsavel.EOF
                Set LISTAGEM = Carregarrespnis.ListItems.Add(, , TabResponsavel.Fields([Ô]NOMERESP[Ô])) [ô] codigo
                LISTAGEM.SubItems(1) = TabResponsavel.Fields([Ô]NASCIMENTO[Ô]) [ô] nisfilho
                LISTAGEM.SubItems(2) = TabResponsavel.Fields([Ô]NISRESP[Ô]) [ô] nisfilho
                LISTAGEM.SubItems(3) = TabResponsavel.Fields([Ô]CODDOMICILIO[Ô]) [ô] nomefilho
                TabResponsavel.MoveNext
            Loop
            FILTRORESPNIS = True
        End If
    Else
        TabResponsavel.Open [Ô] Select NISRESP, NOMERESP,CODDOMICILIO,NASCIMENTO from RESPONSAVEL order by NOMERESP asc [Ô], Conexao
        If Not TabResponsavel.EOF Then
            Do While Not TabResponsavel.EOF
                Set LISTAGEM = Carregarrespnis.ListItems.Add(, , TabResponsavel.Fields([Ô]NOMERESP[Ô])) [ô] codigo
                LISTAGEM.SubItems(1) = TabResponsavel.Fields([Ô]NASCIMENTO[Ô]) [ô] nisfilho
                LISTAGEM.SubItems(2) = TabResponsavel.Fields([Ô]NISRESP[Ô]) [ô] nisfilho
                LISTAGEM.SubItems(3) = TabResponsavel.Fields([Ô]CODDOMICILIO[Ô]) [ô] nomefilho
                TabResponsavel.MoveNext
            Loop
            FILTRORESPNIS = True
        End If
    End If
    TabResponsavel.Close
    Set TabResponsavel = Nothing
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar