Datenbankeinträge in ComboBoxen zur Anzeige bringen.

[Jens Hartmann]

Zitat:

RWarnecke hat geschrieben

Delphi-Quellcode:

with TZQuery do begin 
  SQL.Clear 
  SQL.Text := 'Select * from tabelle where feld1=1'; 
  Open; 
  Active := true; 
  while not eof do 
  begin 
    Combobox1.Items.Add(FieldByName('Feld2').AsString); 
  end; 
  Active := false; 
  Close; 
end;

So habe ich es ja bis jetzt gelößt, allerdings, möchte ich ja nur die letzten 5 aktuellesten Ereignisse.

Mein jetziger Code...

Delphi-Quellcode:

with QRYMB256PLUS do begin 
  SQL.Clear 
  SQL.Text := 'Select * from MB256PLUS where Ereignis=Einbruch'; 
  QRYMB256PLUS.Open; 
  while QryMB256PLUS Not eof do 
  begin 
    CBAlarme.Items.Add(FieldByName('Ereignis').AsString); 
  end; 
  Active := false; 
  Close; 
end;