TADOTable.Active = true mit Fortschritt

[r_kerber]

Ungetestet:

Delphi-Quellcode:

TempQuery := TADOQuery.Create(nil);
try
  TempQuery.Connection := Con;
  TempQuery.SQL.Text := 'Select Count(*) as anzahl from ' + ListBoxTable.Items[ListBoxTable.ItemIndex];
  iAnzahl := TempQuery.FieldByName('anzahl').AsInteger;
  TempQuery.ExecSQL;
finally
  TempQuery.Free;