Eliminacion de duplicados

[ecfisa]

Hola sizne.

Para eliminar los duplicados en "Tabla2" podés usar:

DELETE FROM Tabla2 a
WHERE Campo_ID > (SELECT MIN(Campo_ID) FROM Tabla2 b
WHERE b.Campo1 = a.Campo1);

Fijate, que en la cláusula WHERE del ejemplo sólo verifico por un campo.
Si queres evaluar por más de un campo tendrías que usar en la cláusula WHERE:

WHERE b.Campo1 = a.Campo1 AND b.Campo2 = a.Campo2 AND ...

Saludos.

[sizne]

Hola ecfisa,
Los datos que puse son solo ejemplos, en si no son cantidades.. (MIN...)
son palabras (siglas de Materias que vuelven a programarse en otra gestion cuando se aplazan, por eso en la Tabla2, se repetiran, cosa que ahi tengo que hacer una limpieza y eliminar SOLO el primer registro duplicado).

Espero me entiendas

Gracias!!!

[ecfisa]

Hola sizne.

Si, te entendí bién la primera vez. Usá el primer ejemplo que te puse y eliminará los duplicados. (por supuesto cambiá los nombres de campo que puse por los tuyos...)

Saludos.

Nota: Borré unos comentarios erroneos en el primer post: "DELETE Campos_Deseados FROM" en su lugar va "DELETE FROM", el error fue por que hice la prueba con SELECT y copie y pegue... perdón.

[sizne]

Hola ecfisa, gracias por responder y explicar tan bien .

Con tu ayuda hice el el siguiente codigo

DELETE FROM BDmaterias
WHERE IdM = (SELECT MIN(IdM) FROM BDmaterias b
WHERE b.CodigoM = CodigoM and CalificacionM='Reprobado')

Hice las pruebas respectivas, y pues solo me elimina todos aquellos que sean reprobados una cada ejecucion, aunque no sean igual de CodigoM....

DELETE FROM BDmaterias a
WHERE IdM > (SELECT MIN(IdM) FROM BDmaterias b
WHERE b.CodigoM = a.CodigoM and a.CalificacionM='Reprobado')

Aqui me aparecio el error de sintaxis cerca de 'a' y cuando lo elimine, pues me lo eliminaba todos los registros pero menos el menor (IdM=1). Por ello opte por el otro, solo q no resulta como deseo...


No sé como hacerlo para salga como quiero, solo eliminar los primeros duplicados y que sean reprobados.

Saludos!

[sizne]

Holas...
Miren estuve haciendo lo siguiente para mi duda... pero me los elimina todos los "reprobados" sin importar que haya o no duplicados

DELETE FROM BDmaterias
WHERE IdM IN
(SELECT IdM
FROM BDmaterias b
WHERE NombreM = b.NombreM and (CodigoM=b.CodigoM)and
(CalificacionM='Reprobado')

...alguien???

[ecfisa]

Hola de nuevo sizne.
Hoy con un poco más de tiempo, revisé a fondo el código anterior, cosa que no hice antes por carecer de él.
Y sí, efectivamente no hace lo que deseas.

Ahora bién, hice una tabla en interbase con los campos involucrados, y la cargué de la siguiente forma:

IdM  CodigoM   CalificacionM
-----------------------------
1    A         R             (abreviando...)
2    A         R
3    B         R
4    C         R
5    B         R             (mal bicho el profe ...)

La consulta la hice con SELECT para visualizar el resultado (si lo borro difícilmente lo vea):

IdM  CodigoM   CalificacionM
-----------------------------
1    A         R
3    B         R

Es decir que si cambiamos SELECT por DELETE , esos registros son los que se eliminarán. Por lo tanto
tenemos nuestro problema solucionado.

En definitiva la consulta queda así:

SELECT * FROM PRUEBA    
WHERE IdM NOT IN(
SELECT MAX(IdM) FROM PRUEBA
GROUP BY CodigoM, CalificacionM)

Fijate que usando MAX(IdM) elimina las primeras apariciones de repetición y usando MIN(IdM), elimina las repeticiones posteriores
Y por supuesto cambiá 'SELECT * FROM' por 'DELETE FROM', al menos si queres que borre...

Saludos.

[sizne]

Hola ecfisa, gracias eh!!!
Cambie unas cositas en el ejemplo

IdM  CodigoM   CalificacionM
-----------------------------
1    A         Reprob             (abreviando...)
2    A         Aprob
3    B         Reprob
4    C         Reprob
5    B         Reprob             (mal bicho el profe ...)

En este caso quiero que solo me de resultado:

IdM  CodigoM   CalificacionM
-----------------------------
2    A         Aprob
4    C         Reprob
5    B         Reprob

Como se vé solo elimina los primeros datos que fueron ingresados, sin importar la calificacionM.
Lo que hice fue lo siguiente en Delphi, funciona pero quiero reducir el codigo y que sea en menor tiempo la ejecucion....y en una sola tabla el recorrido.

Código Delphi [-]
procedure TFKardexM.verificarClick(Sender: TObject);
var i,j:integer;
begin
  i:=0;
  materia.First;
  while i< materia.RecordCount do
    begin
      i:=i+1;
      j:=0;
      materiaT.First;
      while j < materiaT.RecordCount do
      begin
        j:=j+1;
        if (materiaCodigoM.Text  = materiaTCodigoM.Text) then
          begin
            ShowMessage('Son iguales materia '+materiaCodigoM.Text);
            ShowMessage('Son iguales materiaT '+materiaTCodigoM.Text);
            ShowMessage('eliminara en AmateriaT);
            materiaT.Delete;
          end;
      materiaT.Next;
      end;
    materia.Next;
    end;
end;

Aqui estoy usando dos tablas, asi recorro uno por uno y comparo con cada registro de la OTRA tabla.
Pero si fuese solo en una tabla....ya no puedo usar el FIRST,NEXT para comparar....

Saludos...