アクセスWindows XPモードのADO（ADDE形式）

Question

私のアプリケーションでADOに問題があります。 Win7Proを使用しているコンピュータにAccessがインストールされていますが、そこには両方のバージョン（ACCDBとACCDE）を使用できます。しかし、ACCDBのみWinXPMode環境で実行時に（SP1で）動作します。

ありコードACCDEで

Dim strSQL As String, Cnxn As ADODB.Connection, Rsxn As ADODB.Recordset 
Dim lngDummy As Long 
lngCount = DCount("[Sklad]", "cisSklad", "[Zobrazit]") 
CountData = lngCount 
If CountData = 0 Then Exit Sub 
ReDim ItemValues(lngCount - 1) 
Set Cnxn = CurrentProject.AccessConnection 
Set Rsxn = New ADODB.Recordset 
... 

（XPMode上のランタイム下）です： =行の設定Cnxnメッセージエラー13返しCurrentProject.AccessConnection：型の不一致を。

私はADO 2.8を参照しています。

Debug.Print CurrentProject.AccessConnection：Provider = Microsoft.Access.OLEDB.10.0;セキュリティ情報を維持する= False;データソース= C：\ Work \ SkladII \ Sklad.accde;ユーザー= Admin;データプロバイダ= Microsoft sklad.accdeで.ACE.OLEDB.12.0

すべてのテーブルには、あなたがどんな考えを持っていますか、どこに問題がある

をリンクされていますか？

Answer 1

この問題がWinXPModeのADOの初期バインディングに限定されているかどうかを調べます。 ADOの参照を削除し、レイトバインディングを使用するようにコードを修正します。

Dim strSQL As String, Cnxn As Object, Rsxn As Object 
Set Cnxn = CurrentProject.Connection 
'Set Rsxn = New ADODB.Recordset 
Set Rsxn = CreateObject("ADODB.Recordset")