Access2003以前では参照設定は必要ない。
Access2007 では、Microsoft ActiveX Data Objects X.X Library への参照設定が必要

下記、プログラム中のプロバイダー部分も、Prv_Jet40 から Prv_ACE120 に変更し、次のように定数を宣言
Public Const Prv_ACE120 As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

-------------------------------------------------------------

Public Const Prv_Jet40 As String = "Provider=Microsoft.Jet.OLEDB.4.0;"

Sub Test1()
    Dim strDataSource As String
    Dim strProvider As String
    Dim strPath As String
    Dim strDB As String
    
    Dim cn As New ADODB.Connection
'    -------------------
'    Dim cn As ADODB.Connection
'    Set cn = New ADODB.Connection
'    -------------------
    
    strPath = CurrentProject.Path
    ChDrive strPath
    ChDir strPath
    
    strDB = "test.mdb"
    
    strDataSource = "Data Source=" & strDB
    strProvider = Prv_Jet40 & strDataSource

    With CN
        .ConnectionString = strProvider
        .Open
    End With
'    -------------------
'    CN.Open  strProvider
'    -------------------    
    
    
    CN.Close
    Set CN = Nothing
End Sub

-------------------------------------------------------------

カレントデータベースの場合

Sub Test2()
    Dim CN As ADODB.Connection
    Set CN = CurrentProject.Connection
        
    
    Set CN = Nothing
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ