CREATE TABLE table_name
(
表列名 数据类型 [ NULL | NOT NULL ] [ PRIMARY KEY | UNIQUE ]
[ FOREIGN KEY [ (cloumn_name) ] BEFERENCES ref_table [(ref_column) ]
列名二 数据类型 ...
..... ......
)
例子:
CREATE TABLE 客户表  ← 建立一个名称为“客户表”的表
(
  ID int Identity  ← 创建字段名为"ID"的自动编号的整数类型
  数字 int  ← 建一字段名为“客户编号”, 数据类型为整数
  字符串 char(10)  ← 数据类型为10个字符
  字符串2 varchar(50)  ← 数据类型为可变动的大小的字符，最多为50个字节
  备忘录 memo  ← 备注类型,可存约6000字节   
)
详细例子:6

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
收起5

---

删除语法
DROP TABLE table_name

---

修改表的内容:
ALTER TABLE 表 {ADD ADD{COLUMN 字段类型 [ (字长)] [NOT NULL] [CONSTRAINT 索引 ] |
ALTER COLUMN 字段类型 [(字长)] |
CONSTRAINT 多重字段索引 } |
DROP DROP{COLUMN 字段 I CONSTRAINT 索引名 } }
Alter Table 示例:6

此示例在员工表中增加 Money 数据类型的一个工资字段。

Sub AlterTableX1()
    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
    Set dbs = OpenDatabase("Northwind.mdb")
    ' 对运费超过 $100 的订单，
    '添加工资字段至员工表中，
    '并且设置为 Currency 数据类型。

    dbs.Execute "ALTER TABLE Employees " _
        & "ADD COLUMN Salary CURRENCY;"
	   dbs.Close
End Sub


'此示例把工资字段的数据类型从 Money 改为 Char。

Sub AlterTableX2()
    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    '添加工资字段至员工表中，

    '并且设置为 Currency 数据类型。

    dbs.Execute "ALTER TABLE Employees " _
        & "ALTER COLUMN Salary CHAR(20);"
    dbs.Close
End Sub


此示例从员工表中删除工资字段。

Sub AlterTableX3()
    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    '从员工表中删除工资字段。

    dbs.Execute "ALTER TABLE Employees " _
        & "DROP COLUMN Salary;"
    dbs.Close
End Sub


此示例在订单表中增加一个外部键。
这个外部键是基于员工编号字段和引用至员工的表中的员工编号字段。
在此示例中，不必把 EmployeeID 字段列在 REFERENCES 子句中的 Employees table 后面，
因为 EmployeeID 是 Employees table 的主键。

SubSub()
    Dim dbs As Database
    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")
    ' 对运费超过 $100 的订单，

    '在订单表中添加外部键。
    dbs.Execute "ALTER TABLE Orders " _
        & "ADD CONSTRAINT OrdersRelationship " _
        & "FOREIGN KEY (EmployeeID) " _
        & "REFERENCES Employees (EmployeeID);"
   dbs.Close
End Sub


此示例从订单表中删除外部键。

Sub AlterTableX3()
    Dim dbs As Database

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    ' 从订单表中清除OrdersRelationship外部键

    dbs.Execute "ALTER TABLE Orders " _

        & "DROP CONSTRAINT OrdersRelationship;"

    dbs.Close

End Sub