一个关于删除重复记录的问题
时 间:2010-07-23 00:00:00
作 者:红尘如烟 ID:10768 城市:成都
摘 要:一个关于删除物料表中重复记录的问题
正 文:
问题:物料表中存在重复记录,现在要求删除掉多余的重复记录,每个物料编码只保存一条记录,要如何处理?
解答:如果重复记录所有字段的值都相同的情况下,直接用查询从物料表中取排除重复记录的数据,然后将其生成一个新表“物料表_新表”:
Select DISTINCT * INTO 物料表_新表 FROM 物料表;
运行此查询后删除原来的“物料表”,将“物料表_新表”重命名为“物料表”即可。
如果不能确定除物料编码之外的字段值是否也相同,则就不能用查询的方法,而需要用到记录集来处理了,以下是DAO方式的处理代码,ADO和这个也差不多:
- Dim rst As DAO.Recordset
- Dim strTemp As String
- Set rst=CurrentDb.OpenRecordset("Select * FROM 物料表 orDER BY 物料编码")
- If rst.RecordCount>0 Then
- rst.MoveFirst
- strTemp=rst!物料编码
- rst.MoveNext
- Do Until rst.EOF
- If rst!物料编码=strTemp Then
- rst.Delete
- Else
- strTemp=rst!物料编码
- End If
- rst.MoveNext
- Loop
- End If
- rst.Close
- Set rst=Nothing
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)