Question

vba 怎么获得查询结果条数

就是说 我连接ACCESS数据库 通过查询 给一个ADODB.recordSet 赋了值

recordSet 里有多少条数据 用什么属性得到？

Answer 1

Sql="Select Count(*) As RecordCount From tablename Where....."
然后rs.getInt("RecordCount")

rs.fields.count得到列数，
rs.fields(i).name得到指定列的列名

Answer 2

recordSet.RecordCount这个属性就是recordSet中的记录总数
recordSet.Fields.Count是列总数

Answer 3

给个全部的程序你看看，当前工作表A1单元格显示记录的条数。你只要把程序中的d:\zhoutao\电话费用\201008\Bill2010-08.mdb这一段文件地址替换掉就行了。

Sub access()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim cnnstr As String

cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Jet OLEDB:Database Password=;Data Source=" _
& "d:\zhoutao\电话费用\201008\Bill2010-08.mdb"

sql = "select count(*) from bill"

cnn.Open cnnstr
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
cells(1,1)= rs.Fields(0).Value
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

End Sub