Excel VBA连接Access查询返回球员数字ID而非姓名如何解决

Access的查阅字段是Access客户端特有的界面层功能，仅在Access自带的表单、查询视图中会自动将底层存储的关联表主键ID转换为设置的显示值（球员姓名）。通过ADODB这类外部接口连接Access时，默认直接读取字段的底层存储值，因此只会返回数字ID。

方案1：修改SQL查询语句关联球员表（最稳定通用） #

不要直接查询tblBets的全表字段，通过JOIN关联tblPlayers表直接获取球员姓名，修改后的查询语句如下（请将语句中的fldPlayerID、fldPlayerName替换为你tblPlayers表中实际的主键字段名、姓名字段名）：

SELECT tblBets.*, tblPlayers.fldPlayerName
FROM tblBets
INNER JOIN tblPlayers ON tblBets.fldPlayers = tblPlayers.fldPlayerID
WHERE tblBets.fldPaid IS NULL

该方案不依赖Access专属特性，后续即使更换数据库也可以正常使用，是首选解决方式。

方案2：读取查阅字段的显示属性（仅适配Access场景） #

如果不想修改SQL语句，也可以在读取字段值时访问Access查阅字段的专属显示属性，将原来的赋值语句：

rngOrigin(intRow + 1, intField).Value = rstQryResult(intField - 1).Value

修改为判断字段类型的逻辑，针对fldPlayers字段读取显示值：

If rstQryResult(intField - 1).Name = "fldPlayers" Then
    rngOrigin(intRow + 1, intField).Value = rstQryResult(intField - 1).Properties("DisplayValue").Value
Else
    rngOrigin(intRow + 1, intField).Value = rstQryResult(intField - 1).Value
End If

该方案仅能在Access作为数据源时使用，兼容性较差，不推荐优先使用。

你现有代码中手动遍历统计行数、逐单元格赋值的逻辑效率较低，可以通过调整记录集参数、调用自带方法简化：

1. 打开记录集时指定静态游标，直接获取记录数无需循环统计
2. 调用CopyFromRecordset方法一次性输出所有记录，无需嵌套循环
   优化后的核心代码片段如下：

' 打开记录集时指定游标类型和锁类型
rstQryResult.Open strQuery, connGambling, adOpenStatic, adLockReadOnly
If rstQryResult.RecordCount > 0 Then
    ' 从选中单元格的下一行开始直接输出所有记录
    rngOrigin.Offset(1, 0).CopyFromRecordset rstQryResult
End If

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