dim ssql as string
ssql="update A set A.字段1=(select B.字段1 from B where B.编号=A.编号),A.字段2=(select B.字段2 from B where B.编号=A.编号),......"
currentdb.execute ssql
也可以:
dim ssql as string
'删除A中存在于B表的记录
ssql="delete * from A where 编号 in (select 编号 from B))
currentdb.execute ssql
'插入B表所有记录
ssql="insert into A (*) select * from B"
currentdb.execute ssql