レコードの変更を行う

保存前に変更をキャンセルする

Sub レコード内容変更4()
'保存前に変更をキャンセルする
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!勤務時間 = 45
myRS!手当 = 5000

'変更をキャンセル
myRS.CancelUpdate

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

End Sub

変更をキャンセルする
Recordset オブジェクト.CancelUpdate