in Comboboxen datensätze einfügen

[arcon]

danke deddyH .. für den quelltext .. funktioniert wunderbar
und danke an mkinzler

problem behoben ..

hier die finalle ausgabe des quellcodes für leute, die auch das selbe problem haben, wie ich ..

Delphi-Quellcode:

procedure TForm1.ComboBox1onclick(Sender: TObject);
var

adoConn : TAdoConnection; 
SQL : String;
ADOQuery : TADOQuery;
begin
  combobox1.Clear;
  adoConn := TADOConnection.Create(nil);
  try
    adoConn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated .......';
    if (not adoConn.Connected) then
      adoConn.Open;

    SQL := 'Select Description From Watch_Settings';
    ADOQuery := TADOQuery.Create(nil);
    try
      ADOQuery.Connection := adoConn;
      ADOQuery.SQL.Text := SQL;
      ADOQuery.Open;
      while not AdoQuery.eof do
        begin
          Combobox1.Items.Add(AdoQuery.FieldByName('Description').AsString);
          AdoQuery.Next;
        end;
    finally
      ADOQuery.Free;
    end;

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

[DeddyH]

Zitat von arcon:

und danke an m.kanzler

Markus Merkel?

[mkinzler]

Und Datlef H

[DeddyH]