データベース操作(DAO)

Access VBA DAOを使用したレコード追加

DAOを使用したレコード追加

DAOを使用したレコードの追加プログラム例を説明します。

プログラム例

Private Sub コマンド0_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset(“T_社員マスタ2013”, dbOpenDynaset)     ‘*1

RS.AddNew                                ‘*2

RS!社員コード = “004”               ‘*3
RS!名前 = “たなか”
RS!性別 = “男”

RS.Update                                 ‘*4

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

End Sub

プログラムの説明

*1 テーブル「T_社員マスタ2013」を開きます

*2 AddNewを使用して新規のレコードを追加します。

*3 「T_社員マスタ2013」の各フィールドにレコードを追加します。

*4 Updateを使用してテーブルをアップデートします。

ADOと同様に「AddNew」と「Update」を使用しレコードの追加を行います。
「Update」を書き忘れるとデータは更新されませんので注意が必要です。