スポンサーリンク
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.Delete ‘*3
RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing
End Sub
プログラムの説明
*1 テーブル「T_社員マスタ2013」を開きます
*2 Findを使用して削除したいレコードを検索します。
*3 Deleteを使用して検索したレコードを削除します。
レコードの削除は「Delete」を使用します。
「Delete」を使用することでレコードを完全に削除することが出来ます。
また、「Delete」使用時は追加、更新と違い「Update」は使用しません。
削除したいレコードが複数ある場合は「Filter」を使用して「Do~Loop文」で回せば複数のレコードを削除することも出来ます。
スポンサーリンク
スポンサーリンク