标题: 问题：一个VBA中的ADO或DAO操作问题，急等！ [打印本页] 作者: aresaran 时间: 2003-8-12 07:19 标题: 问题：一个VBA中的ADO或DAO操作问题，急等！ 将c:/data1.mdb的数据库中的表table1中的所有字段按照条件[table1].[日期]>#1999-1-22#插入到数据库d:/data2.mdb中的表table2中；
两个数据库结构完全一样。
这个程序要用vba写在d:/data2.mdb这个数据库中，即完成导入功能。
用Ado或者DAO都成，本人菜鸟都不会用，代码只写一半，希望高手帮我实现。
----------------------------------------------------------------
Sub InsertIntoX()
Dim dbsOut As Database
Dim dbsIn As Database
Dim tdfOut As TableDef
Dim tdfIn As TableDef
Set dbsOut = OpenDatabase(c:/data1.mdb)
Set dbsIn = OpenDatabase(d:/data2.mdb)
......
......Execute " Insert Into [table2] Select * From [table1] Where ([table1].[日期]>#1999-1-22#) ;"
..........
dbsIn.Close
dbsOut.Close
End Sub
---------------------------------