VBA连接字符串到IBM AS400在Office365 64位

发布于 2025-02-09 18:06:47 字数 562 浏览 4 评论 0原文

以下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位办公室的连接字符串中使用哪个提供商？非常感谢。

原文

The following VBA connection string works fine in MS Office 2016 32-bit:

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

However, after I have upgraded to Office365 64-bit, (other components remain unchanged, e.g. IBM drivers etc), the above connection string is failed to run and return the error message:
"Provider cannot be found. it may not be properly installed."

Do you know what provider can I use in the connection string for 64bit office? Thank you very much.

分享到QQ

分享到微博