我有两个access 2000的数据库分别是 new_db.mdb , old_db.mdb,它们里面都有相同的一个表 clients ,new_db.mdb是从一个大型的ERP里导出的,我现在就是想从new_db.mdb里选出old_db.mdb里没有的新记录再添加到old_db.mdb的clients 数据表里。请指教。
解决方案 »
- vb 如何把list.box所有文件的文件名和路径地输进listview控件中
- vb中变量i%和i写法有什么区别,为什么很多用i%,i$等等加特殊符定义变量呢,直接用不是更可观吗?
- vb中想要从窗体中对数据库进行增删,查询等,何解?
- 如何将recordset中的内容导出到电子表格中去?(最好给几行代码)
- 生成一个com+的oracle连接数据库后,在客户端电脑上还要装oracle才能连数据库吗?
- 急救!类型转换问题
- 怎樣創建標準的Form
- adopenkeyset , adlockoptmistic时find 的应用
- 不用第三方控件,没有数据库,vb6,打印出表格及内容怎样实现?
- 尋找一個叫balloonman的人.你在哪裡,你家里人很想你!快回來吧!
- 安装水晶报表9的朋友请进
- 清除combo控件的问题
insert into [old_db.mdb].clients
select * from clients
where id not in (select id from [old_db.mdb].clients)
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接 adoCN.CursorLocation = adUseClient
adoCN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\new_db.mdb;Persist Security Info=False"
adoCN.Execute ("insert into [D:\old_db.mdb].clients select * from clients where id not in (select id from [D:\old_db.mdb].clients)")
adoCN.Close
Set adoCN = Nothing
End Sub