Eliminacion de duplicados

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

[ecfisa]

Hola sizne.

A ver...
¿ Lo que queres es que se eliminen las apariciones de registros duplicados cuya calificacion sea 'Reprobado' ?

Si es eso bastaría con modificar el código sql así :

DELETE FROM PRUEBA
WHERE IdM NOT IN(
SELECT MAX(IdM) FROM PRUEBA 
GROUP BY CodigoM)
AND CalificacionM = 'Reprob'

Saludos.