求Excel VBA通过SSL端口连接Linux平台IBM DB2的连接字符串

首先要明确：IBMDADB2（OLE DB驱动）对SSL参数的支持和JDBC存在差异，JKS是JDBC专属的证书存储格式，OLE DB驱动通常仅支持PKCS#12（.p12/.pfx）格式，这是你之前连接失败的核心原因之一。另外你的原连接字符串存在格式错误，比如Hostname= xxxx后缺少分号，Pwd字段若有密码不能留空。

下面是两种可行的解决方法：

方法一：转换JKS为PKCS#12格式后修改连接字符串 #

1. 用Java的keytool命令将JKS转换为PKCS#12格式，执行命令：

   keytool -importkeystore -srckeystore C:/Temp/xxx.jks -srcstoretype JKS -destkeystore C:/Temp/xxx.p12 -deststoretype PKCS12
   

   执行时需输入JKS的密码，并设置PKCS#12的新密码。

2. 在VBA中使用修正后的连接字符串：

   Dim dbConn As Object
   Set dbConn = CreateObject("ADODB.Connection")
   
   Dim connString As String
   connString = "Provider=IBMDADB2;" & _
                "Database=xxx;" & _
                "Hostname=xxx;" & _
                "Protocol=TCPIP;" & _
                "Port=25020;" & _
                "UID=xxx;" & _
                "Pwd=你的数据库密码;" & _
                "sslConnection=true;" & _
                "sslTrustStoreLocation=C:/Temp/xxx.p12;" & _
                "sslTrustStorePassword=你的PKCS12密码;"
   
   On Error Resume Next
   dbConn.Open connString
   If Err.Number <> 0 Then
       MsgBox "连接失败：" & Err.Description
       Exit Sub
   End If
   On Error GoTo 0
   
   ' 后续数据操作...
   dbConn.Close
   Set dbConn = Nothing
   

方法二：通过DB2客户端配置文件简化连接 #

若不想转换证书格式，可通过配置DB2客户端的db2dsdriver.cfg文件管理SSL参数，VBA连接字符串会更简洁：

1. 在DB2客户端配置目录（通常为C:\ProgramData\IBM\DB2\你的客户端版本\cfg）下创建或修改db2dsdriver.cfg，添加以下内容：

   <configuration>
     <databases>
       <database name="xxx" host="xxx" port="25020">
         <parameter name="sslConnection" value="true"/>
         <parameter name="sslTrustStoreLocation" value="C:/Temp/xxx.jks"/>
         <parameter name="sslTrustStorePassword" value="你的JKS密码"/>
         <parameter name="sslTrustStoreType" value="JKS"/>
       </database>
     </databases>
   </configuration>
   

   这里显式指定sslTrustStoreType为JKS，部分新版本DB2 OLE DB驱动支持该参数。

2. VBA中使用简化的连接字符串：

   Dim dbConn As Object
   Set dbConn = CreateObject("ADODB.Connection")
   Dim connString As String
   connString = "Provider=IBMDADB2;Database=xxx;Hostname=xxx;Port=25020;UID=xxx;Pwd=你的数据库密码;"
   dbConn.Open connString
   

额外检查项 #

• 确认Linux服务器的25020端口对外开放，本地可通过telnet测试连通性
• 确保DB2客户端驱动版本与服务器版本兼容，建议使用IBM Data Server Client 11.5及以上版本
• 验证证书有效性：JKS中必须导入DB2服务器的根证书或自签名证书，避免证书不信任错误
• 捕获连接错误信息：通过VBA错误处理获取具体失败原因，比如参数错误、证书问题等

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