Anzahl Datensätze in Variable schreiben

[Patrick Pohlmann]

Hallo Zusammen,

ich möchte gerne per VBA die Anzahl der Datensätze, die eine SQL Abfrage
ergibt ermitteln.

Ich habe dazu ein SQL Statement in VBA erstellt, dass bzsw. 617 Datensätze
ergibt.

Mein Ziel ist es in eine Variable die Anzahl der Datensätze zu bekommen um
sie dann später zum Rechnen bzw. Anzeige in einer Messagebox verwenden zu
können.

Ich könnte das SQL Statement durch Groupieren (Anzahl) natürlich auch so
anpassen, dass es mir nicht die 617 Datensätze, sondern nur die Anzahl eines
bestimmten Wertes anzeigt. Aber auch da weis ich nicht, wie ich das Feld in
dem die 617 steht auslesen kann.

Ich arbeite in einer A2000 MDB mit SQL Backend per ODBC.

Danke für Eure Hilfe.

Grüße

Patrick!

[Michael Zimmermann]

Hallo!

Post by Patrick Pohlmann
Hallo Zusammen,
ich möchte gerne per VBA die Anzahl der Datensätze, die
eine SQL Abfrage ergibt ermitteln.
Ich habe dazu ein SQL Statement in VBA erstellt, dass
bzsw. 617 Datensätze ergibt.
Mein Ziel ist es in eine Variable die Anzahl der
Datensätze zu bekommen um sie dann später zum Rechnen
bzw. Anzeige in einer Messagebox verwenden zu können.
Ich könnte das SQL Statement durch Groupieren (Anzahl)
natürlich auch so anpassen, dass es mir nicht die 617
Datensätze, sondern nur die Anzahl eines bestimmten
Wertes anzeigt. Aber auch da weis ich nicht, wie ich das
Feld in dem die 617 steht auslesen kann.
Ich arbeite in einer A2000 MDB mit SQL Backend per ODBC.

ADO
Dim rsa As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim SQL As String
SQL = "SELECT * FROM Tabelle"
Set cnn = CurrentProject.Connection
Set rsa = New ADODB.Recordset
rsa.Open SQL, cnn, adOpenKeyset
MsgBox rsa.RecordCount

DAO
Dim rsd As DAO.Recordset
Dim dbd As DAO.Database
Dim SQL As String
SQL = "SELECT * FROM Tabelle"
Set dbd = CurrentDb
Set rsd = dbd.OpenRecordset(SQL)
rsd.MoveLast
MsgBox rsd.RecordCount

Gruß aus Mainz
Michael

[Patrick Pohlmann]

Danke, genauer konnte es nicht sein.Und dann auch noch in ADO und DAO,
klasse.

Grüße

Patrick!

[Stefan Dase]

Hallo Patrick!

Post by Patrick Pohlmann
ich möchte gerne per VBA die Anzahl der Datensätze, die eine SQL Abfrage
ergibt ermitteln.

Leider war kein Codebeispiel dabei. Du erstellst also ein Recordset rst
und das enthält Datensätze. Die Anzahl kannst du über rst.Recordcount
zurückgeben lassen, vorher aber unbedingt einmal mit rst.Movelast an das
Ende springen!

HTH,
Stefan