Anzahl Datensätze mit Zeos Komponenten

[Sharky]

Zitat von alcaeus:

Mit SQL müsste es eigentlich so funktionieren:

Vorausgesetzt in dem Query steht auch noch der Tabellenname

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  anzahl : Integer;
begin
  with ZQuery1 do
  begin
    Close;
    SQL.Text :=
     'SELECT COUNT(*) AS anzahl '+#10
     'FROM tabelle'+#10
     'WHERE order_typ=:order_typ';
    ParamByName('order_typ').AsString := 'FT';
    Open;
    anzahl := FieldByName ('anzahl').AsInteger;
    Close;
  end;
end;