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

SQL文を使ってデータを更新する

Sub アクションクエリ2()
'SQL文を使ってデータ更新
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 = "update アルバイト set 手当=0;"   'SQL文
  .Execute
End With

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

End Sub

実行前

実行後

Connectionオブジェクトのみでアクションクエリを実行する

Sub アクションクエリ3()
'Connectionオブジェクトのみでアクションクエリを実行
Dim myCon As ADODB.Connection, FileName As String

Set myCon = New ADODB.Connection

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

myCon.Execute "Q_手当更新"  'アクションクエリを実行

myCon.Close: Set myCon = Nothing

End Sub