如何在 VBA 中将 SQL 查询结果记录保存为整数

【问题标题】：How to save SQL query result record as integer in VBA如何在 VBA 中将 SQL 查询结果记录保存为整数
【发布时间】：2019-08-08 22:53:29
【问题描述】：

我在 Access 2016 中有一个查询，我想在 VBA 模块中将记录号保存为整数。例如，Query1 有 10 条记录应保存为：

int query1 = 10

我该怎么办？

【问题讨论】：

有人知道我该怎么做吗？非常感谢！！
可以，使用sql的求和功能

标签： sql vba oracle ms-access

【解决方案1】：

您可以使用DCount() 函数：

Public Sub Count_Records()

    Dim i As Integer

    i = DCount("*", "your_query_name")

    Debug.Print i


End Sub

或者使用带有COUNT() 和记录集的SQL 查询：

Public Sub Count_Records_2()

    Dim RST As Recordset
    Dim i As Integer

    Set RST = CurrentDb.OpenRecordset("SELECT COUNT(*) AS CNT FROM your_query_name")
    i = RST!CNT

    Debug.Print i

End Sub

【讨论】：

【解决方案2】：

DCount 可能是最易读的方法，但为了提供另一种选择，您也可以使用记录集的RecordCount 属性，例如：

Sub CountRecords3()
    Dim i As Long
    With CurrentDb.OpenRecordset("Your_Query_Name")
        If Not .EOF Then
            .MoveFirst
            .MoveLast
            i = .RecordCount
        End If
        .Close
    End With
End Sub

【讨论】：