1

Windows 7 Proで正常に動作するExcel 2013ソリューションがあります。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;enableFastExec=false;" 公衆

これは私の古いラップトップで動作しています。さて、同じスプレッドシート、同じドライバー - 接続時に次のメッセージが表示されます:「壊滅的な障害」。

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