CREATE TABLE 語句，CONSTRAINT 子句示例 (DAO)

CREATE TABLE 語句，CONSTRAINT 子句示例

此示例使用兩個(gè)文本字段來創(chuàng)建一個(gè)名為“ThisTable”的添加表。

Sub CreateTableX1()

   Dim dbs As Database

   ' 在您的計(jì)算機(jī)中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運(yùn)費(fèi)超過 $100 的訂單，

' 使用兩個(gè)文本字段來創(chuàng)建表。

   dbs.Execute "CREATE TABLE ThisTable " _

       & "(FirstName TEXT, LastName TEXT);"

   dbs.Close

End Sub

此示例使用兩個(gè)文本字段、日期／時(shí)間字段、及唯一索引來創(chuàng)建名為“MyTable”的添加表 。

Sub CreateTableX2()

   Dim dbs As Database

   ' 在您的計(jì)算機(jī)中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運(yùn)費(fèi)超過 $100 的訂單，

   ' 創(chuàng)建使用三字段的表和唯一的

   ' 索引組成這所有的三個(gè)字段。

   dbs.Execute "CREATE TABLE MyTable " _

       & "(FirstName TEXT, LastName TEXT, " _

       & "DateOfBirth DATETIME, " _

       & "CONSTRAINT MyTableConstraint UNIQUE " _

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

   dbs.Close

End Sub

此示例使用兩個(gè)文本字段和一個(gè)整型字段來創(chuàng)建新的表。SSN 字段是主鍵。

Sub CreateTableX3()

   Dim dbs As Database

   ' 在您的計(jì)算機(jī)中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運(yùn)費(fèi)超過 $100 的訂單，

   ' 創(chuàng)建使用三字段的表和唯一的

   ' 鍵.

   dbs.Execute "CREATE TABLE NewTable " _

       & "(FirstName TEXT, LastName TEXT, " _

       & "SSN INTEGER CONSTRAINT MyFieldConstraint " _

       & "PRIMARY KEY);"

   dbs.Close

End Sub