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