Hay alguna forma de cerrar el Database en diseño

[[David]]

Hola

Cuando programo en un datamodule , muchas veces al guardar me olvido de desconectar el DataBase , hay alguna forma de decirle a Delphi que no te deje guardar los cambios o que antes de guardar te avise que el database esta cerrado .

Un saludo

[lacovera]

pero para que quieres guardarlo cerrado??
en ejecución antes de abrirlo, compruebas si está cerrado y luego lo abres, no?

[AFilth]

No hay forma que yo conozca, pero al iniciar tu aplicación puedes cerrarlo y luego abrirlo con los parámetros que necesite para "simular el comportamiento que pides".

[[Lepe]]

Yo uso GExperts con BDS2006 y si. Incluye una opción para cerrar antes de compilar, los objetos que tú le indiques.

Si le dices que a un objeto "TDatabase" le ponga su propiedad "Active" a "False" pues Gexperts, como buen amigo, te lo hace con los ojos cerrados, de hecho aparece un mensaje en el área de notificación de errores de compilación que informa qué componentes "ha tocado".

Lo que no sé si esto puede hacerlo en versiones anteriores de delphi o solo en BDS.

Saludos

[[David]]

Yo uso principalmente Delphi 6 y 7 , que es donde me interesaria controlarlo .

El caso es que a veces hay errores si me lo dejo abierto , no sé exactamente por que , por que la parte de la aplicación que me toca a mí desarrollar , es otra .

Pero si seria muy interesante que Delphi tuviera alguna opción para controlar este detalle . Principalmente estoy con interbase y lo que quiero que quede cerrado es el TIBDataBase.

Saludos

[lacovera]

Prueba con alguna opcion tipo ifTIBDataBase.active then TIBDataBase.close;
y luego TIBDataBase.open;

no se si la llevará, yo lo hago con adoQuery y resto por el estilo y me funciona bien.

[roman]

Empezado por Lepe

Yo uso GExperts con BDS2006 y si. Incluye una opción para cerrar antes de compilar, los objetos que tú le indiques.

[...]

Lo que no sé si esto puede hacerlo en versiones anteriores de delphi o solo en BDS.

En Delphi 7 no veo esa opción de los GExperts, pero quizá es que no la encuentro. ¿Cómo se llama?

Por otra parte, en respuesta a lacovera, en mi opinión es muy conveniente dejar cerradas las conexiones en el diseño y abrirlas hasta la ejecución, lo cuál no es equivalente a la opción que propones. El problema es que si dejas abierta una conexión en el diseño, la VCL intentará abrirla antes de que tengas ninguna oportunidad de controlar posibles errores (no hay conexión de internet, la tabla no existe, etc.)

// Saludos

[roman]

Empezado por roman

En Delphi 7 no veo esa opción de los GExperts, pero quizá es que no la encuentro. ¿Cómo se llama?

Me tomo la libertad de insistir un poco, Lepe. ¿podrías mencionar cómo se llama y/o localiza esa opción en las gexperts?

// Saludos

[[Lepe]]

Ahora mismo no tengo BDS instalado (por causas que no vienen al caso), aquí viene la caracterísitca en cuestión: Set Component properties directamente del readme.txt de la VERSION 1.30 (October 26, 2006) de GExperts

- Set Component Properties: New tool to set properties (Boolean, string,
set, enum, ordinal, etc.) to some value when the a project is compiled.
Useful to deactivate datasets/connections, etc. (Robert Wachtel,
Gami, Erik)

Saludos

[roman]

Gracias Lepe,

Ya he visto la opción y puedo confirmar que existe también Delphi 7. No aparece listado en el menú principal de GExperts sino que se accede mediante la opción Configuration, pestaña Experts.

// Saludos

[Casimiro Notevi]

Empezado por Lepe

Ahora mismo no tengo BDS instalado (por causas que no vienen al caso), aquí viene la caracterísitca en cuestión: Set Component properties directamente del readme.txt de la VERSION 1.30 (October 26, 2006) de GExperts
Saludos

Interesantísima esa opción, la desconocía por completo, y eso que conozco gexperts desde... ni me acuerdo.

Precisamente la semana pasada sufrí un problema con un nuevo módulo que no funcionaba en ningún ordenador de ningún cliente. La pista para solucionarlo me la dio uno de mis jefes: "...el caso es que yo lo probé en mi portátil, ahí en la oficina, y funcionaba...". uuummmm... en la oficina sí que funcionaba y en todos los ordenadores que probé en el trabajo también... está claro, se ha quedado abierta la TpFIBDataBase
Efectivamente era eso.

Y a pesar de que tenemos una lista tremenda de cosas a comprobar antes de compilar para sacar una versión nueva... pero siempre se olvida algo

[roman]

Empezado por Casimiro Notevi

uuummmm... en la oficina sí que funcionaba y en todos los ordenadores que probé en el trabajo también... está claro, se ha quedado abierta la TpFIBDataBase

Llevo un día cavilando en esto y aún no atisbo cómo pudiste concluir esó

// Saludos

[Casimiro Notevi]

Empezado por roman

Llevo un día cavilando en esto y aún no atisbo cómo pudiste concluir esó

// Saludos

Sólo por experiencia, roman, porque ha pasado otras veces. Mis conexiones son siempre del estilo: 192.198.0.33:/home/datos/basedatos.fdb
Así que desde cualquier equipo de la red local pueden probar el programa que sea hecho por mí, que siempre conectará a esa ruta. Si dejo abierta esa conexión, evidentemente, en otro sitio no la encontrará y fallará al iniciar el programa.

[waly2k1]

Por lo gral. siempre tengo la conexión cerrada(cualquier tipo de conexión) y la abro en el evento DataModuleCreate del DataModule.

Si se trabaja con Access o 'archivos', jamás se sabe donde el usuario instaló la aplicación y genera una lista de mensajes de error(tantos como datasource existan). Si se trabaja con SQL u otros gestores se desconoce el nombre del server, DSN en caso de utilizar ODBC o lo que sea.

Para la cadena de conexión uso parámetros que los levanto de un .ini o una pantalla inicial y almaceno todo en el registro. De esta manera la segunda vez que corre ya tengo todos los parametros para armar la conexión.

De todas formas si me queda abierta por error en etapa de diseño la cierro antes en este mismo evento.

Una vez abierta la conexión
for i := 0 To Conx.DataSetCount-1 do
begin
// ShowMessage( Conx.DataSets[i].Name ); // Por si tira error se cual es el que jode
Conx.DataSets[i].Active := true;
end;

Salu2 y espero les sirva.

[waly2k1]

Para que lo propuesto anteriormente funcione correctamente el DM (datamodule) es el primer objeto a crear, o sea antes del main, login, splash, etc. creo el DM. Así cuando necesite trabajar con datos ya están todos disponibles.

Saludos

[roman]

Empezado por waly2k1

De todas formas si me queda abierta por error en etapa de diseño la cierro antes en este mismo evento.

El problema es que si la conexión queda abierta durante el diseño, la VCL intentará reabrirla al momento de cargar las componentes del DFM al crear el data module, y esto ocurre antes del evento OnCreate, así que para cuando quieras cerrarla, ya habrá saltado la excepción indicando que no encuentra el archivo, el servidor, etc.

// Saludos

[Casimiro Notevi]

Claro, ese es el problema, que el error ocurre antes. Y no hay forma de evitarlo si hemos olvidado cerrar la conexión antes de compilar el ejecutable.
Esta opción de las Gexperts es perfecta para evitar ese problema.