Question

我有一个可用的Excel 2013解决方案，在Windows 7 Pro上正常运行。它是使用Composite 7.0版ODBC驱动程序连接到Cisco Composite的VBA解决方案。

我在新的笔记本电脑上移动到Windows 10 Pro，并安装了相同的ODBC驱动程序。我已经测试过我可以创建一个USER DSN并通过这个驱动程序连接到Composite ......一切正常。

然而，我启用宏的解决方案现在失败了......但在我的旧笔记本电脑上工作正常。

我正在声明连接字符串如下：

Public Const strProXP As String =＆＃34; Driver = {Cisco Information Server 7.0};服务器= cis.mycompany.net;端口= 9401;域=复合材料;展现dataSource = myds;用户= DS_SERVICE;密码=输入mypassword; validateRemoteHostname = FALSE; connectTimeout = 3000; enableFastExec =假;＆＃34; 公共

这适用于我的旧笔记本电脑。现在，相同的电子表格，相同的驱动程序 - 我在连接时收到此消息：＆＃34;灾难性失败＆＃34;。

Public connCDBP As ADODB.Connection
Public cmdCDBP As ADODB.Command
Public rstCDBP As ADODB.Recordset
Public fldCDBP As ADODB.Field


Public Sub XP_Open_Database()
    Dim errH As cErrHandler
    Dim strConnection As String

    Set errH = New cErrHandler
    On Error GoTo Err_Handler

    strConnection = strProXP

    Set connXP = New ADODB.Connection
    connXP.ConnectionString = strConnection
    connXP.CommandTimeout = 0
    connXP.Open  'Error Here
    Set cmdXP = New ADODB.Command
    cmdXP.ActiveConnection = connXP
    cmdXP.CommandTimeout = 0

Normal_Exit:
    Exit Sub

Err_Handler:
    errH.Action_Error "mdlData", "XP_Open_Database", err, True

End Sub

思科复合材料＆＃34;灾难性故障＆＃34;使用ODBC驱动程序

0 个答案: