CREATE INDEX 语句示例

此示例在员工表中创建家用电话字段的索引并且扩展员工表。

Sub CreateIndexX1()

   Dim dbs As Database

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

   Set dbs = OpenDatabase("Northwind.mdb")

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

   '在员工表中创建 NewIndex 索引。

   dbs.Execute "CREATE INDEX NewIndex ON Employees " _

       & "(HomePhone, Extension);"

   dbs.Close

End Sub

此示例在客户表中使用 CustomerID 字段创建索引。任何二笔记录的 CustomerID 字段不能有相同的数据，并且 Null 值是不被允许的。

Sub CreateIndexX2()

   Dim dbs As Database

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

   Set dbs = OpenDatabase("Northwind.mdb")

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

   ' 在 CustomerID 字段中创建单一的索引 CustID。

   '

   dbs.Execute "CREATE UNIQUE INDEX CustID " _

       & "ON Customers (CustomerID) " _

       & "WITH DISALLOW NULL;"

   dbs.Close

End Sub