有为仁兄 这样告诉我:
sql="ALTER TABLE 表名 ADD COLUMN 字段名 字段属性(如:text(20))"
但是我不知道具体怎么用,那位高手能帮我啊 !!!!
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind '的路径。 Set dbs = OpenDatabase("Northwind.mdb")
'添加工资字段至员工表中, '并且设置为 Currency 数据类型。 dbs.Execute "ALTER TABLE Employees " _ & "ADD COLUMN Salary CURRENCY;"
dbs.Close
End Sub
此示例从员工表中删除工资字段。
Sub AlterTableX2()
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind '的路径。 Set dbs = OpenDatabase("Northwind.mdb")
'从员工表中删除工资字段。 dbs.Execute "ALTER TABLE Employees " _ & "DROP COLUMN Salary;"
dbs.Close
End Sub
此示例在订单表中增加一外部键。这个外部键是基于员工编号字段和引用至员工的表中的员工编号字段。此示例中,在 REFERENCES 子句中并没有列出员工表的员工编号字段,这是因为员工编号为员工表的主键。
Sub AlterTableX3()
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb")
'在订单表中添加外部键。 dbs.Execute "ALTER TABLE Orders " _ & "ADD CONSTRAINT OrdersRelationship " _ & "FOREIGN KEY (EmployeeID) " _ & "REFERENCES Employees (EmployeeID);"
dbs.Close
End Sub
此示例从订单表中删除外部键。
SubSub()
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb")
'由订单表中删除 OrdersRelationship 外部键。 dbs.Execute "ALTER TABLE Orders " _ & "DROP CONSTRAINT OrdersRelationship;"
dbs.Close
End Sub
ALTER TABLE table {ADD {COLUMN field type[(size)] [NOT NULL] [CONSTRAINT index] | CONSTRAINT multifieldindex} | DROP {COLUMN field I CONSTRAINT indexname} }
ALTER TABLE 语句分为以下几个部分:
部分 说明 table 欲修改的表之名称。 field 欲在表内增加或删除的字段的名称。 type 字段的数据类型。 size 字段的字符长度 (仅文本字段及二进制字段)。 index 字段索引。关于如何构造字段索引的详细信息,请参阅 CONSTRAINT 子句主题。 multifieldindex 欲增加至表 中的多重字段索引的定义。关于如何构造此子句的详细信息,请参阅 CONSTRAINT 子句主题。 indexname 欲删除的多重字段索引的名称。