Datenbank suchen

[marabu]

Schau mal:

Delphi-Quellcode:

procedure TForm1.suchenClick(Sender: TObject);
var
  s: String;
begin
  with DBGrid1.DataSource.DataSet do
  begin
    s := FieldByName('NR').AsString;
    if InputQuery('Suchen nach', 'NR', s) and (s <> '') then
      if not Locate('NR', s, []) then
        ShowMessage(Format('NR "%s" nicht gefunden', [s]));
  end;
end;

Wenn es nicht funktioniert, dann musst du den Datentyp für den Suchwert anpassen.

marabu