如何将 SQL 结果放入 VBA 中的变量中答案

【问题标题】：How can I put SQL result into variable in VBA如何将 SQL 结果放入 VBA 中的变量中
【发布时间】：2021-03-01 09:22:06
【问题描述】：

我有如下示例表

| ID | Qty |
| -- | ----|
| 1  | 5   |
| 2  | 7   |
| 3  | 8   |
| 4  | 9   |
| 5  | 12  |

如何将以下查询的结果传递到 VBA 变量中以用于下一个查询（更新和插入）？

SELECT example_tab.Qty
FROM example_tab
WHERE ID = 4

例如 test_variable = 9

【问题讨论】：

【解决方案1】：

要将单个值放入变量中，可以使用DLookup：

Dim test_variable As Variant

test_variable = DLookup("[Qty]", "example_tab", "[ID] = 4")

【讨论】：

【解决方案2】：

这是你要找的吗？

sSQL = "SELECT example_tab.Qty FROM example_tab WHERE ID = 4"

Dim rs As DAO.Recordset     
Set rs = CurrentDB.OpenRecordset(sSQL)

【讨论】：