FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
bloqueo
Cuando abro el programa, los IbDatabase no están conectadas, las Transacciones y las Ibtables no están activas y como he dicho las abro cuando las necesito y las cierro cuando cierro el formulario que las abrió.
la cierro cuando cierro el formulario indica que si hay cambios en la tabla permanecen abiertas? la transaccion se compromete por cada cambio o solo cuando se cierra la forma ? la transaccion, el commit , rollback es iniciada/ejecutada por el programa? podria ampliar mas la informacion de como son las consultas ? que tipo de componentes se conecta a la base de datos? |
#2
|
|||
|
|||
Los componentes que uso son TIbDatabase, TIbTransaction, TIbTable, TDatasurce, todos están incluidos en un TDatamodule, en dicho TDatamodule tengo dos TibDatabases y a cada uno su TIbTransaction y unas 20 TIbTables con sus 20 TDatasources enlazadas a su TibDatabase correspondiente.
IbTransaction está configurado en su Transation Editor de la siguiente manera: Código:
Read_commited Rec Version Nowait y tengo marcado en propiedades el Read Commited. Al abrir un formulario cualquiera de los muchos que tengo hago lo siguiente en OnShow: Código:
dat.datamodule1.IbDatabase1.Conected=true; dat.datamodule2.IbDAtabase2.Conected=true; dat.datamodule1.TibTransaction1.Active=true; dat.datamodule2.TibTransaction2.Active=true; dat.datamodule1.IbTable1.Active=true; ... dat.datamodule1.Ibtable4.Active=true; Código:
dat.datamodule1.TIbTransation1.Commit; dat.datamodule1.TibTranssation2.commit; dat.datamodule1.IbTable1.Active=false; ... dat.datamodule1.Ibtable4.Active=false; dat.datamodule1.IbDatabase1.Conected=false; dat.datamodule1.IbDatabase1.Conected=false; dat.datamodule1.TibTransaction1.Active=false; dat.datamodule1.TibTransaction2.Active=false; Código:
begin try dat.datamodule1.IbTable1.Append; dat.datamodule1.IbTable1.Fields[0].AsString:=edit1.text; ... dat.datamodule.IbTable1.Fields[20].AsString:=Edit20.text; dat.datamodule.IbTabl11.post; Except dat.Datamodule.IbTransaction1.CommitRetaining; Ahora bien, el programa lo tengo en el PC1, y también en el PC2, PC1 hace de servidor donde tengo los datos, el PC2 está con conectado al PC1 mediente el protocolo de conexión Ip, y tengo acceso a la base de datos del PC1 perfectamente. Si trabajo sólo con el Pc1 todo funciona bien, grabo sin problemas, Si trabajo sólo con el Pc2 todo funciona también bien, grabo, modifico sin problemas y me salgo del programa sin problemas, igual que con el Pc1. Pero si abro el programa con los dos Pc's, a la vez puedo entrar bien, ver informes sin problemas, pero a la hora de modificar o dar de alta un registro o borrar se queda pillado y bloqueado sin posibilidad de avanzar, la idea es de poder modificar en ambos Pc's, que grabara y cerrara la aplicación sin bloquearse o quedar pillado. Sería de gran ayuda ver en qué puedo fallar, Gracias |
#3
|
||||
|
||||
Parece que solo haces Commit de la transacción si falla.
Deberías utilizar un bloque try..finally. La diferencia es que el bloque FINALLY siempre se ejecuta (se ejecuta si el bloque TRY finaliza correctamente o falla). El bloque EXCEPT solo se ejecuta si falla. Si este es el caso, no estarás "cerrando" la transacción hasta que cierres el formulario, que a su vez hace commit y cierra tablas y base de datos. Código:
begin try dat.datamodule1.IbTable1.Append; dat.datamodule1.IbTable1.Fields[0].AsString:=edit1.text; ... dat.datamodule.IbTable1.Fields[20].AsString:=Edit20.text; dat.datamodule.IbTabl11.Post; finally {Except} dat.Datamodule.IbTransaction1.CommitRetaining; |
#4
|
|||
|
|||
Perdón ha sido un error de sintaxis,
Utilizaba Finally en vez de Except. Parece ser que está bien la extructura, tendrá que ser en algún otro detalle, tengo dos Ibdatabase y dos Transacciones y a cada una unas 20 tablas con 40 campos cada tabla, y todo está en un datamodule, aunque están todas cerradas, se supone que el programa se queda liberado puede cerrar fácilmente y no quedarse bloqueado cuando está abierto dos o más veces el programa, pero quizás internamente algo abre que no controlo y se queda pillado de alguna forma. Gracias, |
#5
|
||||
|
||||
Pero no hagas eso, sólo copia tu código
|
#6
|
|||
|
|||
Este sería el código
Los componentes que uso son TIbDatabase, TIbTransaction, TIbTable, TDatasurce, todos están incluidos en un TDatamodule, en dicho TDatamodule tengo dos TibDatabases y a cada uno su TIbTransaction y unas 20 TIbTables con sus 20 TDatasources enlazadas a su TibDatabase correspondiente. IbTransaction está configurado en su Transation Editor de la siguiente manera: Código:
Read_commited Rec Version Nowait En un principio siempre TibDatabase no está conectado, TibTransaction y TibTAble no están activos. Al abrir un formulario cualquiera de los muchos que tengo hago lo siguiente en OnShow: Código:
dat.datamodule1.IbDatabase1.Conected=true; dat.datamodule2.IbDAtabase2.Conected=true; dat.datamodule1.TibTransaction1.Active=true; dat.datamodule2.TibTransaction2.Active=true; dat.datamodule1.IbTable1.Active=true; ... dat.datamodule1.Ibtable4.Active=true; Código:
dat.datamodule1.TIbTransation1.Commit; dat.datamodule1.TibTranssation2.commit; dat.datamodule1.IbTable1.Active=false; ... dat.datamodule1.Ibtable4.Active=false; dat.datamodule1.IbDatabase1.Conected=false; dat.datamodule1.IbDatabase1.Conected=false; dat.datamodule1.TibTransaction1.Active=false; dat.datamodule1.TibTransaction2.Active=false; Bien ahora en el manejo de grabar registro a registro con el Boton Grabar hago lo siguiente: Código:
begin try dat.datamodule1.IbTable1.Append; dat.datamodule1.IbTable1.Fields[0].AsString:=edit1.text; ... dat.datamodule.IbTable1.Fields[20].AsString:=Edit20.text; dat.datamodule.IbTable1.post; Finally dat.Datamodule.IbTransaction1.CommitRetaining; Ahora bien, el programa lo tengo en el PC1, y también en el PC2, PC1 hace de servidor donde tengo los datos, el PC2 está con conectado al PC1 mediente el protocolo de conexión Ip, y tengo acceso a la base de datos del PC1 perfectamente. Si trabajo sólo con el Pc1 todo funciona bien, grabo sin problemas, Si trabajo sólo con el Pc2 todo funciona también bien, grabo, modifico sin problemas y me salgo del programa sin problemas, igual que con el Pc1. Pero si abro el programa con los dos Pc's, a la vez puedo entrar bien, ver informes sin problemas, pero a la hora de modificar o dar de alta un registro o borrar se queda pillado y bloqueado sin posibilidad de avanzar, la idea es de poder modificar en ambos Pc's, que grabara y cerrara la aplicación sin bloquearse o quedar pillado. Sería de gran ayuda ver en qué puedo fallar, Gracias |
#7
|
||||
|
||||
Para descartar el tema de transacciones haz la siguiente prueba:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
redimensionar varias veces un array | Manuel | Varios | 13 | 14-07-2014 04:49:40 |
Mi busca si lo hace varias veces | Paulao | Varios | 0 | 05-07-2011 17:15:43 |
llamar varias veces un formulario | Lizette | Varios | 3 | 05-11-2008 16:28:10 |
Imprimir un registro varias veces | Vlady | Impresión | 1 | 29-08-2008 08:04:14 |
Imprimir algo varias veces. | aoiTo | Impresión | 0 | 20-07-2004 19:12:49 |
|