想要从旧表中某些数据导入到新表中 怎么做

wadehuan

比如我旧表有字段id　姓名　年龄　　记录一共有１００条　　新表有字段id　年龄　现在我想把１００条记录里的id和年龄全部导入到新表　如何写代码呢？？

Dim dbs As Database, rstA1 As Recordset, rstA2 As Recordset

Set dbs = CurrentDb

Set rstA1 = dbs.OpenRecordset("SELECT ＊FROM 新表 ）

Set rstA2 = dbs.OpenRecordset("Select * from 旧表)

rstA1.MoveFirst

rstA2.MoveFirst

Do While Not rstA1.EOF

If rstA1("id") ＜＞ rstA2("id") Then

rstA１.Edit

rstA１("id") = rstA2("id")

rstA2.Update

rstA1.MoveNext



End If

  Loop

  

End Sub

GORYUNGBBS

做一个查询不是更简单。何必写代码？

secowu

要导入后还要删除原来的？