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:  19.018
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	kein Beispielprojekt

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Adventsangebot 2008 Während der Adventszeit, Woche für Woche interessante Festtagsangebote Diese Woche (01.12.08 bis 07.12.08): sevDataGrid 2.0 für nur 99,- EUR sevOutBar 3.0 für nur 29,- EUR - Werbung -Greifen Sie jetzt zu!

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