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

Posted 2023-05-07

【中文标题】如何将我的 select 语句的结果存储在变量中？

【英文标题】：How do I store the results of my select statement in a variable?

【发布时间】：2010-02-26 18:20:09

【问题描述】：

到目前为止，我的代码是这样的。最后一行给了我一个编译错误：“expected end of statement”。

Dim strSql As String
Dim groupId As String

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

【问题讨论】：

确保您的 ListO.Value 返回正确的值。

【参考方案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)

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

【讨论】：

一般来说DAO和Accesss一起使用会更好，所以：设置rec=CurrentDB.OpenRecordset(strSQL)。您可能需要 Dim rec As DAO.Recordset