query abfrage mit delphi

[Delphi.Narium]

Meinst Du sowas?

Delphi-Quellcode:

if query.Active then 
begin
  if query.Locate('KENNUNG',sl.Strings[3],[]) then
  begin
    ShowMessage(Query.FieldByName('bezeichnung').AsString);
  end
  else
  begin
    MessageDLG(Format('Die Kennung "%s" konnte nicht gefunden werden.',[sl.Strings[3]]),mtError,[mbOk],0);
  end;
end;

Oder eher sowas?

Delphi-Quellcode:

begin
  query.SQL.Text := 'SELECT description.kennung, description.bezeichnung FROM description where kennung = :Kennung';
  query.ParamByName('Kennung').AsString := sl.Strings[3];
  query.Open;
  case query.RecordCount of
    0 : MessageDLG(Format('Die Kennung "%s" konnte nicht gefunden werden.',[sl.Strings[3]]),mtError,[mbOk],0);
    1 : ShowMessage(Query.FieldByName('bezeichnung').AsString);
  else
    MessageDLG(Format('Die Kennung "%s" ist %d-Mal vorhanden.',[sl.Strings[3],query.RecordCount]),mtError,[mbOk],0);
  end;
  query.Close;
end;