VB通过OleDb连接DB2部分机器报错的技术求助

我们团队用Visual Studio 2019、VB语言结合.NET Framework 4.7.2，通过IBMDADB2驱动的OleDbConnection连接公司DB2数据库。一半成员能正常连接，另一半打开连接时必触发错误：

System.Data.OleDb.OleDbException (0x8004d01c): CLI0106E Connection is closed. SQLSTATE=08003 CLI0119E Unexpected System failure. SQLSTATE=58004

已完成的排查动作：

• 报错机器用IBM官方工具（如DB2命令行处理器）可正常连接数据库
• 对比db2cli.ini和db2dsdriver.cfg文件，与正常机器内容完全一致
• 执行过db2md -i -w db2clpsetcp命令修复TCP配置
• 当前使用.NET Framework 4.7.2的OleDbConnection，System.Data版本为4.7.3062.0
• DB2实例为64位v11.5.5010.1723（Fix Pack 1），安装路径C:\PROGRA~1\IBM\SQLLIB，副本名DB2COPY1
• 正常连接机器安装的是IBM Data Server Client（同版本11.5.5010.1723）；报错机器原安装IBM Data Server Runtime Client（11.1.1011.1315），升级到同版本后问题依旧

1. 强制匹配平台位数 #

DB2是64位，必须确保项目以64位模式运行：

• 右键项目→属性→生成→平台目标，选择x64，禁止使用Any CPU（默认可能以32位运行，调用32位驱动引发冲突）
• 若用IIS Express调试，进入工具→选项→项目和解决方案→Web项目，勾选"使用64位版本的IIS Express"

2. 重新注册IBMDADB2驱动 #

以管理员身份打开命令提示符，执行：

regsvr32 "C:\PROGRA~1\IBM\SQLLIB\bin\db2oledb.dll"

注册成功后，检查注册表HKEY_CLASSES_ROOT\CLSID\{2206CDB0-19C1-11D1-89E0-00C04FD7A829}下的InprocServer32路径，确保指向64位的db2oledb.dll，避免32位残留驱动抢占优先级

3. 彻底清理旧驱动残留后重装 #

Runtime Client升级后的旧配置残留大概率是问题根源，按以下步骤清理：

• 卸载DB2，手动删除C:\Program Files\IBM\SQLLIB和C:\Program Files (x86)\IBM\SQLLIB（若存在）
• 注册表删除HKEY_LOCAL_MACHINE\SOFTWARE\IBM\DB2和HKEY_CURRENT_USER\Software\IBM\DB2下所有DB2相关项
• 重启机器后，重新安装IBM Data Server Client（不要安装Runtime Client，它缺少OLEDB完整组件）

4. 调整环境变量优先级 #

确保DB2驱动路径在系统PATH中优先级最高：

• 右键此电脑→属性→高级系统设置→环境变量，将C:\PROGRA~1\IBM\SQLLIB\bin移至PATH最顶部
• 检查DB2INSTANCE环境变量值是否为DB2（与实例名一致）
• 打开命令提示符执行db2set -all，确认DB2PATH等变量均指向11.5.5版本的安装路径，无旧版本残留

5. 最简代码测试排除项目干扰 #

编写纯测试VB程序，排除项目其他代码的影响：

Imports System.Data.OleDb

Module Module1
    Sub Main()
        ' 替换为你的实际连接字符串
        Dim connString As String = "Provider=IBMDADB2;Database=YOUR_DB;Hostname=YOUR_HOST;Port=YOUR_PORT;UID=YOUR_USER;PWD=YOUR_PASS;"
        Using conn As New OleDbConnection(connString)
            Try
                conn.Open()
                Console.WriteLine("连接成功")
            Catch ex As Exception
                Console.WriteLine(ex.ToString())
            End Try
        End Using
        Console.ReadLine()
    End Sub
End Module

编译为x64版本运行，若仍报错，说明问题出在驱动与.NET的交互层面，与项目代码无关

6. 调整.NET Framework激活策略 #

在项目的app.config（或web.config）中添加以下配置，避免.NET版本兼容性导致驱动调用失败：

<configuration>
    <startup useLegacyV2RuntimeActivationPolicy="true">
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2"/>
    </startup>
</configuration>

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