Count Num Records in Access table

[SlakeB]

I'm trying to count the number of records in an error log table and display the result to the screen.

Dim sqlCount, rsCount
set rsCount = CreateObject("ADODB.Recordset")
rsCount.open "tblErrorLog",objConn1
sqlCount="SELECT COUNT(*) FROM tblErrorLog"
set rsCount= objConn1.execute(sqlCount)
wscript.echo rsCount("TotCount")

Can anyone see the error?

 

[EBGreen]

What error are you getting.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[SlakeB]

I think I answered my own question. This works:

Set rsCount = CreateObject("ADODB.Recordset")
rsCount.open "tblErrorLog",objConn1

Dim intErrorCount
intErrorCount = 0
Do While Not rsCount.EOF
	intErrorCount = intErrorCount + 1
	rsCount.moveNext
Loop

wscript.echo intErrorCount

 

[PHV]

And to reply to your first post:
either change this:
sqlCount="SELECT COUNT(*) FROM tblErrorLog"
By this:
sqlCount="SELECT COUNT(*) AS TotCount FROM tblErrorLog"

Or this:
wscript.echo rsCount("TotCount")
By this:
wscript.echo rsCount(0)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886