RecordCount

[R@emdonck]

Hi,


I use this code to get a "RecordCount".
How can I get the same result, but FASTER??

Thanks R@emdonck

code:
Dim db_ODBC As DAO.Database
Dim rs_data As DAO.Recordset
dim Connect, MyRecordCount

Connect$ = "ODBC;DSN=" & str_DNS & ";UID=" & str_USER & ";PWD=" & str_PWD & ";DATABASE=" & str_DNS & ";"

Set db_ODBC = OpenDatabase("", False, False, Connect$)
Set rs_data = db_ODBC.OpenRecordset(str_SQL, dbOpenDynaset, dbSeeChanges)

rs_data.MoveLast
MyRecordCount= rs_data.RecordCount

[Edited by R@emdonck on 04-23-2000 at 09:11 PM]

[Alfred]

SQL statement to count the number of records:

SQL = "SELECT COUNT (*) As NumberOfRecords FROM Authors"

This will work faster especially when your are using a client-server database.


Coded:

Dim rs As Recordset, db As Database


Set db = Workspaces(0).OpenDatabase("C:\Program Files\DevStudio\VB50\BIBLIO.MDB")
Set rs = db.OpenRecordset("SELECT COUNT (*) As NumberOfAuthors FROM Authors")

MsgBox rs!NumberOfAuthors

[Edited by Alfred on 04-24-2000 at 04:02 AM]