如题,有三个独立的Access数据库,数据结构相同,内容不同,如字段均为:
A.mdb ,结构:ID,Name,sex
B.mdb ,结构:ID,Name,sex
C.mdb ,结构:ID,Name,sex
问题如下:
1.====
A、B、C的内容不同,现要从B中找出A中已有的重复数据,并将找出的相同数据保存至C.mdb,用VB如何实现;
2、====
将1步骤找出的重复数据从B中删除;
3、====
将删除重复数据后的B.mdb追加至A.MDB
以上如何实现,VB6.0,谢谢!
急!
请Email至:(因上网不便)
[email protected]
A.mdb ,结构:ID,Name,sex
B.mdb ,结构:ID,Name,sex
C.mdb ,结构:ID,Name,sex
问题如下:
1.====
A、B、C的内容不同,现要从B中找出A中已有的重复数据,并将找出的相同数据保存至C.mdb,用VB如何实现;
2、====
将1步骤找出的重复数据从B中删除;
3、====
将删除重复数据后的B.mdb追加至A.MDB
以上如何实现,VB6.0,谢谢!
急!
请Email至:(因上网不便)
[email protected]
解决方案 »
- DataList与list之间的数据交换
- 在线等待:控制日志文件的大小
- 急等,俺是菜鸟请教代码问题,代码看不懂帮忙解决!解决就加分
- 请问有没有批量改文件名的软件
- ToolBar的buttonmenus没有Checked的。郁闷
- 怎样才能随时把日期和时间动态加入到数据库中。
- 急!大家快来帮帮我啊!我要血本无归了!求求你们了
- 我现在很富有了,我要向大家问一个问题:在哪找到RM文件的结构资料啊!!!!!!!!
- 請教:如何使用ADO控件對兩個表進行查詢,把結果顯示在Datagrid控件中;
- 请问VB可以实现类似netxray的功能吗?如何实现?哪里有这样的源代码?
- 请教一下vbp文件如何看,一个字符是什么意思,请教一下
- 自定义控件不能调用控件本身的属性或方法
不过效率就不谈了
SELECT id,name,sex
from tableB
where exists (select * from tableA where tableA.id = tableB.id)
cn.CursorLocation = adUseClientcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/B.mdb"'先将库 A 的表导入 B,以便查询
cn.Execute "select * into tmp from t in '" & App.Path & "\A.mdb'"cn.Execute "insert into t in '" & App.Path & "\C.mdb' select t.id, t.name, t.sex from t,tmp where t.id=tmp.id and t.name=tmp.name and t.sex=tmp.sex"cn.Execute "delete from t where id in (select id from t in '" & App.Path & "\C.mdb')"cn.Execute "insert into t in '" & App.Path & "\A.mdb' select * from t"cn.Close
Set cn = Nothing
1.====
A、B、C的内容不同,现要从B中找出A中已有的重复数据,并将找出的相同数据保存至C.mdb,用VB如何实现;
insert into [;database=D:\C.mdb].tt (id,name,sex)
select a.ID,a.name,a.sex
from tt as a
inner join [;database=D:\B.mdb].tt as b on a.id=b.id and a.name=b.name and a.sex=b.sex
2、====
将1步骤找出的重复数据从B中删除;
delete * from tt
where ID & name & sex in (select ID & name & sex from [;database=D:\A.mdb].tt)
or
delete a.* from [;database=D:\b.mdb].tt a inner join [;database=D:\A.mdb].tt b
on a.ID=b.id and a.name=b.name and a.sex=b.sex3、====
将删除重复数据后的B.mdb追加至A.MDBinsert into [;database=D:\a.mdb].tt (id,name,sex)
select id,name,sex
from [;database=D:\B.mdb].tt