varrer tabela

Delphi

31/08/2004

31/08
Ass: varrer tabela
Como faço para varrer um tabela e ir comparando com um dbedit, no caso
eu queria fazer um campo onde o usuário entre com o codigo e ao sair
do DBEdit faço uma varreduro para ver se tem código igual, como faço isso?


Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

31/08/2004

with qry do
 begin
    Sql.Add(´select * from tabela´);
    Open;
    while not eof 
      begin
        if dbedit1.text = FieldByName(´campo´).AsString then
            ShowMessage(´são iguais´);
        next;  
     end;
  end;



GOSTEI 0
Xtreme

Xtreme

31/08/2004

Recomendo que vc use um edit, ai na sua funcao de pesquisa coloque da seguinte forma no sql

query.close;
query.sql.clear;
query.sql.text:=´select * from tabela where codigo = :cod´;
query.parambyname(´:cod´).asinteger:=strtoint(edit1.text);//caso seu campo seja integer
query.open;


GOSTEI 0
POSTAR