CREATE INDEX 语句示例 (DAO)

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