怎样快速删除数据库记录中完全相同的资料?

[cgh6697067]

比如一个表内有的记录是重复的(完全一样),我只要保留一条
有什么块速的方法?
我是ACCESS

[xmduane]

你可以全部查询出来,然后从第二条开始删除.

[badboy168]

如果你的表是记录号的话你可以这样的方法

delete * from table where

[Tiger_Zhao]

最佳方案：预防为主，给表建立一个唯一主键，这样根本无法添加重复记录。

方案二：
SELECT DISTINCT * INTO b FROM a;
删除表 a
更改表 b 的名称为 a

[jilate]

楼上的方案二可行，支持

[Free_Windy]

用SELECT DISTINCT * from table
取出记录集,
然后,delete*from table
再将取出的不重复的数据集存入表中.

[cgh6697067]

删除表 a
更改表 b 的名称为 a
------------------------
这不行，我要在软件初始化时做，每次让用户做这怎么行呢？

[cgh6697067]

没法建主键，我的字段特别，没有唯一性，强加一个不好控制，改动量大

[frankwong]

可以创建一个"自增"字段,

[qq341341]

为了好管理,最好是建一个主键, 那怕是不用显示的"自增"型字段

[vbman2003]

可以用楼上的思路
比如有数据库A，表tb,字段：id、iName、iCode

　　Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim p, t As String
Dim StrConnect As String
Dim Sql As String
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & App.Path & "\A.mdb;Persist " _
& "Security Info=False;Jet OLEDB:Database Password=abc"
Set Conn = New ADODB.Connection
Conn.Open StrConnect
'表中不重复数据的记录集
Sql = "Select Distinct * from tb "
Set rs = New ADODB.Recordset
rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
'删除表中信息
Sql = "delete * from tb"
Conn.Execute Sql
'向表中添加不重复的记录
While Not rs.EOF
Debug.Print rs!id & "/" & rs!iName & "/" & rs!iCode
Sql = "INSERT INTO tb " & _
"(id,iName,iCode) VALUES " & _
"('" & rs!id & "','" & rs!iName & "','" & rs!iCode & "')"
Conn.Execute Sql
rs.MoveNext
Wend
rs.Close
Conn.Close