Array
(
)

varrer tabela

Luiz_aquino
   - 31 ago 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?


Lucas Silva
   - 31 ago 2004

#Código

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;



Xtreme
   - 31 ago 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;