ich habe jetzt folgenden kompletten code ...
Delphi-Quellcode:
procedure TForm1.ComboBox1onclick(Sender: TObject);
var
adoConn : TAdoConnection;
SQL :
String;
ADOQuery : TADOQuery;
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';
ADOQuery.SQL.Text :=
SQL;
ADOQuery.Open;
while not AdoQuery.eof
do
begin
Combobox1.Items.Add(AdoQuery.FieldByName('
Description').AsString);
AdoQuery.Next;
end;
adoConn.Execute(
SQL);
if (adoConn.Connected)
then
adoConn.Close;
finally
if Assigned(adoConn)
then
FreeAndNil(adoConn);
end;
end;
aber nun bringt er mir eine zugriffsverletzung .. weiß jemand rein zufällig, woran es liegen könnte ?