Datenbankeinträge in ComboBoxen zur Anzeige bringen.

[omata]

Wann öffnest du denn die Datenmenge?

Delphi-Quellcode:

  QryMB256PLUS.SQL.Text := 
    'SELECT FIRST 5 *'#13 +
    'FROM MB256PLUS'#13 +
    'WHERE ereignis STARTING WITH :Ereignis';

  QryMB256PLUS.ParamByName('Ereignis').asString:= 'Sabotage';
  QryMB256PLUS.Open;
  while not QryMB256PLUS.Eof do
  begin
    CBAlarme.Items.Append(QryMB256PLUS.FieldByName('Ereignis').AsString);
    QryMB256PLUS.Next;
  end;
  QryMB256PLUS.Close;