FAZER CONSULTA PELO MASKEDITCPF

MOREIRA 13/09/2006 13:06:47
#171201
bom... estou com problema q nao sei como resolver.
uso MASKEDITCPF para fazer uma consulta na TblCliente. o formato do campo CPF na tbl esta sem formatação..Ex:(826548993512)e quando coloco a mascara no MASKEDIT, nao filtra nada...
OBS:os cadastro q la existem esta sem formatação, por que importei do banco DBF para access.. só q com os novos cadastro agora irão ficar com formatação...


uso DB Access
CNN ADO
CLEVERSON.F 13/09/2006 13:24:43
#171203
mas pq tu nao atualiza todos eles? e coloca formatação na base
é a maneira mais correta, faz um update la q atualiza a formatação de todos, q estão sem.. dae nao tem problema..
MOREIRA 13/09/2006 13:37:45
#171206
O problema é q nao esta filtrando com a mascara no maskedit...(###.###.###-##) quanto tiro a mascaro aí filtra normalmente..

(Quando a atualização.. vc pode explicar como fazer isso?)

MOREIRA 13/09/2006 15:01:36
#171235
Private Sub maskCPF_LostFocus()
Ltv.ListItems.Clear
'Consulta
Consulta "TblEstado", "293.978.657-65"
Consulta "Tblfederal", "293.978.657-65"
Consulta "TblRetorno", "293.978.657-65"
End Sub

Private Sub Consulta(Tabela As String, Item As String)
'realiza a consulta na tabela e preenche no list
Dim rst As New ADODB.Recordset
Dim L As ListItem
'conexao
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM " & Tabela & " WHERE cpf='" & maskCPF.Text & "'", DBconn, 3, 3
While Not rst.EOF  'Enquando não for final de arquivo
txtAssociado.Text = IIf("" & rst!Nome = "", "", rst!Nome)
txtMatricula.Text = IIf("" & rst!Matricula = "", "", rst!Matricula)
txtOrgao.Text = IIf("" & rst!orgao = "", "", rst!orgao)
txtcpf.Text = IIf("" & rst!cpf = "", "", rst!cpf)
txtBuscarMatricula.Text = IIf("" & rst!Matricula = "", "", rst!Matricula)
   Set L = Ltv.ListItems.Add
   'adiciona os itens
   L.Text = "" & rst!Data
   L.SubItems(1) = "" & rst!Mensalidade
   L.SubItems(2) = "" & rst!orgao
   L.SubItems(3) = "" & rst!Matricula
   'L.SubItems(4) = "" & rst!matricula
   rst.MoveNext
Wend
Set L = Nothing
rst.Close
Set rst = Nothing
End Sub



bom este é como faço a consulta.... alguem por favor, pode da uma ajudinha?
Tópico encerrado , respostas não são mais permitidas
Voltar