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

新規レコードを配列で指定して追加する

Sub レコード追加2()
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.Update Array(0, 1, 2, 3, 4, 5, 6), Array(13, "鈴木 次郎", 16, 1600, "配列", 16, 16000)

'新規レコード追加
myRS.AddNew
'変更フィールドをフィールド名で指定
myRS.Update Array("アルバイトID", "氏名", "年齢", "時給", "所属", "勤務時間", "手当"), _
            Array(14, "鈴木 三郎", 15, 1500, "配列その2", 15, 1500)

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

End Sub

構文配列を使用して新規レコードを追加する
Recordset オブジェクト.AddNew Fields, Values

「アルバイト」テーブル

実行結果