1

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

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

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

我声明连接字符串如下：

Public Const strProXP As String = "Driver={Cisco Information Server 7.0};Server=cis.mycompany.net;Port=9401;Domain=composite;dataSource=myds;user=ds_service;password=mypassword;validateRemoteHostname=false;connectTimeout= 3000；启用快速执行=假；" 上市

这适用于我的旧笔记本电脑。现在，相同的电子表格，相同的驱动程序 - 我在连接时收到此消息：“灾难性故障”。

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
4

0 回答 0