Question

vb 从excel导入数据到access 删除导入后重复记录

datagrid中已经存在access表数据，然后从excel中导入数据到access表中，再导入判断有无重复值，但是判断时，因为索引值id是自动添加的，所以判断时除了id字段以外其他字段完全一样的记录，并删除，最后把导入且无重复记录的数据库显示在datagriad上
导入数据后access表显示
id a b c e f
1 12 王 11 红 11
2 11 王 12 黄 10
3 12 王 11 红 11
4 12 陈 9 白 11
5 6 陈 8 白 11
6 11 王 12 黄 10
要删除除id以外全都一样的记录，如1，3一样可删除3或1，2，6一样可删除2或6

Answer 1

把Excel数据导入到Access中的表1中，复制表1，粘贴的时候只保留表结构，起名表2
VB里面
insert into 表2 select 字段1,字段2,… from 表1 group by 字段1,字段2,…
这样就把重复的都过滤掉了

再把表2数据显示到Datagrid
adodc1.recordsource = "select * from 表2"
adodc1.refresh

Answer 2

楼上用id判断肯定是错的
最简单的做法是把所有的access导出到excel，然后合并，再把重复项删除（方法很多），再导回access

Answer 3

delete from tbla where id not in(select max(id) from tbla group by a,b,c,d,e,f )