Eliminar Registros Duplicados ?

[Jvilomar]

Hola el asunto es que tengo una tabla con datos para normalizarla y necesito eliminar ciertos registros duplicados para poder realizar una relacion con otra tabla. El problema es que son demasiados registro y me gustaria saber si alguien tiene alguna idea de como hacerlo de golpe. Gracias..

[jachguate]

Los registros son identicos, o son "duplicados" solo en los campos que te interesa establecer como llave??

Si es asi, cual es la diferencia de los otros campos cual de ellos te interesa conservar??

[Jvilomar]

Hola Juan......

Mira esta es la Estructura Mas o menos de lo que quiero hacer

Tabla1
c1,C2,C3 donde c1 y c2 son mis campos claves

C1 C2 C3
1 1 a
1 2 b
1 3 c
2 4 d
2 5 e

Entonces solo me gustaria quedarme en este caso con solo dos registros
1 y 2 del campo c1.....

[guillotmarc]

Hola.

Puedes hacer un pequeño programa en Delphi, que recorra la tabla (ordenada por C1), de forma que elimine todos los registros con el mismo código.

procedure Limpiar;
var Codigo: integer;
begin
  qryTabla.Open;
  Codigo := -1;
  while not qryTabla.eof do begin
    if qryTabla.FieldValues['C1'] = Codigo then begin
      qryTabla.Delete;
    end
    else begin
      Codigo := qryTabla.FieldValues['C1']
    end
    qryTabla.Next;
  end;
  qryTabla.Close;
end;

NOTA : También puedes hacerlo igual, en un procedimiento almacenado de Interbase/Firebird utilizando la construcción for select

Saludos.

[Jvilomar]

Gracias .... Pero utilize el codigo que me has facilitado y no pasa nada.... incluso lo conecte con un grid y cuando ejecuto el procedimiento parece como si estuviera leyendo la tabla pero no pasa nada.....

Todos los registros aun siguen ahi....

yo tenia ese mismo problema con unos registros en SQLServer y encontre un Scrip que me permitio solucionar el problema...pero parece que el Standar de Interbase no lo soporta... aqui esta el codigo a ver si me das una manita.

delete from a
from cust_tran a join
(select cust_id, max(tran_date) max_tran_date from cust_tran
group by cust_id
having count(*) > 1) b
on a.cust_id = b.cust_id and a.tran_date < b.max_tran_date

Gracias por Todo

[guillotmarc]

Hola.

El código que te pasé es muy sencillo. El problema puede estar en algo específico de los componentes que utilizes. ¿ Por ejemplo, si tus componentes utilizan una transacción, la confirmas al final ?.

Esta consulta es dificil de adaptar a Interbase/Firebird. En es fácil hacerlo mediante una construcción for select .... do en un procedimiento almacenado. Puedes consultar el manual de Interbase/Firebird para consultar la sintaxis exacta de esta construcción.

Saludos.