sql - 如何将 select 语句的结果存储在变量中？

Question

到目前为止，我的代码是这样的。最后一行给了我一个编译错误:“预期的语句结束”。

Dim strSql As String
Dim groupId As String

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'"
groupId = CurrentProject.Connection.Execute strSql

Answer 1

你正在看类似这样的东西

Dim strSql As String
Dim groupId As String

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'"

Dim rec As Recordset
set rec= CurrentProject.Connection.Execute strSql

groupId = rec(0)

您需要将查询结果设置为记录集，然后从其结果中提取第一个值。没有所有定义的变量，我无法完全编译它，但这应该是一个很好的模板。