ADOを使用したレコード追加
ADOを使用したレコードの追加プログラム例を説明します。
プログラム例
Private Sub コマンド0_Click()
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset
RS.Open “T_社員マスタ2013”, CN, adOpenStatic, adLockOptimistic ‘*1
RS.AddNew ‘*2
RS!社員コード = “004” ‘*3
RS!名前 = “たなか”
RS!性別 = “男”
RS.Update ‘*4
RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing
End Sub
プログラムの説明
*1 テーブル「T_社員マスタ2013」を開きます
*2 AddNewを使用して新規のレコードを追加します。
*3 「T_社員マスタ2013」の各フィールドにレコードを追加します。
*4 Updateを使用してテーブルをアップデートします。
レコードの追加には「AddNew」を使用します。
「AddNew」を実施しても、最後に「Update」を行わなければレコードが更新されません。
「AddNew」と「Update」はセットで使用するものと覚えておけば間違いありません。