在access中添加字段并设置新字段的值。

[xxlzg]

两个表sk,fk
sk的字段：序号、日期1、编号，主键是编号
fk的字段：序号、日期2、编号，编号参照表sk的字段编号。
现在要修改表sk的主键为日期1+编号
在表fk中添加一个日期型字段日期3，日期3对应表sk中与编号字段对应的日期1（也就是说新字段日期3等于表sk中与编号字段对应的日期1的值）。
使用vb+access，请问在vb中如何实现。

[贝隆]

http://download.csdn.net/source/1498324
http://download.csdn.net/source/1644211

[xxlzg]

谢谢，原来update还可以这样用。

那么如何用vb修改sk的主键呢，由 编号 改为 编号+日期1
因为表fk的字段 编号 是参照表sk中的 编号 的，那么首先要取消表fk中字段 编号 的参照呢？

[xxlzg]

还是不行啊，我想知道怎样用vb实现。
主要是如何设置新增字段的值。
在fk中添加一个字段
alter table fk add 日期3 date（这句可以执行）
下面设置新字段的值就不行了。
update fk set 日期3=(select sk.日期1 from sk,fk where sk.编号=fk.编号）
还有如何把sk的主键由编号改为编号+日期1呢？

[vbman2003]

access Try:
update fk,sk
set fk.日期3=sk.日期1
where sk.编号=fk.编号）

[vbman2003]

or
update fk inner join sk
set fk.日期3=sk.日期1
on sk.编号=fk.编号）

[golden8510]

[Quote=引用楼主 xxlzg 的回复:]
两个表sk,fk
sk的字段：序号、日期1、编号，主键是编号
fk的字段：序号、日期2、编号，编号参照表sk的字段编号。
现在要修改表sk的主键为日期1+编号
在表fk中添加一个日期型字段日期3，日期3对应表sk中与编号字段对应的日期1（也就是说新字段日期3等于表sk中与编号字段对应的日期1的值）。
使用vb+access，请问在vb中如何实现。
[/Quote]
根據編號，
查詢日期1，
再把日期1賦給表fk字段日期3;

Dim sql As String
sql = "update fk set 日期3='" & Date3 & "'where 編號='" & 編號 & "'"

[ltpao]

引用Microsoft ADO Ext. 2.X for DDL and Security（Common Files\System\ado\msadox.dll），可以进行表和索引修改