Excel VBA中如何提取Access查询返回的CommodityInfo变量值？

错误原因 #

你遇到的报错是因为ADODB.Recordset的Fields集合采用0起始索引，而非你使用的1。当你用CommodityInfo(1)时，实际是在访问不存在的第2个字段，因此触发"找不到对应项"的错误。

解决方案 #

以下是两种可靠的取值方式，同时补充规范的对象处理流程：

1. 使用字段索引（0起始）

直接访问索引为0的字段（对应查询结果的第一列）：

' 先声明正确的对象类型（避免变体类型带来的隐式问题）
Dim CommodityInfo As ADODB.Recordset
Set CommodityInfo = ObjAccess.CurrentProject.Connection.Execute( _
    "SELECT TOP 1 Commodity FROM [" & CustomerName & "]")

Dim ComVal As String
If Not CommodityInfo.EOF Then ' 确保存在查询结果
    ComVal = CommodityInfo.Fields(0).Value ' 用0索引访问第一个字段
End If

' 用完后释放资源（避免内存泄漏）
CommodityInfo.Close
Set CommodityInfo = Nothing

2. 使用字段名（更直观，不易出错）

直接通过查询的字段名Commodity取值，即使后续查询字段顺序改变也不会出错：

Dim CommodityInfo As ADODB.Recordset
Set CommodityInfo = ObjAccess.CurrentProject.Connection.Execute( _
    "SELECT TOP 1 Commodity FROM [" & CustomerName & "]")

Dim ComVal As String
If Not CommodityInfo.EOF Then
    ComVal = CommodityInfo.Fields("Commodity").Value ' 用字段名访问
End If

CommodityInfo.Close
Set CommodityInfo = Nothing

额外注意事项 #

• 必须将CommodityInfo声明为ADODB.Recordset对象，不要用默认的变体类型，否则会丢失对象的智能提示和类型检查。
• 一定要判断CommodityInfo.EOF，避免查询无结果时取值报错。
• 使用完Recordset后必须关闭并释放对象，防止占用Access数据库连接资源。

内容的提问来源于stack exchange，提问作者Drawleeh