Eliminar Registros Duplicados ?

[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.

[Jvilomar]

Hola Marc....Gracias por ayudarme.....

con la instruccion For Select.... do
se me ha ocurrido una idea (excusenme pero es que no soy muy diestro aun en este asunto de Interbase) a ver si me ayudas...

para poder eliminar los registros sobrantes podria ejecutar un SP para ir eliminandolos uno por uno hasta que la coleccion de registro sea solo uno dandole como parametro el mismo codigo
asi el algoritmo seria:

para la seleccion campo1,campo2 desde miTabla
donde campo1 = :Parametro
dentro :Campo1,:Campo2
Hacer
Comienza
Elimina desde miTabla
donde Campo1 = :Campo1 y Campo2 = :Campo2
Finaliza

Ahora el punto es crear un procedimiento para llamar los registros por grupos repetidos e ir eliminandolos hasta que solo quede uno en la Tabla... luego seguir con el siguiente grupo y asi suceviamente......se que suena un poco raro.... pero esa es la idea...

[guillotmarc]

Hola.

Tiene alguna clave primaria tu tabla. Si me indicas cual es la clave primaria, te ayudo con el procedimiento almacenado para solventar el problema.

Saludos.

[Jvilomar]

OK Marc....

La Tabla tiene como clave primaria el par Campo1 : Campo2;

Asi :

Campo 1 Campo 2
1 1
1 2
1 3
2 4
2 5
n... n.....

y asi suceviamente.... y me interesa...para terminar de aclarar que la tabla quede asi

Campo 1 Campo 2
1 1
2 4
n.. n..

Gracias de Ante manos marc

[guillotmarc]

Hola.

Entonces haz un procedimiento almacenado de este estilo (es una traducción casi exacta del código Delphi del primer ejemplo) :

GRUPO = -1;
for select CAMPO1, CAMPO2 
     from TABLA 
     into :CAMPO1, :CAMPO2 do begin

  if (:CAMPO1 = :GRUPO) then begin
    delete from TABLA where CAMPO1 = :CAMPO1 and CAMPO2 = :CAMPO2;
  end
  else begin
    GRUPO = CAMPO1;
  end
end

Como puedes ver, tienes que declarar 3 variables : CAMPO1, CAMPO2 y GRUPO.

Te recomiendo IB-Expert para crear y ejecutar el procedimiento almacenado, así como para Administrar Firebird en general.

http://www.hksoftware.net/download/i...3.1.1_full.exe

Saludos.

[Jvilomar]

Hola Marc.... Esto va casi marchando... estoy muy agradecido de tu ayuda al igual que la de juan... me siento muy conforme con todo lo que ustedes han hecho.... pero tengo una ultima pregunta....

Inicializando la Variable Grupo a -1 y luego haciendo la comparacion a la hora de borrar el registro no estoy viendo ningun tipo de control que detenga la eliminacion cuando solo quede un registro del primer grupo ( 1 1) y salte al siguiente grupo para comenzar a eliminar los registros hasta que solo quede uno de ese grupo (2 3) y asi sucevimante.... creo que esa es la unica parte que faltaria por definir ya que gracias a ti tengo la idea clara....

Por otra parte pareceria que es facil para mi buscar una respuesta pero es que ya llevo 10 horas seguidas aqui sentado y mi cerebro esta completamente atontado.... de todos modos muchas gracias por todo...

Amigo.......

PD: yo utilizo Interbase WorkBench para administrar Interbase y ya descargue el IB-Xpress para probarlo..gracias otra vez..por todo....

[jachguate]

No se si esto funcionará en ib/fb, pero en oracle si que lo haria...

Delete [from] tabla t1
 where exists (select 1
                      from tabla t2
                     where t2.campo1 = t1.campo1
                         and t2.campo2 != (select min(campo2)
                                                     from tabla t3
                                                    where t3.campo1 = t1.campo1));

claro... no des commit hasta que estes seguro que ha trabajado bien.

Hasta luego.