sql - 如何从 select 语句中获取值到变量中？

Question

我想将 select 语句的结果存储到可用于在消息中显示的变量中。

Dim rst As DAO.Recordset
Dim result As String

Dim strSQL As String
strSQL = "SELECT Key_Old FROM Pivot_Old where Pivot_Old.Count = " & 1 & ""
   
Set rst = CurrentDb.OpenRecordset(strSQL)

result = rst!result
rst.Close

MsgBox ("String is " & result)

我希望 select 语句的结果显示在 msgbox 中。

Answer 1

result = rst!result

这个符号是这个的神奇速记:

result = rst.Fields("result").Value

并且您的查询没有任何result 字段。因此，要么将查询更改为别名 Key_Old 到 result:

strSQL = "SELECT Key_Old As result FROM Pivot_Old where Pivot_Old.Count = " & 1 & ""
...
result = rst.Fields("result").Value

或者，您更改​​了引用该字段的方式:

strSQL = "SELECT Key_Old FROM Pivot_Old where Pivot_Old.Count = " & 1 & ""
...
result = rst.Fields("Key_Old").Value

经验法则，更喜欢显式代码而不是神奇的速记符号 =)