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

次の例では、Northwind データベースの Employees テーブルに NewIndex というインデックスが既に設定されていると仮定しています。

次の例では、Employees テーブルからインデックス MyIndex を削除します。

Sub DropX1()

    Dim dbs As Database

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Employees テーブルから

    ' NewIndex インデックスを削除します。

    dbs.Execute "DROP INDEX NewIndex ON Employees;"

    dbs.Close

End Sub

次の例では、データベースから Employees テーブルを削除します。

Sub DropX2()

    Dim dbs As Database

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Employees を削除します。

    dbs.Execute "DROP TABLE Employees;"

    dbs.Close

End Sub