varrer tabela
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?
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
Curtidas 0
Respostas
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
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;
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