レコードの追加・削除を行う

新規レコードを追加する

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.AddNew

'新規レコードのフィールド値を指定
myRS!アルバイトID = 12
myRS!氏名 = "鈴木 一郎"
myRS!年齢 = 18
myRS!時給 = 1800
myRS!所属 = "ホール"
myRS!勤務時間 = 18
myRS!手当 = 18000

'フィールド値を保存
myRS.Update

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

End Sub

構文新規レコードを追加する
Recordset オブジェクト.AddNew

「アルバイト」テーブル

実行結果

AddNewメソッドで新規レコードを追加すると、カレントレコードは新規追加されたレコードへと移動する。
そして、カレントレコード(新規レコード)に対して、各フィールドの値を指定し、Updateメソッドで変更を保存する。

「オートナンバー型」のフィールド値は、指定しなくてもよい。
「アルバイト」テーブルの「アルバイトID」は数値型なので指定している。