在Office365 64位中VBA连接到IBM AS400

Question

以下VBA连接字符串在MS Office 2016 32位中工作正常:

Dim rs As ADODB.Recordset

str_400Connect = "Provider=IBMDA400.DataSource.1;Data Source=" & Trim(aDSN) & ";Initial Catalog=SYS01;User Id=" & Trim(aUID) & ";Password=" & Trim(aPassword) & ";"

Set gConnect_AS400 = New ADODB.Connection
With gConnect_AS400
.ConnectionString = gStr_400Connect
.Open
End With

但是，当我升级到Office365 64位(其他组件保持不变，例如IBM驱动程序等)后，上述连接字符串运行失败并返回错误消息:"无法找到提供程序。可能没有正确安装。">

你知道我可以在64位办公室的连接字符串中使用哪个提供商吗?非常感谢。

Answer 1

您需要为x64平台安装合适的驱动程序。