|
Demora en ir al ultimo registro para hacer insert
Holas a todos.
Tengo una tabla articulos que tiene 59129 registro, pero cuando quiero insertar un nuevo registro me parece que se demora mucha para ir al ultimo registro, solo por probar he puesto 2 TDBedit y 2 TButton (Ingresar, Grabar).
Aca va este codigo:
procedure TForm1.IngresarClick(Sender: TObject);
begin
IBQuery1.Last;
IBQuery1.Insert;
txt_codigo.SetFocus;
end;
procedure TForm1.GrabarClick(Sender: TObject);
begin
IBQuery1.Post;
IBTransaction1.Commit;
end;
Lo que pasa cuando le presiono sobre Button1Click se demora un tiempo de mas o menos 30 seg. para que me ubique el foco en el txt_codigo, y luego ingreso el txt_direccion y cuando le presiono en el segundo boton (Grabar) lo registra muy bien los datos en la base de datos.
Que puede ser para que no se demore mucho
Uso:
IBDatabase1
IBTransaction1
IBQuery1
IBUpdateSQL1
DataSource1
Firebird 1.5
Gracias
|