vba - 在msgbox中显示单个数据库值

我在Access 2007文件中有以下vba代码：

Private Sub Form_Load()

Dim a As String
Dim b As DAO.Recordset

a = " select col1 from table1 where id = 1 "
Set b = CurrentDb.OpenRecordset(a)

MsgBox (b)
b.Close

End Sub

但是我在MsgBox (b)行上收到以下错误。知道为什么会这样吗？查询返回单个值，我想在消息框中显示它。

最佳答案

如果希望MsgBox显示记录集的第一列中包含的值，则可以采用这种方式...

MsgBox b(0)

但是，您实际上不需要打开记录集即可检索该单个值。您可以改用DLookup表达式。

MsgBox DLookup("col1", "table1", "id = 1")

关于vba - 在msgbox中显示单个数据库值，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/28661954/