DROP 語句示例 (DAO)

DROP 語句示例

下列示例假設在 Northwind 數(shù)據(jù)庫中的員工表上存在一個假設的 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

此示例從數(shù)據(jù)庫中刪除員工表。

Sub DropX2()

   Dim dbs As Database

   ' 在您的計算機中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運費超過 $100 的訂單，

   ' 刪除員工表。

   dbs.Execute "DROP TABLE Employees;"

   dbs.Close

End Sub