DROP 语句示例

下列示例假设在 Northwind 数据库中的员工表上存在一个假设的 NewIndex 索引。

此示例从员工表中删除 MyIndex 索引。

Sub DropX1()

    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，

    ' 从员工表中删除 NewIndex。

    dbs.Execute "DROP INDEX NewIndex ON Employees;"

    dbs.Close

End Sub

此示例从数据库中删除员工表。

Sub DropX2()

    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，

    ' 删除员工表。

    dbs.Execute "DROP TABLE Employees;"

    dbs.Close

End Sub