用dao如何给表加主键?
解决方案 »
- 难 SQL 谁解决 谁是高手
- 请教下"添加树型过程"?
- asp服务器端编写exe文件,只有服务器运行了exe文件,客户机才能访问asp页面。这个exe用vb应该怎么写?
- 高分求解-簡單數學問韙
- 如何在菜单子菜单前加上图标????????
- 請問如何用 VB 把圖片輸出到 Excel 文檔中(急﹐參與有分)
- 关于picturebox控件的问题?
- 用ARP -A是不是可以读出来对方非同一网段的MAC IP呢 不经过路由
- 如何将.txt文件以html格式输出??
- 求教vb开发dcom客户端与服务器端配置问题?
- MSHFlexgrid与text组合修改表内容后如何写回数据库?知道的一定告诉我,当场给红包!!!!
- 菜鸟问题(如何定义DataReporte的数据源)在线等待,加急
(
id numeric(10,0) not null,
name varchar(16),
age numeric(2,0),
primary key(id)
)
CONSTRAINT multifieldindex} |
DROP {COLUMN field I CONSTRAINT indexname} }ALTER TABLE 语句分为以下几个部分:部分 说明
table 欲修改的表之名称。
field 欲在表内增加或删除的字段的名称。
type 字段的数据类型。
size 字段的字符长度 (仅文本字段及二进制字段)。
index 字段索引。关于如何构造字段索引的详细信息,请参阅 CONSTRAINT 子句主题。
multifieldindex 欲增加至表 中的多重字段索引的定义。关于如何构造此子句的详细信息,请参阅 CONSTRAINT 子句主题。
indexname 欲删除的多重字段索引的名称。
说明使用 ALTER TABLE 语句,可用多种不同方法更改当前已存在的表:?使用 ADD COLUMN 在表中添加新的字段。需要指定字段名、数据类型、还可以 (对文本和二进制字段)指定长度。 例如,下列语句在员工表中增加一 25 个字符的、名为 Notes 的文本字段:ALTER TABLE Employees ADD COLUMN Notes TEXT(25)也可以定义此字段的索引。关于单一字段索引的详细信息,请参阅CONSTRAINT 子句主题。如果对一字段指定 NOT NULL,则在这字段中添加的新记录必须有有效的数据。?使用 ADD CONSTRAINT 添加多重字段索引。关于多重字段索引的详细信息,请参阅 CONSTRAINT 子句主题。
?使用 DROP COLUMN 删除字段。只要指定欲删除的字段名即可。
?使用 DROP CONSTRAINT 删除多重字段索引。只要在 CONSTRAINT 保留字后面指定索引名即可。注意?不能同时添加或删除一个以上的字段或索引。
?可以使用 CREATE INDEX 语句添加单一或多重字段索引至一表,也可以用 ALTER TABLE 或 DROP语句来删除用 ALTER TABLE 或 CREATE INDEX 创建的索引。
?可以在单一字段上使用 NOT NULL,或在名为 CONSTRAINT 的子句中使用 NOT NULL,这个名为 CONSTRAINT 的子句应用于单一字段或名为 CONSTRAINT
的多重字段。不管怎样,只能在一字段上使用 NOT NULL 一次,否则将发生执行时的错误。
'的路径。
Set dbs = OpenDatabase("Northwind.mdb") '添加工资字段至员工表中,
'并且设置为 Currency 数据类型。
dbs.Execute "ALTER TABLE Employees " _
& "ADD COLUMN Salary CURRENCY;" dbs.CloseEnd Sub此示例从员工表中删除工资字段。Sub AlterTableX2() Dim dbs As Database '在您的计算机中修改此行使其正确指到 Northwind
'的路径。
Set dbs = OpenDatabase("Northwind.mdb") '从员工表中删除工资字段。
dbs.Execute "ALTER TABLE Employees " _
& "DROP COLUMN Salary;" dbs.CloseEnd 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.CloseEnd Sub此示例从订单表中删除外部键。SubSub() Dim dbs As Database '在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb") '由订单表中删除 OrdersRelationship 外部键。
dbs.Execute "ALTER TABLE Orders " _
& "DROP CONSTRAINT OrdersRelationship;" dbs.CloseEnd Sub
不管DAO,还是ADO,都是用SQL语言~~~