|
|
|
|
|
| | |
| |
Active Server Pages ASP programs help tutorial tutorials routine routines jobs listserve mailinglist bulletin board bulletin boards programming snippet snippets CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: RecordCount Problems |
|
From: |
Raymond Skorstad |
|
Date: |
8/26/1999 7:43:35 AM |
|
IP: |
139.109.4.129 |
Do this:
Count = 0
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open "DSN=incident"
Sql = "SELECT count(tablbase.*) FROM tablbase"
rs.Open Sql, con
rsCount=rs(0)
rs.Close
rs.Open
Sql = "SELECT tablbase.* FROM tablbase"
rs.Open Sql, con, adStatic, adLockReadOnly
If CmdRS.Recordcount = -1 then
response.write "RecordCount doesnt work"
Else
response.write "Recordcount works! "&rs.recordcount"& records counted! <p>"
End If
do while not rs.Eof
count = count+1
response.write"Record "&count&" Of "&rsCount&" records"
rs.MoveNext
loop
www.delphi.com/myasp |
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
