Fórum SetKey, gotonearest no Adotable, é possivel? #255805

25/10/2004

0

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


Xadriano

Xadriano

Responder

Posts

25/10/2004

Marcio.theis

O que você deseja que seja feito no Change do edit?


Responder

Gostei + 0

25/10/2004

Xadriano

[quote:8ee7b9f2ad=´/]/]@t´]O que você deseja que seja feito no Change do edit?[/quote:8ee7b9f2ad]


Responder

Gostei + 0

26/10/2004

Xadriano

Quero digitar o nome do associado do edit, e localiza-lo no dbgrid


Responder

Gostei + 0

26/10/2004

Marcio.theis

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar