Herramienta para saber registros duplicados en DBF? SOLUCION

[Andrés González]

Alguien sabe como o si existe alguna herramienta que me diga si una dbf existen registros duplicados. Por fallo en una rutina, se han generado registros duplicados en una dbf durante una serie de meses. Ahora no se me ocurre una manera fácil de saber si una base de datos de aproximadamente 60000 registros tiene registros duplicados. Es una base de datos de unos 5 campos (usuario, tipo, fecha, comentario, administrador). Si los cinco campos coinciden están duplicados, pero creo que tendría que hacer 60000x60000 comparaciones. Alguna forma mas facil?

[karinha]

http://ultradownloads.com.br/download/DBF-Viewer-2000/

[FranciscoA]

Hola Andrés.
Se me ocurre esta pequeña función. Pruébala y me dices. (por lo menos no recorrerá 60000x60000

Code: Select all  Expand view

Function Duplicados()
local cDupl,aDupl:={}

SET DELETED ON

dbselectarea("clientes")
ordsetfocus("nombclte")    //nombre+ciudad
dbgotop()
While !eof()
   cDupl := Upper(field->nombre) + Upper(field->ciudad)
   dbskip()
   if Upper(field->nombre) + Upper(field->ciudad) == cDupl
      aadd(aDupl,cDupl)
   endif
Enddo
xbrowse(aDupl,"duplicados")
Return nil
 

Saludos.

[acuellar]

Crear una base nueva con la misma estructura indexada por los 5 campos
Grabar los registro cuando no exista, solo pasara por 60000

Saludos,

Adhemar

[jrestojeda]

Hola...
Probá abrir la DBF con alguna herramienta que se banque sentencias SQL o MySql y lo solucionás con un simple query.

Code: Select all  Expand view

SELECT *,COUNT(*) FROM TUTABLA GROUP BY  USUARIO, TIPO, FECHA, COMENTARIO , ADMINISTRADOR

En este query aquellos resultados que en la ultima columna muestren un número mayor que 1 serán los suplicados.

Code: Select all  Expand view

SELECT *,COUNT(*) FROM TUTABLA GROUP BY  USUARIO, TIPO, FECHA, COMENTARIO , ADMINISTRADOR HAVING COUNT(*) > 1

En este segundo query sólo mostrará los repetidos.

Espero te sirva la idea...
Saludos,

[wilsongamboa]

estimado

use tabla new exclusive
index on usuario + tipo + dtos(fecha) + comentario + administrador to i_01 unique

copy to otratabla
dbcloseall()

use otratabla //aca estaran los que no estan dulicados
browse()


saludos


Wilson

[Andrés González]

Gracias a TODOS, han sido muy buenas las respuestas y aunque llevo años con las DBF ignoraba el tema de reindexar con UNIQUE, siempre se aprende algo. SOLUCIONADO .

Soluciones previas que hice. Cristal Reports y tabla de referencia cruzada entre usuario y fecha mas tipo. Pero indudablemente hay que borrar a mano. Finalmente la reindexacion me ha ido bien, gracias.