Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Borrar registros duplicados. (https://www.clubdelphi.com/foros/showthread.php?t=4206)

Adrian Murua 06-10-2003 06:03:12

Borrar registros duplicados.
 
Hola Amigos :

Deseo saber como podria borrar los registros duplicados de una tabla en interbase 6.01, que por un error en el codigo Delphi que realice se insertaron dos veces cada uno de los registros.

desde ya muchas gracias.

Kafu 06-10-2003 12:56:23

No se me ocurre una forma de hacerl con sentencia sql.
Desde Delphi es sencillo. Un bucle recorriendo la tabla, recoges en una variable el identificador de registro, que puede ser más de un campo, no lo sé. Saltas un registro y comparas. Mientras sea igual a lo recogido en variable borras. Cuando cambia lo vuelves a recoger en variable, y lo mismo. Si tengo un rato te paso algo de código. Un saludo,

F.T.G.

delphi.com.ar 06-10-2003 17:12:17

En este hilo di una solución para Oracle, no se si te servirá pero te puede dar una idea.

Saludos!

Adrian Murua 07-10-2003 06:28:46

Gracias por la respuesta , la verdad que estuve preguntando y pude solucionarlo de la siguiente manera :

1) Crear una tabla temporal similar a la tabla que contiene los repetidos(i.e. si se llama Cuotas podemos crear Cuotas1.).

2) pasar los registros de la base Cuotas a Cuotas1 (Todos) con algo como :

insert into Cuotas1 select * from Cuotas

3) Borrar todos los datos de la tabla original Cuotas.

Delete from cuotas.

4 ) Insertar los registros no repetidos desde la base auxiliar (Cuotas1) a la base original (Cuotas). con :

insert into Cuotas select Distinct * from Cuotas1.

5) Eliminar la base auxiliar Cuotas1.

Bueno, espero que esto pueda ser util para quien lo necesite.

desde ya muchas gracias.


La franja horaria es GMT +2. Ahora son las 21:55:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi