CREATE TABLE 语句，CONSTRAINT 子句示例

此示例使用两个文本字段来创建一个名为“ThisTable”的添加表。

Sub CreateTableX1()

    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

' 使用两个文本字段来创建表。

    dbs.Execute "CREATE TABLE ThisTable " _

        & "(FirstName TEXT, LastName TEXT);"

    dbs.Close

End Sub

此示例使用两个文本字段、日期／时间字段、及唯一索引来创建名为“MyTable”的添加表 。

Sub CreateTableX2()

    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    ' 创建使用三字段的表和唯一的

    ' 索引组成这所有的三个字段。

    dbs.Execute "CREATE TABLE MyTable " _

        & "(FirstName TEXT, LastName TEXT, " _

        & "DateOfBirth DATETIME, " _

        & "CONSTRAINT MyTableConstraint UNIQUE " _

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

    dbs.Close

End Sub

此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。

Sub CreateTableX3()

    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    ' 创建使用三字段的表和唯一的

    ' 键.

    dbs.Execute "CREATE TABLE NewTable " _

        & "(FirstName TEXT, LastName TEXT, " _

        & "SSN INTEGER CONSTRAINT MyFieldConstraint " _

        & "PRIMARY KEY);"

    dbs.Close

End Sub