Daten einer Tabelle in eine TComboBox einlesen?

[smart]

Ich möchte gern alle Daten eines Feldes von einer Tabelle in eine TComboBox einlesen. Wie machtman das?

[Sharky]

Zitat von smart:

Ich möchte gern alle Daten eines Feldes von einer Tabelle in eine TComboBox einlesen. Wie machtman das?

Hai Heike,

Du musst einfach durch alle Einträge der Tabelle gehen und den Feldinhalt den Items der ComboBox hinzufügen.
Wenn Du in der Tabelle auch ein ID-Feld hast und dieses für weitere Verknüpfungen benötigst kannst Du diese über ein Typcasting auf ein TObject an den Eintrag knüpfen.

Delphi-Quellcode:

procedure TForm1.btn_FillComboBoxClick(Sender: TObject);
var
  inhalt : string;
  id     : integer;
begin
  ComboBox1.Clear;
  with ABSTable1 do
  begin
    First;
    while not (Eof) do
    begin
      inhalt := FieldByName('feldname').AsString;
      id := FieldByName('idfeld').AsInteger;
      ComboBox1.Items.Add(inhalt);
//      ComboBox1.Items.AddObject(inhalt,TOBject(id)); // Mit ID-Feld
      Next;
    end;
  end;
end;

[smart]

Hallo Stephan!

also ist der eigentliche Punkt um Felder aus zu lesen ?
String := ABSTable1.FieldByName('Feld1').AsString;

[Sharky]

Zitat von smart:

... also ist der eigentliche Punkt um Felder aus zu lesen ?

Jup.
Wenn Du genau weisst in welcher Reihenfolge die Felder in deinem TDataSet stehen kannst Du auch über den Fieldindex daraufzugreifen (ist schneller).

Delphi-Quellcode:

inhalt_Feld1 := Fields[0].AsString;
inhalt_Feld2 := Fields[1].AsString;

[smart]

Zitat von Sharky:

Delphi-Quellcode:

inhalt_Feld1 := Fields[0].AsString;
inhalt_Feld2 := Fields[1].AsString;

Ja, aber das geht dann nicht wenn mehr als ein Feld in der Tabelle ist, oder?

[Sharky]

Zitat von smart:

... Ja, aber das geht dann nicht wenn mehr als ein Feld in der Tabelle ist, oder?

Ich verstehe jetzt nicht ganz was Du meinst.

[smart]

Zitat von Sharky:

Zitat von smart:

... Ja, aber das geht dann nicht wenn mehr als ein Feld in der Tabelle ist, oder?

Ich verstehe jetzt nicht ganz was Du meinst.

Wenn jetzt mehr als ein Feld in der Tabelle ist, Brauche aber zum auswerten nur ein Feld dann muss ich ja den Feldname angeben können, Oder?

[Sharky]

Zitat von smart:

... Brauche aber zum auswerten nur ein Feld dann muss ich ja den Feldname angeben können, Oder?

Jo,
aber warum nimmst Du überhaupt eine (ABS)Table und kein (ABS)Query? Das finde ich, gerade für solch einen Fall, viel besser!

[smart]

Zitat von Sharky:

Jo,
aber warum nimmst Du überhaupt eine (ABS)Table und kein (ABS)Query? Das finde ich, gerade für solch einen Fall, viel besser!

Ich hatte immer den Eindruck, dass eine Tabelle schneller ist. Ich kenne mich mit Query auch noch nicht so gut aus. Habe schon mal das eine oder andere File geschossen. (Bitte nicht lachen).

[Sharky]

Zitat von smart:

... dass eine Tabelle schneller ist.

Nun ja, bei der ABS ist das nicht sooo wichtig. Aber bei einem richtigen DB-Server würdest Du es ganz schnell merken.
Eine TTable überträgt immer alle Felder und alleZeilen einer Tabelle zum Client. Filterungen finden dann lokal (beim Client stat).
Wenn Du also eine Tabelle in der Datenbank hast die pro Datensatz 1 kByte belegt und es sind 1000 Datensätze vorhanden wird immer 1 MegaByte vom Server zum Client übertragen. Auch dann wenn Du viele der Daten überhaupt nicht benötigst.

Bei einem TQuery wird genau das zum Client gesendet was Du vom Server haben möchtest. Wenn Du zum Beispiel:
SELECT feld1 FROM tabellename WHERE ID = 1 an den Server sendest (ID ist ein PK) dann bekommst Du exakt ein Feld (und halt nur die Datenmeng welches es belegt) vom Server zurück.

Um zu deinem Fall zu kommen:

Delphi-Quellcode:

procedure TForm1.btn_FillComboBoxClick(Sender: TObject);
var
  inhalt : string;
begin
  ComboBox1.Clear;
  with ABSQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT feld1 FROM tabelle ORDER BY feld1';
    Open
    First;
    while not (Eof) do
    begin
      inhalt := Fields[0].AsString; // Wir wissen das es Feld 0 sein muss!
      ComboBox1.Items.Add(inhalt);
      Next;
    end;
    Close;
  end;
end;

Wir wissen das der Fielinex 0 sein muss weil wir ja nur ein Feld aus der Tabelle zurückgebenlassen.