Gotonearest ADO?

[mikhal]

Ich vermute mal, daß "Personalnummer" dein PrimaryKey ist und ein Integer, dann sollte folgendes funktionieren:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  with table1 do 
  begin 
    if Locate('Personalnummer', StrToInt(edit1.Text), [loPartialKey]) then
    begin  
      edit2.text:= fieldbyname('Name').Asstring; 
      edit3.text:= fieldbyname('Vorname').Asstring; 
      edit3.text:= fieldbyname('Gehalt').Asstring; 
    end;
  end; 
end;

Grüße
Mikhal

[edit] GotoNearest läßt sich eigentlich nur mit einer teilweisen Übereinstimmung realisieren, daher der Nachtrag "loPartialKey".