in Comboboxen datensätze einfügen

[arcon]

hallo miteinander ..

und zwar möchte ich gerne die werte einer bestimmten spalte aus einer tabelle in eine combobox übertragen. dazu habe ich auch schon gegoogelt .. und den folgenden quellcode gefunden gehabt ..

Delphi-Quellcode:

procedure TForm1.ComboBox1onclick(Sender: TObject);
var

adoConn          : TAdoConnection;
SQL              : String;

  begin

  adoConn := TADOConnection.Create(Self);
  adoConn.ConnectionString  := 'Provider=SQLOLEDB.1;Integrated ........;
  try
    if (not adoConn.Connected) then
    adoConn.Open;

 SQL := 'Select Description From Watch_Settings';
        while not eof do
  begin
    Combobox1.Items.Add(FieldByName('Feld2').AsString);
  end;

    adoConn.Execute(SQL);

    if (adoConn.Connected) then
    adoConn.Close;
  finally
    if Assigned(adoConn) then
      FreeAndNil(adoConn);

  end;
end;

Meine Frage latet nun, was ich bei FieldByName und bei Feld2 eintragen muss, so dass ich das oben beschriebene problem lösen kann !?!

danke für eure mithilfe !

[DeddyH]

Merkwürdiger Code. Du durchläufst eine Ergebnismenge, die Du im Anschluss erst öffnen willst :gruebel:. Es müsste dann aber (bei korrigierter Reihenfolge) FieldByName('Description').AsString heißen.

[mkinzler]

Es fehlt irgendwie eien Query/DataSet-Kompo. Zudem fehlt ein .Next in der Schleife

[arcon]

hallo,

laut quelltext wird sich erst zum server verbunden ..
anschließend übergebe ich dem SQL-String die select anweisung ... in der ich die spalte Description aus der tabelle watch settings auswähle
und möchte anschließend die gefundenen strings in die combobox einfügen.
aber leider meckert er mir " fieldbyname " und "asstring " an ..

undeklarierte bezeichner ..

ich würde sie ja gerne deklarieren, wenn man nur wüsste, wofür man sie benötigt .. damit ich weiß, welchen wert ich diesen variablen zuweisen muss .. (laut quellcode würde ich sie als string definieren )

[arcon]

ich möchte es ohne diverse dateset oder datasource oder list-komponenten durchführen ..
einfach nur durch den quellcode .. aber das stellt sich schwieriger raus, als gedacht ...

[mkinzler]

Delphi-Quellcode:

SQL := 'Select Description From Watch_Settings';

AdoQuery.SQL.Text := SQL;
AdoQuery.Open;
while not AdoQuery.eof do
begin
    Combobox1.Items.Add(AdoQuery.FieldByName('Feld2').AsString);
    AdoQuery.Next;
end;

[DeddyH]

Da fehlt aber noch ein Open ;)

[arcon]

meine ursprüngliche frage wurde aber noch nicht beantwortet ..

für was das "fieldbyname" steht ?

da fehlt ein Open ->

Code:

adoConn.Open;

[DeddyH]

FieldByName -> Feld nach Namen (anstatt Index im Fields-Array)

[mkinzler]

Das .Open fehlt beim Query