Consultas IBQuery

[erickahr]

Hola a todos y gracias de antemano, tengo una tabla de firebird de la cual debo eliminar una gran cantidad de registros (+ de 1000,000 ), la cosa es que la eliminacion me va muy lenta, quisiera saber si hay una forma mas rapida de hacerlo o como me recomiendan relizar la eliminacion, mi codigo esta algo asi:

select * from remision where fecha <= :xFecha;



luego de filtrar hago la eliminacion mediante un



while not EOF do
begin
delete;
next;
end;




funciona todo bien pero lo he dejado correr mas de 3 horas y no termina... segun mis calculos elimina 1000 registros en aproximadamente una hora ...
ojala me puedan ayudar...