レコードの変更を行う

変更内容を配列で指定して保存

Sub レコード内容変更5()
'変更内容を配列で指定して保存
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String, i As Integer

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "アルバイト", myCon, adOpenDynamic, adLockPessimistic

'変更フィールドをフィールド番号で指定
myRS.Update Array(3, 4, 5, 6), Array(3000, "配列", 30, 3000)
myRS.MoveNext
'変更フィールドをフィールド名で指定
myRS.Update Array("時給", "所属", "勤務時間", "手当"), Array(3000, "配列その2", 30, 3000)

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

配列を使用してレコードの値を変更する
Recordset オブジェクト.Update Fields, Values

「アルバイト」テーブル

実行結果