Anzahl Datensätze schnell ermitteln (DAO) Dieser Tipp zeigt, wie sich schnell die Anzahl der Datensätze einer Tabelle ermitteln lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  47.101
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 99 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie würden Sie die Anzahl der Datensätze einer Access-Datenbank (Tabelle) ermitteln?

So?

Dim Db As Database
Dim Rs As Recordset
Dim nCount As Long
 
Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
Set Rs = Db.OpenRecordset("SELECT * FROM Tabelle")
 
Rs.MoveLast
nCount = Rs.RecordCount

Zugegeben: Eine sehr langsame Methode...

Oder vielleicht so?

Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
Set Rs = Db.OpenRecordset("SELECT Count(*) FROM Tabelle")
If Rs.RecordCount > 0 Then
  nCount = Rs(0)
End If

Schon besser, aber immer noch nicht schnell genug

Schneller geht es wie folgt:

Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
Set Rs = Db.OpenRecordset("Tabelle")
nCount = Rs.RecordCount

Aber am schnellsten geht es wohl, wenn man ein Recordset erst gar nicht erstellen müsste - oder?
Geht nicht? Und ob!

Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
nCount = Db.TableDefs("Tabelle").RecordCount

Eine eher unbekannte Methode - aber effektiv. Und schnell