Count in Access

[Stefan]

Okay, I'm confused. The code below produces no errors and prints -1
for the RecordCount. I run it on a local Access DB. I ran the query
in Access and it returns correctly one field with one row representing
the Count...

However the Response.Write(numAvailServers) statement prints nothing !
There must be at least one record or it wouldn't go inside the
If....What am I missing here...

'Get number of available servers
strSQLquery = "SELECT COUNT(*) As resF FROM Server "
strSQLquery = strSQLquery & "WHERE server_status=1"

set rs2 = conn.Execute(strSQLquery)
Call ErrorVBScriptReport("Exuecute:" & sqrSQLQuery)
Call ErrorADOReport("Exuecute:" & sqrSQLQuery, conn)

If rs2.EOF = false Then
numAvialServers = rs2.Fields("resF")
Response.Write(numAvailServers)
Response.Write(rs2.RecordCount)
End If

[Danny J. Lesandrini]

Are you creating the object first ...

Set rs2 = Server.CreateObject("adodb.recordset")

Set rs2 = conn.Execute(strSQLquery)
numAvialServers = rs2.Fields("resF")

--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com
"Stefan" <st****@dragolov.com> wrote in message news:89**************************@posting.google.c om...

Okay, I'm confused. The code below produces no errors and prints -1
for the RecordCount. I run it on a local Access DB. I ran the query
in Access and it returns correctly one field with one row representing
the Count...

However the Response.Write(numAvailServers) statement prints nothing !
There must be at least one record or it wouldn't go inside the
If....What am I missing here...

'Get number of available servers
strSQLquery = "SELECT COUNT(*) As resF FROM Server "
strSQLquery = strSQLquery & "WHERE server_status=1"

set rs2 = conn.Execute(strSQLquery)
Call ErrorVBScriptReport("Exuecute:" & sqrSQLQuery)
Call ErrorADOReport("Exuecute:" & sqrSQLQuery, conn)

If rs2.EOF = false Then
numAvialServers = rs2.Fields("resF")
Response.Write(numAvailServers)
Response.Write(rs2.RecordCount)
End If

[Van T. Dinh]

RecordCount Property of an ADO Recordset may gives -1 (to indicate a
non-empty Recordset) rather than the actual tuple count depending on the
type of ADO Recordset created. You need to check ADO Help and create the
Recordset of the type that gives true count rather than -1.

--
HTH
Van T. Dinh

"Stefan" <st****@dragolov.com> wrote in message
news:89**************************@posting.google.c om...

Okay, I'm confused. The code below produces no errors and prints -1
for the RecordCount. I run it on a local Access DB. I ran the query
in Access and it returns correctly one field with one row representing
the Count...

However the Response.Write(numAvailServers) statement prints nothing !
There must be at least one record or it wouldn't go inside the
If....What am I missing here...

'Get number of available servers
strSQLquery = "SELECT COUNT(*) As resF FROM Server "
strSQLquery = strSQLquery & "WHERE server_status=1"

set rs2 = conn.Execute(strSQLquery)
Call ErrorVBScriptReport("Exuecute:" & sqrSQLQuery)
Call ErrorADOReport("Exuecute:" & sqrSQLQuery, conn)

If rs2.EOF = false Then
numAvialServers = rs2.Fields("resF")
Response.Write(numAvailServers)
Response.Write(rs2.RecordCount)
End If

[Danny J. Lesandrini]

The code below never asks for the RecordCount of the recordset.
He's using the Count() function to populate a column and reading
it from that column.
--
Danny J. Lesandrini
dl*********@hotmail.com
http://datafast.cjb.net

"Van T. Dinh" <Va***********@PlseUseNewsGroup.bigpond.com> wrote ...

RecordCount Property of an ADO Recordset may gives -1 (to indicate a
non-empty Recordset) rather than the actual tuple count depending on the
type of ADO Recordset created. You need to check ADO Help and create the
Recordset of the type that gives true count rather than -1.

--
HTH
Van T. Dinh

"Stefan" <st****@dragolov.com> wrote in message
news:89**************************@posting.google.c om...

Okay, I'm confused. The code below produces no errors and prints -1
for the RecordCount. I run it on a local Access DB. I ran the query
in Access and it returns correctly one field with one row representing
the Count...

However the Response.Write(numAvailServers) statement prints nothing !
There must be at least one record or it wouldn't go inside the
If....What am I missing here...

'Get number of available servers
strSQLquery = "SELECT COUNT(*) As resF FROM Server "
strSQLquery = strSQLquery & "WHERE server_status=1"

set rs2 = conn.Execute(strSQLquery)
Call ErrorVBScriptReport("Exuecute:" & sqrSQLQuery)
Call ErrorADOReport("Exuecute:" & sqrSQLQuery, conn)

If rs2.EOF = false Then
numAvialServers = rs2.Fields("resF")
Response.Write(numAvailServers)
Response.Write(rs2.RecordCount)
End If

[Van T. Dinh]

See second last line of the code.

--
HTH
Van T. Dinh

"Danny J. Lesandrini" <dl*********@hotmail.com> wrote in message
news:br************@ID-82595.news.uni-berlin.de...

The code below never asks for the RecordCount of the recordset.
He's using the Count() function to populate a column and reading
it from that column.
--
Danny J. Lesandrini
dl*********@hotmail.com
http://datafast.cjb.net

[Danny J. Lesandrini]

Ooops!

And I thought I double checked before I pressed SEND.
--
Danny J. Lesandrini

"Van T. Dinh" <Va***********@discussions.microsoft.com> wrote ...

See second last line of the code.

--
HTH
Van T. Dinh