Lentitud Firebird

[[Lepe]]

Empezado por mjjj

AQUI VAN MAS INGRESOS... LA TABLA TIENE 40 CAMPOS, SOLO PUSE ALGUNO A MODE DE EJEMPLO

¿ 40 campos ? lo típico al ver eso es decirte: Busca por "formas normales" o "normalización de base de dato" en google.

En cuanto al uso de controles db-aware, quizás no sea la mejor alternativa. En principio una transacción debe durar el mínimo tiempo posible, con controles db-aware la transacción empezará (supuestamente) cuando le das a editar, y termina al hacer el post (el usuario puede irse a tomar café mientras deja el registro en edición).

Sin controles ad-aware, se prepara un botón que al hacer clic:
- Empezar transacción
- Enviar un sql con la sentencia de actualización/borrado/inserción
- Finalizar transacción.

Todo ocurre en .... ¿milisegundos?

El problema que veo en este hilo es que se están discutiendo muchos factores al mismo tiempo, y eso puede volver loco a cualquiera. mjjj no te agobies , tomálo con filosofía.

Saludos.

[mjjj]

Ok... me han dado muchas ideas pero nada conciso...

Les cuento algo mas del programa...

Antiguamente guardaba los datos con el componente TIBTable, pero ahi si que iva relamente lento... por sugerencia de otro hilo lo cambie e IBDataset... y mejoro notablemente, pero sigue siendo lento.

Esto se pone lento cuando guardo en cierta tabla... la tabla tiene 40 campos y alrededor de 20 mil registros.

Será que son muchos campos, es decir, envio mucha informacion via internet?

Será bueno utilizar otros Componentes... CUALES?

Utilizo Firebird 2.03, Delphi 2006 y Componentes (Interbase que vienen con Delphi)

POrfavor guienme aer si puedo resolver esto

Gracias

[[Caral]]

Hola
No me hagan mucho caso, ya saben que de estas cosas no se.
Lo que me extraña mucho es:
Dices que guardas en una tabla con 40 campos eso es normal, que la tabla tenga 20 mil registros que importa.
Digo esto por que normalmente se guarda informacion de tres fromas.
1- Editando los campos, esto solo vera afectados a estos, osea una linea en la tabla.
2- Haciendo un cambio (upDate), esto tambien afectara solo a una linea.
3- Insertando un nuevo registro, esto tambien sera lo mismo, una linea.
Entonces lo que se enviara de informacion o se recivira sera una linea del registro de la tabla.
Esto sera lo mismo si se hace con varias tablas a la vez, seran solo unas lineas.
Sigo con la misma idea, para mi es el procedimiento, la sentencia sql, no tanto los componentes, aunque Zeos sea rapido, cuanta informacion estas enviando y reciviendo, esa es la pregunta?.
Esto es solo un comentario.
Saludos

[mjjj]

Gracias Lepe por tu consejo... estuve revisando lo de normalizacion de tablas y creo que puedo sacarle mayor provecho a mis tablas utlizando esas ideas.

Por otra parte... lo de cuanta infomacion estoi enviando un registro que se compone de 40 campos... no se si esto es mucho o no para trabajarlo cliente/servidor, porque si lo hago en forma local me funciona perfecto... casi instantaneo todo.

Les explico algo del programa... este sirve para generar ordenes de compra. Dentro de la base de datos tengo 2 tablas... COMPRAS y DETCOMPRAS.

En la primera se guardan datos como: numero de orden de compra (llave), numero cliente, tipo orden, monto orden, centro costos, etc.

En la segunda (DETCOMPRAS), todo el detalle de items asociados a la orden.

Problemas:
Cuando presiono el boton para generar una nueva orden de compra utilizo el siguiente codigo para saber cual es la ultima orden y generar la nueva orden.
La aplicacion maneja las orden para 2 empresas distintas

Código Delphi [-]
F_NVAOC.ibdataset1.close;
F_NVAOC.ibdataset1.selectsql.clear;
F_NVAOC.ibdataset1.selectsql.add('select noc, empresa from compras');
F_NVAOC.ibdataset1.selectsql.add('where empresa='+quotedstr(empresa));
F_NVAOC.ibdataset1.selectsql.add('order by noc desc');
F_NVAOC.ibdataset1.Open;
noc:=F_NVAOC.ibdataset1.fieldbyname('NOC').asinteger;
F_NVAOC.ibdataset1.append;
F_NVAOC.ibdataset1.fieldbyname('EMPRESA').asstring:=empresa;
F_NVAOC.ibdataset1.fieldbyname('NOC').asinteger:=noc+1;
F_NVAOC.ibdataset1.post;
form1.IBTransaction1.COMMIT;

Esto demora unos 20 segundos mas o menos... esta bien??

Existe otra forma de hacer esto mismo, pero que vaya mas rapido.

Bueno... muchas gracias.... again

[jachguate]

Pregunto nuevamente... ¿cual es la línea de código que demora los 20 segundos?

Eso nos dará una idea mas clara.

Hasta luego.

[mjjj]

hola en hacer el siguiente codigo demora 20 segundos.

Código Delphi [-]
F_NVAOC.ibdataset1.close;F_NVAOC.ibdataset1.selectsql.clear;F_NVAOC.ibdataset1.selectsql.add('select noc, empresa from compras');F_NVAOC.ibdataset1.selectsql.add('where empresa='+quotedstr(empresa));F_NVAOC.ibdataset1.selectsql.add('order by noc desc');F_NVAOC.ibdataset1.Open;noc:=F_NVAOC.ibdataset1.fieldbyname('NOC').asinteger;F_NVAOC.ibdatase  t1.append;F_NVAOC.ibdataset1.fieldbyname('EMPRESA').asstring:=empresa;F_NVAOC.ibdataset1.fieldbyname  ('NOC').asinteger:=noc+1;F_NVAOC.ibdataset1.post;form1.IBTransaction1.COMMIT;

Esta bien eso... o demora mucho??

[Delfino]

Porque no haces uso del componente TIBSQL (o TMDOSQL) y generas por codigo la SQL q se debe mandar, en este caso van a ser dos,

Como ha dicho Caral al tratarse de una linea debe ir rapido..