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;