vba 怎么获得查询结果条数

2025-03-26 20:07:11

推荐回答（3个）

回答（1）：

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

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

回答（2）：

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

回答（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