データベースのテーブルからレコードを削除するにはDeleteメソッドを使用します。


レコードセット変数.Delete
					

Deleteメソッドを使用する場合、Openメソッドでレコードセットを作成する際に引数としてadLockOptimisticを指定して更新用にレコードセットを作成する必要があります。

以下の例では社員名簿テーブルよりOpenメソッドにより更新用にレコードセットを作成して、Deleteメソッドにより新規にレコードを作成し氏名が"武田太郎"であるレコードを削除し、Closeメソッドで閉じています。


Sub Sample()
   
    Dim rs As New ADODB.Recordset

    rs.Open "社員名簿", CurrentProject.Connection, , adLockOptimistic
    
    Do Until rs.EOF
        
        If rs!氏名 = "武田太郎" Then
        
            rs.Delete
        
        End If
        
        rs.MoveNext
        
    Loop

    rs.Close

End Sub