CREATE INDEX ステートメントの使用例

次の例では、Employees テーブルの Home Phone および Extension フィールドにインデックスを設定します。

Sub CreateIndexX1()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Employees テーブルに

    ' インデックス NewIndex を作成します。

    dbs.Execute "CREATE INDEX NewIndex ON Employees " _

        & "(HomePhone, Extension);"

    dbs.Close

End Sub

次の例では、CustomerID フィールドを使用して、Customers テーブルにインデックスを設定します。複数のレコードの CustomerID フィールドに同じ値を持たせることはできません。また、このフィールドには Null 値は設定できません。

Sub CreateIndexX2()

    Dim dbs As Database

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' CustomerID フィールドに CustID という

    ' 一意なインデックスを作成します。

    dbs.Execute "CREATE UNIQUE INDEX CustID " _

        & "ON Customers (CustomerID) " _

        & "WITH DISALLOW NULL;"

    dbs.Close

End Sub