DROP 语句示例 (DAO)

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