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