Also etwa so? Und anschließend schliessen?
Delphi-Quellcode:
with Query2
do
begin
Open;
Active:= false;
SQL.Clear;
SQL.Add('
Select Count (feld001) as AnZahl from '+ ComboBox1.Text) ;
StatusBar1.Panels[0].Text:=IntToStr(Anzahl ) ;
Close;
Active := true;
end;
Nach dem Ausprobieren: Fehlermeldung keine
SQL Anweisung verfügbar.