ARRANGE this Access coe to vb6

[sal21]

Option Compare Database
Option Explicit

Sub RemoveDuplicates()

  Dim CN As ADODB.Connection
  Dim RST As New ADODB.Recordset
  Dim strTable As String
  
  Set CN = CurrentProject.Connection
  
  strTable = "COMUNI_GEOCODE"
  RST.Open strTable, CN, adOpenKeyset, adLockOptimistic, adCmdTableDirect
  
  Do While Not RST.EOF
    If DCount("*", strTable, "CF=" & Chr(34) & RST!CF & Chr(34)) > 1 Then
      RST.Delete
    End If
    RST.MoveNext
  Loop
  
End Sub

i have tested in vb6 ide but Dcount not exists in vb6

other way are welcome!

 

[Andrzejek]

Select * From
(Select COUNT(CF) As MyCount, CF
From COMUNI_GEOCODE
Group By CF)
Where MyCount > 1

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[sal21]

HI Andy, sorry me, but i need to delete records duplicate not a select.

 

[Andrzejek]

The best way to avoid duplicate records - in my opinion - is to not allow them to happen in the first place. Check before INSERTing a record if such a record already exists.

But if you want to do it the other way, here is one way, and here are another 3 ways

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[strongm]

Were any of the links in the sample provided by Andy useful to you?

The one I've used in the past with success is pretty much [tt]Method 3[/tt] under [tt]Remove Duplicates and Keep Row With Lowest ID[/tt] from the first link. It does rather assume you have a unique ID code column