怎样实现不删除Acess表中的原有记录而将Excell表中的记录导入Acess

[jiangshan1203]

各位：我写了一段程序，要实现不删除Acess表中的原有记录而将Excell表中的记录导入Acess，但是执行下面代码,总是提示“表S_Equip已经存在”，我在set语句行之后加入“dbs.Execute "DROP TABLE S_Equip;"”就好了，但是S_Equip中原来的数据就没有了，请问该怎么办呢？
Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
dbs.Execute "SELECT * INTO S_Equip FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "
dbs.Close
Set dbs = Nothing

[fraser01]

那你最好需要用VB编程来解决，使用2个ADO来解决，插入数据是没问题的。

[liulinhai]

dbs.Execute "INSERT INTO S_Equip SELECT * FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "

[tmj]

樓主你可以分兩步來做:
1 數據插入 S_Equip1

2 把 S_Equip1 和 S_Equip1 合并

不知這樣你能接受不。

[jiangshan1203]

谢谢指点。