CREATE TABLE ステートメント、CONSTRAINT 句の使用例

次の例では、2 つのテキスト型 (Text) フィールドを持つ ThisTable という新規テーブルを作成します。

Sub CreateTableX1()

    Dim dbs As Database

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 2 つのテキスト型 (Text) フィールドを持つテーブルを作成します。

    dbs.Execute "CREATE TABLE ThisTable " _

        & "(FirstName CHAR, LastName CHAR);"

    dbs.Close

End Sub

次の例では、2 つのテキスト型 (Text) と 1 つの日付/時刻型 (Date/Time) のフィールドを持つ MyTable という新規テーブルを作成し、それらの 3 つのフィールドから成る一意なインデックスを作成します。

Sub CreateTableX2()

    Dim dbs As Database

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 3 つのフィールドを持つテーブルを作成し、それらの 3 つの

    ' フィールドから成る一意なインデックスを作成します。

    dbs.Execute "CREATE TABLE MyTable " _

        & "(FirstName CHAR, LastName CHAR, " _

        & "DateOfBirth DATETIME, " _

        & "CONSTRAINT MyTableConstraint UNIQUE " _

        & "(FirstName, LastName, DateOfBirth));"

    dbs.Close

End Sub

次の例では、2 つのテキスト型 (Text) フィールドと 1 つの整数型 (Integer) フィールドを持つ新規テーブルを作成します。SSN フィールドを主キーにします。

Sub CreateTableX3()

    Dim dbs As Database

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 3 つのフィールドと主キーを持つテーブルを

    ' 作成します。

    dbs.Execute "CREATE TABLE NewTable " _

        & "(FirstName CHAR, LastName CHAR, " _

        & "SSN INTEGER CONSTRAINT MyFieldConstraint " _

        & "PRIMARY KEY);"

    dbs.Close

End Sub