Fazer Pesquisa MYSQL e mostrar em label

Delphi

11/05/2006

Estou fazer uma pesquisa através de um edit.

Quero q procure pelo cpf e mostre todos os campos em diferentes labels.

N sei nem por onde começar mastá maisoumenos assim:

Ado Conection > Tado Query

TADOQUERY. SQL =
SELECT Cpf, Nome
FROM Clientes
WHERE Cpf = ´+txtCard.Text´

Ta dae te o botão q efetua a busca:

user.Active:=false;
user.Open;
user.Active:=true;

if (user.Fields.FieldByName(´cpf´).Value=txtCard.Text)then // cpf é o campo da tabela
begin
ShowMessage(´Cliente encontrado!´);
// Comando para colocar dado 1 no label 1;
// Comando para colocar dado 2 no label 2;

end
else
ShowMessage(´CLiente não encontrado!´);
end;


Deve tar tudo errado. mas to tentando!!


Tiago_hs

Tiago_hs

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

11/05/2006

tente assim pode dar certo...

TADOQUERY. SQL = SELECT Cpf, Nome FROM Clientes WHERE Cpf = ´+txtCard.Text´


Coloque um butto dê dois cliques sobre ele e coloque o código abaixo

With ADOQUERY do
 begin
 SQL.Add(´SELECT Cpf, Nome FROM Clientes´);
 SQL.Add(´WHERE Cpf = :CPF´);//Onde tem :CPF é um parametro que está sendo criado para melhorar a pesquisa, não gosto de trabalhar com o código todo imbolado...
//Se quiser pode substituir a linha acima por esta para melhorar a pesquisa
// SQL.Add(´WHERE Cpf Starting With :Cpf´);
 ParamByName(´CPF´).AsString := txtCard.Text;
 Open;
if ADOQUERY.IsEmpy then
 ShowMessage(´Registro não encontrado´)
 else
  Label1.Caption := ´O CPF Informado Pertence a: ´+ ADOQUERY.FieldByName(´NOME´).AsString;
end;


espero ter ajudado :wink:


GOSTEI 0
POSTAR