Einlesen von SQL-Daten in Combobox

[Sharky]

Hai cell,

zum einen könntest Du natürlich eine TDBComboBox verwenden. Aber hier ein Beispiel wie Du es machen könntest.

Delphi-Quellcode:

procedure TForm1.FillComboBox (aCB : TComboBox; aID, aField, aTable : string);
var
  myQuery : TZQuery;  // Query für deine Datenbank
begin
  aCB.Clear;
  myQuery := TZQuery.Create(nil);
  try
    myQuery.Connection := DBConnection;  // Deine Connection
    myQuery.SQL.Text := Format ('SELECT %s, %s FROM %s ORDER BY %s',
            [aID,aField,aTable,aField]);
    myQuery.Open;
    while not (myQuery.Eof) do
    begin
      aCB.AddItem(myQuery.Fields[1].AsString,TObject(myQuery.Fields[0].AsInteger));
      myQuery.Next;
    end;
  finally
    myQuery.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FillComboBox(ComboBox1,'ID','Name','Test1');
end;