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