FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
|
|
|