Anzahl Datensätze mit Zeos Komponenten

[Sharky]

Zitat von celinaw:

..ihr lieben

Sharky ist lieb! *gg*

Ein kleiner Tip am Rande: Wenn Du den Mauscursor veränderst solltest Du in jedem Fall mit einem Try-Finally Block arbeiten.
So kannst Du sicherstellen das selbst bei einem Fehler der Cursor wieder richtig zurück gesetzt wird.

Delphi-Quellcode:

var
  anzahl : Integer;
begin
  dbMain.HostName:=Form2.Hostname.Text;  //Server
  dbMain.User:=Form2.User.Text;  //Benutzername
  dbMain.Password:=Form2.Password.Text;  //Passwort
  dbMain.Database:=Form2.Datenbank.Text;  //Name der Datenbank
  dbMain.Connected:=True;  //Verbindung herstellen
  Screen.Cursor := crHourGlass;
  try
    with qrMain do
    begin
      Close;
      SQL.Text :=
       'SELECT COUNT(*) AS anzahl FROM table_ordertracking WHERE order_type=:order_type';
      ParamByName('order_type').AsString := 'FT';
      Open;
      anzahl := FieldByName ('anzahl').AsInteger;
      DFCount.Text:= IntToStr(anzahl);
      qrmain.Close;
  finally
    Screen.Cursor := crxxxx;
  end;
end;