Buenas tardes colegas.
Estoy diseñando un sistema hospitalario en Delphi7 con base de datos SQL Server 2012.
Sucede que siempre he utilizado el botón eliminar con este código con poco registros:
Código Delphi
[-]
if MessageDlg('¿Desea Eliminar este registro?',mtError, [mbyes, mbno], 0) = mryes then
begin
adotabla.Delete;
adotabla.Refresh;
ShowMessage('Registro Eliminado!');
end
Hoy terminé de cargar una data de 7000 registros a una tabla y al comenzar a probar los botones de nuevo, editar, guardar y eliminar, me dí cuenta que cuando le dí a eliminar duró un aproximado de 7 segundos para eliminarlo.
Yo estoy utilizando los componentes ado para conectarme.
Luego probé el boton eliminar de esta manera y se eliminó al instante.
Código Delphi
[-]
if MessageDlg('¿Desea Eliminar este registro?',mtError, [mbyes, mbno], 0) = mryes then
begin
adotabla.Delete;
adotabla.close;
adotabla.open;
ShowMessage('Registro Eliminado!');
end
En este sentido requiero de sus conocimientos para que me expliquen la razón de esto y si es posible me orienten sobre la mejor manera de eliminar un registro.
Nota: La tabla tiene indices en cada uno de los campos ya que se realiza una busqueda avanzada por cada campo de la tabla.
Saludos.