[VBA]簡単！ExcelからAccessのアクションクエリを実行する方法 (ADO)

2008/05/23

Excel VBA側でのコード

Sub macro1()
    
    Dim myProvider As String
    Dim mySrc As String
    
    mySrc = "Data Source=C:￥～￥アクセスのファイル名.mdb;"
    myProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
    
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    cn.Open myProvider & mySrc
    
    rs.Open "Q_del", cn
 
    rs.Open "Q_add", cn

    Set rs = Nothing
    cn.Close
    Set cn = Nothing
     
End Sub

カテゴリ: VBA Excel Access