ADOを使って接続し、クエリを実行する

ADOを使って接続し、クエリを実行する

Sub アクションクエリ1()
Dim myCon As ADODB.Connection, myCmd As ADODB.Command, FileName As String

Set myCon = New ADODB.Connection
Set myCmd = New ADODB.Command

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

With myCmd
  .ActiveConnection = myCon
  .CommandText = "Q_手当更新"   'アクションクエリを指定
  .Execute                      'クエリを実行
End With

Set myCmd = Nothing
myCon.Close: Set myCon = Nothing

End Sub

使用するクエリ

実行前

実行後