データベース操作(ADO)

Access VBA ADOを使用したレコード更新

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.Find “名前= ‘たなか'”                                                                ‘*2

RS!性別 = “女”                                                                              ‘*3

RS.Update                                                                                      ‘*4

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

プログラムの説明

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

*2 Findを使用して更新したいレコードを検索します。

*3 検索したレコードの性別フィールドを編集します。

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

レコードの更新はデータを完全に書き換えるものです。
「Find」で検索したデータの一部を書き換え、最後に「Update」を行います。
「Update」を実施しない限りはレコードが更新されませんので注意しましょう。