Desconectar TadoConnection por defecto

[Casimiro Noteví]

Hace tiempo, años, hablamos sobre esto y diversos componentes de conexión a BD que controlaban ese problema. A ver si lo encuentro...

[[AgustinOrtu]]

Pero no es lo mas logico que en tiempo de diseño la propiedad Connected este siempre a False, y luego se conecte en el momento mas apropiado (= un evento)?

En mi caso particular el connection string lo defino tambien en tiempo de ejecucion, en el evento OnBeforeConnect del Connection. Luego en el OnCreate del DataModule realizo el Conneciton.Open

[[nlsgarcia]]

AgustinOrtu,

Empezado por AgustinOrtu

...no es lo mas lógico que en tiempo de diseño la propiedad Connected este siempre a False, y luego se conecte en el momento mas apropiado...

Nelson.

[Neftali [Germán.Estévez]]

Empezado por AgustinOrtu

Pero no es lo mas logico que en tiempo de diseño la propiedad Connected este siempre a False, y luego se conecte en el momento mas apropiado (= un evento)?

Por lo que comenta, el problema es que se le olvida desactivarlo a veces.
Es lógico que la conexión esté abierta en diseño, pues algunas operaciones con tablas/querys y grids, requieren que esté así, por ejemplo cuando ase añaden campos.

Si al generar el EXE no recueradas desactivarla, la conexión queda abierta.

[[AgustinOrtu]]

Empezado por Neftali

Por lo que comenta, el problema es que se le olvida desactivarlo a veces.
Es lógico que la conexión esté abierta en diseño, pues algunas operaciones con tablas/querys y grids, requieren que esté así, por ejemplo cuando ase añaden campos.

Si al generar el EXE no recueradas desactivarla, la conexión queda abierta.

Buenas German, pero aun asi y todo, si uno provee la ConnectionString en el BeforeConnect no deberia dispararse el evento y asignar una conexion correcta?

Sino la otra posibilidad que se me ocurre es tener otro archivo .dfm de DataModule en cuestion, y utilizar directivas de compilacion para indicar que cuando compile en release utilice el .dfm sin la conexion

Otra forma pero que requiere mas "trabajo" es usar git o algun control de versiones. Siendo mas o menos cuidadoso estos deslices los encontras facilmente al momento de realizar los commit

[ecfisa]

Hola.

La verdad, es que la situación sigue sin quedarme clara...

...lo he puesto en el datamodulecreate pero los valores los carga antes.

Como yo lo veo, cuando intente cargar los valores (mediante un un TADOLoqueSea) antes de estar creado el TDataModule, y por lo tanto el TADOConnection que allí está radicado, obtendríamos un lindo mensaje de "Missing connection or ConnectionString". No tiene sentido hablar de que esté o no conectado cuando aún no ha sido creado.

hay alguna forma automatica de hacer que el connected siempre este a false al compilar o antes de arrancar la aplicacion

Si, una simple comprobación de su propiedad Connected en la creación del TDataModule, nos dá la posibilidad de accionar:

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  if ADOConnection1.Connected then // ¿ Me quedó abierto ?
    ADOConnection1.Close;          // entonces lo cierro

  // Hago lo que corresponda y continúo...
end

Claro está, que si el TDataModule esta en auto-create forms, tendrá que tener mayor precedencia que el módulo que intenta referenciarlo. Y, si se crea en tiempo de ejecución, la llamada a la creación también deberá ser previa al uso del mismo.

Por favor corríjanme si estoy malentendiendo el problema.

Saludos

[[AgustinOrtu]]

Daniel creo que lo que pasa es algo del estilo, en tiempo de diseño tengo la connection string seteada a que apunte a mi sql server/archivo access/etc. Seguro la seteo con el asistente de "build conneciton string"

Entonces si dejas el connected a true, tenes en el .dfm algo asi

Código Delphi [-]
Connection = TADOConnection1
  ConnectionString = '\Pepe.mdb'
  Connected = True

Al cargar las propiedades persistentes, en la pc de el no hay problema. Pero en otra pc anda a saber donde esta "pepe.mdb"

Me parece que va por ese lado la cosa

[josepicd]

Correcto AgustinOrtu, exactamente ese es el problema

[ecfisa]

Hola Agustín

Empezado por AgustinOrtu

Daniel creo que lo que pasa es algo del estilo, en tiempo de diseño tengo la connection string seteada a que apunte a mi sql server/archivo access/etc. Seguro la seteo con el asistente de "build conneciton string"

Entonces si dejas el connected a true, tenes en el .dfm algo asi

Código Delphi [-]
Connection = TADOConnection1
  ConnectionString = '\Pepe.mdb'
  Connected = True

Al cargar las propiedades persistentes, en la pc de el no hay problema. Pero en otra pc anda a saber donde esta "pepe.mdb"

Me parece que va por ese lado la cosa

Si, lo que comentas es correcto y entiendo ese punto. Lo que no me queda claro como es que logra usar la conexión antes de estar creada.

De todos modos y aunque no soy un experto en ADO, se puede asignar otra cadena de conexión en el evento OnCreate del DataModule o en el evento BeforeConnect del propio componente como bién apuntaste con anterioridad.

Saludos

Pd: Alberto, luego voy a revisar con detenimiento tu mensaje que seguramente me resultará muy interesante e instructivo.

[Neftali [Germán.Estévez]]

Empezado por AgustinOrtu

...si uno provee la ConnectionString en el BeforeConnect no deberia dispararse el evento y asignar una conexion correcta?

Correcto.
Esta opción también debería funcionar y también me parece buena.