probleminha na busca
16/02/2006
0
Segue abaixo o código que estou usando.
Valeu
procedure TfrmClientes.BitBtn8Click (sender: TObject);
begin
dbEdit1.datasource.dataset.first;
while not dbedit1.datasource.dataset.eof do begin
if dbEdit1.datasource.dataset.fieldbyname(´fantasia´). asString = edit1.text then
exit;
dbEdit1.datasource.dataset.next;
Brunoagbr
Posts
17/02/2006
Rjun
procedure TfrmClientes.BitBtn8Click (sender: TObject); begin Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]); end;
17/02/2006
Paullsoftware
coloca um TEdit e um Tbutton...
duplo clique no tButton e vai o código
SuaTabela.Locate(´Nome´,Edit1.Text,[loPartialKey]);
acho que só isso é suficiente...
17/02/2006
Paullsoftware
procedure TfrmClientes.BitBtn8Click (sender: TObject); begin Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]); end;
kramba, ao mesmo tempo!!!
Clique aqui para fazer login e interagir na Comunidade :)