如何实现数据库的更新??

Question

1
delete from 表2
insert into 表2 select * from 表12 如果表2中有值唯一的字段Field1
insert into 表2 select * from 表1 where field1 not in(select field1 from 表2)

Answer 1

insert into 表2(字段列表) select * from 表1 a inner join 表2 b on a.唯一值=b.唯一值(可以加and 用多字段确定唯一值) where b.唯一值 is null

Answer 2

Dim a As New ADODB.Connection
Dim b As Database
Dim s As New ADODB.Recordset
a.ConnectionString = "driver={sql server};server=sds;uid=sa;pwd=abc;database=carmsg"
a.Open
Set s = a.Execute("select * from att_color")
Set b = OpenDatabase("c:\carmsg.mdb")
b.Execute ("delete from att_color")
b.Execute ("insert into att_color select * from  s ")     ''''出错我该怎么改?

Answer 3

1.用sql server的import或者export。
2.在MDB里建一个链接表，把SQL SERVER里的数据导过来，然后再INSERT.