dim rs as new adodb.recordsetrs.CursorLocation = adUseClient '使用客户端游标
一般比较赞成Online的用法,在设置连接的时候设置为客户端游标~~
我明明里面的很多条记录,怎样取得记录数? // conn为ADO连接 dim strSQL as string dim rs as New ADODB.Recordset dim RecordCount as Long strSQL ="Select Count(*) From table1" rs.open strSQL,conn,adOpenStatic,adLockOptimistic RecordCount=rs.fields(0).value
我明明里面的很多条记录,怎样取得记录数? // conn为ADO连接 dim strSQL as string dim rs as New ADODB.Recordset dim RecordCount as Long strSQL ="Select Count(*) From table1" rs.open strSQL,conn,adOpenStatic,adLockOptimistic RecordCount=rs.fields(0).value 改一下: strSQL ="Select Count(*) As ABCD From table1"
如果只是想得到记录数的话可以这样: strSQL ="Select * From table1" rs.open strSQL,conn,adOpenStatic,adLockOptimistic RecordCount=rs.RecordCount
dim rs as new adodb.recordset rs.CursorLocation = adUseClient '你要加這句,不加這句有記錄rs.recordcound也返回-1if rs.recordcount>0 then msg"有記錄數為:" & rs.recordcount else msg"沒有記錄" endif
mConn.Open
conn为ADO连接
dim strSQL as string
dim rs as New ADODB.Recordset
dim RecordCount as Long
strSQL ="Select Count(*) From table1"
rs.open strSQL,conn,adOpenStatic,adLockOptimistic
RecordCount=rs.fields(0).value
conn为ADO连接
dim strSQL as string
dim rs as New ADODB.Recordset
dim RecordCount as Long
strSQL ="Select Count(*) From table1"
rs.open strSQL,conn,adOpenStatic,adLockOptimistic
RecordCount=rs.fields(0).value
改一下:
strSQL ="Select Count(*) As ABCD From table1"
strSQL ="Select * From table1"
rs.open strSQL,conn,adOpenStatic,adLockOptimistic
RecordCount=rs.RecordCount
如果有几百万条记录,你测试一下两者的效率和速度~~
msgbox rs.recordcou
msgbox rs.recordcount
rs.CursorLocation = adUseClient
dim i as long
i=rs.recordcount
msgbox i
你看看i是不是你的记录数!!!
Recordset 对象的游标类型将影响是否能确定记录的数目。对于仅向前游标,RecordCount 属性将返回 -1;对于静态或键集游标,将返回实际计数;而对于动态游标,则返回 -1 或实际计数,这取决于数据源。
strSQL ="Select * From table1"
rs.open strSQL,conn,adOpenStatic,adLockOptimistic
RecordCount=rs.RecordCountw18ily??????????楼上的,知识要得到记录数,你把所有的结果集都返回,晕那~~
select * 和Select Count(*)
如果有几百万条记录,你测试一下两者的效率和速度~~select * 只是一种方法而已,视数据表的结构而定。再说,如果你的数据库真有几百万条记录的话,用Select Count(*) 来获取记录数有意义吗?
rs.CursorLocation = adUseClient '你要加這句,不加這句有記錄rs.recordcound也返回-1if rs.recordcount>0 then
msg"有記錄數為:" & rs.recordcount
else
msg"沒有記錄"
endif
rs.movenext
好象这个一定要设置的
rs.cursorlocation=aduseclient '沒有這句話rs.recordcount返回值總是-1