レコードの変更を行う

レコードの内容を変更する

Sub レコード内容変更1()
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!時給 = 1500
myRS!所属 = "ホール"
myRS!勤務時間 = 15
myRS!手当 = 15000

'変更を保存
myRS.Update

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

End Sub

フィールドの値を変更する別の書式

Sub レコード内容変更3()
'別の値変更書式
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 ("時給"), 2000
myRS.Update (4), "フィールド"
myRS.Update ("勤務時間"), 200
myRS.Update (6), 20000

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

End Sub

任意のフィールドの値を変更する
Recordset オブジェクト!フィールド名 = 値

任意のフィールドの変更を保存する
Recordset オブジェクト.Update

「アルバイト」テーブル

実行結果