DELETE ステートメントの使用例

次の例では、役職が Trainee である社員のレコードをすべて削除します。FROM 句にテーブルが 1 つしかない場合は、DELETE ステートメントでテーブル名を指定する必要はありません。

Sub DeleteX()

    Dim dbs As Database, rst As Recordset

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 役職が Trainee である社員のレコードを削除します。

    dbs.Execute "DELETE * FROM " _

        & "Employees WHERE Title = 'Trainee';"

    dbs.Close

End Sub