Jet数据库迁移至SQL Server时ADODB记录集同名字段列名问题

这问题我之前帮客户处理过类似的，数据库迁移最头疼的就是这种兼容性细节，尤其是你这种代码量几十万行的成熟应用，大规模改代码简直是噩梦！先给你梳理下核心问题：Jet数据库用ADODB查跨表同名字段时，会自动返回TableName.Column格式的字段名，但SQL Server默认只返回列名本身，导致你原来代码里rs("a.foo")这种写法直接找不到字段报错。

下面给你几个实用的解决方案，优先推荐改动最小的：

1. 修改SQL语句，给重复列加带表前缀的别名（最推荐） #

既然代码动不了，那就让SQL Server返回和Jet一模一样的字段名！把所有包含跨表同名字段的SELECT语句，给列手动加上别名：

• 原来的写法：SELECT a.foo, b.foo FROM tableA a JOIN tableB b ON a.id = b.a_id
• 修改后：SELECT a.foo AS [a.foo], b.foo AS [b.foo] FROM tableA a JOIN tableB b ON a.id = b.a_id

这样SQL Server返回的字段名就是a.foo和b.foo，和Jet完全一致，你原来的代码连一行都不用改！

如果你的SQL是集中存在配置文件或者某几个类里的，直接用正则批量替换就行：

• 匹配模式：(\w+)\.(\w+)（精准匹配表别名.列名的格式）
• 替换为：$1.$2 AS [$1.$2]

注意：如果SQL里已经有自定义别名的，记得跳过这些，别重复加别名就行。

2. 封装字段访问逻辑（备选，万不得已才用） #

要是实在没法改SQL，那就只能动代码了，但尽量减少改动量——封装一个辅助函数，通过字段的源表和源列来定位值，代替原来直接按名字取的方式：

' 写个通用的辅助函数，放在公共模块里
Function GetFieldValue(rs As ADODB.Recordset, tableAlias As String, columnName As String) As Object
    For Each fld As ADODB.Field In rs.Fields
        ' 忽略大小写，避免因为数据库大小写配置坑你
        If fld.SourceTable.Equals(tableAlias, StringComparison.OrdinalIgnoreCase) AndAlso _
           fld.SourceColumn.Equals(columnName, StringComparison.OrdinalIgnoreCase) Then
            Return fld.Value
        End If
    Next
    ' 找不到就抛异常，方便排查问题
    Throw New Exception($"找不到字段：{tableAlias}.{columnName}")
End Function

' 原来的代码：rs("a.foo").Value
' 现在改成这样调用
Dim valueA As String = GetFieldValue(rs, "a", "foo")
Dim valueB As String = GetFieldValue(rs, "b", "foo")

这种方式不用改SQL，但需要把所有rs("table.column")的调用都替换掉，十万行代码的话工作量不小，所以只作为备选方案。

3. 临时过渡方案（逐步迁移用） #

如果你们是分阶段迁移，可以先让应用通过SQL Server的OPENROWSET访问Jet数据库，这样字段名格式还是和原来一样，等后续数据完全迁移到SQL Server后，再慢慢调整SQL或者代码——这只是临时过渡，不是长期解决办法哈。

最后提醒下：测试的时候一定要覆盖所有跨表同名字段的查询场景，别漏了！要是用了数据访问层或者ORM，也可以在层里统一做字段名映射，能省不少事。

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