Hola a todos.
Tengo el siguiente problema:
Estoy intentando borrar de una base de datos todos los registros duplicados con el siguiente codigo:
//borrar duplicados.
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
begin
AdoQuery2.Prior;
AdoQuery2.Edit;
While not AdoQuery2.Eof DO begin
P1:= AdoQuery2.FieldByName('Referencia').AsString;
AdoQuery2.Next;
while P1= AdoQuery2.FieldByName('Referencia').AsString do begin
AdoQuery2.DeleteRecords( arCurrent);
AdoQuery2.Next;
end;
end;
end;
Pero cuando lo ejecuto me da el siguiente error:
Informacion de la columna clave insuficiente o incorrecta, demasiadas filas para la actualizacion;
¿Alguien me puede hechar una mano?.
¿Se podria hacer de otra forma?
Saludos...