Consultar CPF como ?

Delphi

18/08/2006

E ai Galera BLZ!

Bom estou fazendo um formulario de consulta com nome código e cpf só que o cpf não está dando certo então quero saber se alguem pode me ajudar ?

A minha consulta estou fazento da seguinte maneira :

With Dm.IBCliente do
begin
Close;
SelectSQL.Clear;
SelectSQL.Text:=´select * from CLIENTE where COD Like :VarCod´;
ParamByName(´varcod´).AsInteger:=StrToIntDef(Edit1.Text,0);
DBGrid1.DataSource:=DM.DSCliente;
Open;
end;

Estou querendo fazer o mesmo tipo de pesquisa com o cpf só que usando um maskedit ao inves de um edit pois no banco de dados o cpf e salvo da seguinte forma :999.999.999-99;1;
Alquem pode me ajudar :?:

Valeu!!


Alecsandro Moura

Alecsandro Moura

Curtidas 0

Respostas

Mkoch

Mkoch

18/08/2006

Você pode fazer algo como assim:
With Dm.IBCliente do 
begin 
Close; 
SelectSQL.Clear; 
SelectSQL.Text:=´select * from CLIENTE where CPF Like :CPF´; 
ParamByName(´CPF´).AsString := QuotedString(´¬´ + EditCPF.Text + ´¬´) ;
DBGrid1.DataSource:=DM.DSCliente; 
Open; 
end;

QuotedString coloca o texto entre aspas.


GOSTEI 0
Massuda

Massuda

18/08/2006

Como você gravou os CPFs formatados no BD, você precisa usar na sua busca um valor formatado também. Por exemplo, seu código está buscando pelo CPF 111.111.111-11 (como gravado no BD) usando 11111111111, o que faz com que a busca falhe.

Mude seu EditCPF para um TEditMask e use a mesma máscara que você usou no BD.


GOSTEI 0
Marco Salles

Marco Salles

18/08/2006

Alem do que o massuda postou

Mude seu EditCPF para um TEditMask e use a mesma máscara que você usou no BD.


e parece que voce esta Salvando Literais .. Devis ao final 1 Da mascara

banco de dados o cpf e salvo da seguinte forma :999.999.999-99;1;


logo não se aplica o conecito de AsInteger...

então sugir ainda que altere ParamByName(´varcod´).AsInteger para
ParamByName(´varcod´).AsString

With Dm.IBCliente do 
begin 
Close; 
SelectSQL.Clear; 
SelectSQL.Text:=´select * from CLIENTE where COD Like :VarCod´; 
ParamByName(´varcod´).AsString:=MaskEdit1.Text; 
DBGrid1.DataSource:=DM.DSCliente; 
Open; 
end;



GOSTEI 0
Alecsandro Moura

Alecsandro Moura

18/08/2006

Valeu pessoal :P pelas respostas o meu codigo ficou assim:

 With Dm.IBCliente do
            begin
              Close;
              SelectSQL.Clear;
              SelectSQL.Text:=´select * from CLIENTE where CPF Like :VarCPF´;
              ParamByName(´VarCPF´).AsString:=(MaskEdit1.Text);
              DBGrid1.DataSource:=DM.DSCliente;
              Open;
            end;
        end;



GOSTEI 0
Marco Salles

Marco Salles

18/08/2006

logo não se aplica o [b:ca9123f73a]conecito[/b:ca9123f73a] de AsInteger...


por favor gente . [b:ca9123f73a]conecito[/b:ca9123f73a] não é ou pelo menos acho que não é [b:ca9123f73a]Conceito[/b:ca9123f73a] em Espanhol e muito menos aquele jogador do Gremio do Atletico Paranaense ou do humilhado Corinthias..

[b:ca9123f73a]Conecito[/b:ca9123f73a] é simplesmente um infeliz erro de Grafia ...


GOSTEI 0
POSTAR