Desconectar TadoConnection por defecto

[josepicd]

Os cuento, tengo un datamodule con un adoConnection y una ConnectionString de pruebas asignada.

El caso es que cuando cargo la aplicacion asigno una nueva ConnectionString y hago un Connected del adoConnection.

Vale, pues a veces antes de compilar algunas veces me olvido de hacer un connected = false dentro del designer y cuando llego a casa del cliente, nada mas ejecutar la aplicacion da un error de que no encuentra la base de datos, porque la propiedad connected = true ha quedado grabada con la connectionstring de pruebas.

No pasa nada porque luego conecto con la buena, pero que muy feo que nada mas arrancar ya de un mensaje de error, hay alguna forma automatica de hacer que el connected siempre este a false al compilar o antes de arrancar la aplicacion, lo he puesto en el datamodulecreate pero los valores los carga antes.

gracias a todos

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

En ejecución deberías poder capturar ese error sin problemas, si redefines el método Create del formulario.

Código Delphi [-]
private
  constructor Create(AOwner: TComponent); override;
  ...

No lo he probado, pero debería funcionar.

[Ñuño Martínez]

Empezado por Neftali

En ejecución deberías poder capturar ese error sin problemas, si redefines el método Create del formulario.

Código Delphi [-]
private
  constructor Create(AOwner: TComponent); override;
  ...

No lo he probado, pero debería funcionar.

No estoy tan seguro. Ten en cuenta que lo primero que hay que hacer en el constructor es llamar al constructor heredado para reservar la memoria. Esto hace (si no recuerdo mal, y en este caso) que también se creen los componentes y se establezcan los valores de sus propiedades.

Lo que sí podría intentarse es capturar la excepción. Algo así como:

Código Delphi [-]
CONSTRUCTOR TForm.Create (AOwner: TComponent);
BEGIN
  TRY
     INHERITED Create (AOwner)
  EXCEPT
    ON Error: Exception DO
    BEGIN
       { ¿ignorarlo? }
    END
  END
END;

Lo ideal aquí sería usar una clase de excepción del ADO Connection para discriminar.

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

Empezado por Ñuño Martínez

No estoy tan seguro.
Ten en cuenta que lo primero que hay que hacer en el constructor es llamar al constructor heredado para reservar la memoria. Esto hace (si no recuerdo mal, y en este caso) que también se creen los componentes y se establezcan los valores de sus propiedades.

Es correcto, por eso creo que funciona.

Si redefines el Create de la Clase (TForm), En el "redefinido" podrás capturar la excepción que se levante desde el de la clase TForm. Realmente Se hace el Create y luego el Loaded (que carga los valores desde el DFM). Si el inherited en la clase redefinida (tal y como has puesto tú) está dentro del try..except, podrás capturar la excepción sin problemas.

Empezado por Ñuño Martínez

Lo que sí podría intentarse es capturar la excepción. Algo así como:

Eso es lo que quería decir con esta frase:

Empezado por Neftali

En ejecución deberías poder capturar ese error sin problemas, si redefines el método Create del formulario.

[Casimiro Notevi]

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

[ecfisa]

Hola josepicd

Empezado por josepicd

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

¿ Y por que carga los valores de un TADOConnection residente en un TDataModule antes de que este haya sido creado ?

¿ En que momento los carga ?, ¿ podrías explicar mas detalladamente ese punto ?

Saludos