Access und ADO:Count DB-Einträge und Return des Ergebnisses

[shmia]

Delphi-Quellcode:

  Q := TADOQuery.Create(nil); 
  try
  Q.Connection := ADOConnection1; 
  Q.SQL.Text := 'SELECT COUNT(*) AS Anzahl FROM Verwaltung';   // nicht .Add() sondern .Text :=
  Q.Open;

// Alternative 1
Result := Q.Fields[0].AsInteger;

// Alternative 2
Result := Q.FieldByName('Anzahl').AsInteger;
  finally
    Q.Free;
  end;