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