CREATE TABLE 语句 CONSTRAINT 子句示例 (DAO)

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