SqlServer/其它数据库
access删除重复记录的快速方法-多字段
2013-09-10 15:56:05
文件类型 :
文件版本 :
简要说明 :
1、删除重复信息的依据——是根据表内四个字段中的内容都相同；
2、删除的方法：第一种方法直接用生成新表3的方式；
第二种先取有重复的信息，然后在原表上进行删除。
Dim strSQL As String
strSQL = "Delete 表2.id, 表2.usr_code, 表2.usr_name, 表2.team_code, 表2.ins_code"
strSQL = strSQL & " FROM 表2 "
strSQL = strSQL & " WHERE (((表2.id) Not In (select min(id) from 查询7 group by id)))"
DoCmd.RunSQL strSQL