query abfrage mit delphi

[lucy]

hier meine Query:

Code:

SELECT description.kennung, description.bezeichnung FROM description

hier zur Delphi abfrage :

wenn die kennung gleich ist, möchte ich gerne die bezeichnung anzeigen lassen

hier ein beispiel:

Delphi-Quellcode:

 var
  b : String;
  .......................................
       if Query.Active = true then
        begin
         if Query.FieldByName('kennung').Text = sl.Strings[3] then
            begin
             b := Query.FieldByName('bezeichnung').Text;
              ShowMessage(b);
   ...........................................................

oder muss ich was mit locate oder filter machen? wie war das noch mal?

[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;