如何在Msgbox中显示来自查询的RecordsAffected

Msgbox是Visual Basic for Applications (VBA)中的一个函数，用于在消息框中显示一条消息。RecordsAffected是一个ADODB.Recordset对象的属性，用于返回执行查询后受影响的记录数。

在VBA中，我们可以使用以下代码在Msgbox中显示来自查询的RecordsAffected：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 连接到数据库
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

' 执行查询语句
rs.Open "SELECT * FROM TableName", conn

' 显示RecordsAffected
MsgBox "受影响的记录数为：" & rs.RecordCount

' 关闭记录集和连接
rs.Close
conn.Close

在这个例子中，我们使用ADODB.Connection对象连接到一个Microsoft Access数据库，并使用ADODB.Recordset对象执行一个查询语句。然后，我们可以使用rs.RecordCount属性获取受影响的记录数，并将其显示在Msgbox中。

需要注意的是，使用这个方法前，需要确保已经正确引用了Microsoft ActiveX Data Objects库（通常是"Microsoft ActiveX Data Objects x.x Library"）。如果没有引用，可以通过以下步骤添加引用：

1. 在VBA编辑器中，点击"工具"菜单，然后选择"引用"。
2. 在弹出的对话框中，找到并勾选"Microsoft ActiveX Data Objects x.x Library"。
3. 点击"确定"保存更改。

这样，我们就可以在Msgbox中显示来自查询的RecordsAffected了。

参考链接：

• ADODB.Recordset.RecordCount Property (Microsoft Access VBA)