Datensätze Zählen klappt nicht ! Finde Fehler nicht.

[wlfmario]

Zitat von Sharky:

Delphi-Quellcode:

function TDM.TableCount(aTable: string): integer;
begin
  Result := -1;
  with TIBQuery.Create(nil) do
  begin
    try
      Database := IBDataBase1;
      Close;
      SQL.Text := Format('SELECT Count(*) FROM %s', [aTable]);
      Open;
      Result := Fields[0].AsInteger;
    finally
      Free;
    end;
  end;
end;

Aha das bringt schon viel ! Danke für die tollen Erkärungen.
Gibt es eine möglichkei auch ohne TIBQuery damit zu arbeiten ?