SetKey, gotonearest no Adotable, é possivel?
Estou usando o Código abaixo, em meu banco de dados(ADO) é possivel?
se não, por favor me digam como fazer, este digitado esta dando erro!!!!
procedure TForm1.Edit1Change(Sender: TObject);
begin
With Adotable1 do begin
SetKey;
FieldByName(´NomeAssociado´).AsString:=Edit1.Text;
GotoNearest;
end;
end;
end.
Grato,
adriano
se não, por favor me digam como fazer, este digitado esta dando erro!!!!
procedure TForm1.Edit1Change(Sender: TObject);
begin
With Adotable1 do begin
SetKey;
FieldByName(´NomeAssociado´).AsString:=Edit1.Text;
GotoNearest;
end;
end;
end.
Grato,
adriano
Xadriano
Curtidas 0
Respostas
Marcio.theis
25/10/2004
O que você deseja que seja feito no Change do edit?
GOSTEI 0
Xadriano
25/10/2004
[quote:8ee7b9f2ad=´/]/]@t´]O que você deseja que seja feito no Change do edit?[/quote:8ee7b9f2ad]
GOSTEI 0
Xadriano
25/10/2004
Quero digitar o nome do associado do edit, e localiza-lo no dbgrid
GOSTEI 0
Marcio.theis
25/10/2004
o que eu utilizo no OnChange do meu form de localização é o seguinte:
procedure TfrmLoc.edtExpressaoChange(Sender: TObject);
begin
if edtExpressao.Text = ´ ´ then
edtExpressao.Text:=´´
else
begin
qryProcura.Close;
qryProcura.ParamByName(´Descricao´).Value:=´¬´+edtExpressao.Text+´¬´;
qryProcura.Open;
if qryProcura.RecordCount > 0 then
btnOK.Enabled:=True
else
btnOK.Enabled:=False;
end;
end;
GOSTEI 0