Office中国论坛/Access中国论坛

标题: 想要从旧表中某些数据导入到新表中　怎么做 [打印本页]

作者: wadehuan 时间: 2005-8-20 00:53
标题: 想要从旧表中某些数据导入到新表中　怎么做
比如我旧表有字段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 时间: 2005-8-20 01:25
做一个查询不是更简单。何必写代码？

作者: secowu 时间: 2005-8-20 21:18
要导入后还要删除原来的？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)