procedure

[jandrorm]

Hola buenos dias a todos,


Antes de nada decirles a los moderadores del foro que no sabia bien donde colocar este post si lo ven conveniente de que debe ir en otra parte del foro que lo muevan sin problema, gracias.


Bien estoy trabajando con dephi 7, y tras ver que tengo una parte del código que se repite bastante y es la misma, que es donde comprueba la BD esta on, decidí meter esa parte en un procedure y llamarlo cuando lo necesitara sin repetir de nuevo el código.


Al principio lo hice de la siguiente manera a modo de prueba:

Código Delphi [-]
 
 procedure cone_bd;
 begin
 codigo...
 end;
 

 procedure TPrincipal.FormCreate(Sender: TObject);
 begin
 cone_bd;
 end;

Pero claro esto me ocasionaba el error de que los objetos del Tzconnnection no lo encuentra. Por lo cual después lo hice de otra manera.

Código Delphi [-]
 
 procedure TPrincipal.FormCreate(Sender: Tobject);
 

 procedure cone_bd;
 begin
 codigo...
 end;
 

 begin
 cone_bd;
 end;

Así me funcionaba en la parte es en concreto pero después fuera de esa parte no funcionaba, por lo cual mi duda es de que manera, puedo yo crear un procedure a modo de “función” que lo pueda llamar en cualquier parte del programa sin que me de el error de que esos objetos no están declarados. Buen gracias a todos por vuestro tiempo y paciencia jeje.

[Casimiro Notevi]

Lo normal es conectar a la BD al iniciar el programa y se acabó. La desconectas cuando vas a salir del programa.
Los dataset (query, table, etc.) se deben colocar en un data module.
En los forms sólo pones los datasource que apuntan a los dataset.


P.d.: recuerda poner títulos descriptivos a tus preguntas.

[jandrorm]

Si la función de cone_bd no es para conectar si no que hay conexión con la bd, y compruebo que esta conexión existe durante varios pasos del programa. Por eso lo de crear el procedure.

[Casimiro Notevi]

Es que no sirve comprobar eso salvo que sea una conexión por internet o algún otro tipo de conexión poco fiable.
Si es una conexión normal a un servidor de red local entonces lo normal es que no se desconecte salvo una avería física.
Por eso te comento que "lo normal" es conectar al principio y desconectar al final. No se está comprobando la conexión a cada rato porque debe estar siempre conectado.

[jandrorm]

Vale entonces tendría que haber especificado algo mas, no es para red local, es para conexión con una bd externa, y esa bd hace un poco de cliente/server entonces lo de comprobar el estado un poco es por eso. Gracias por tu rapidez.

[Casimiro Notevi]

Bien, entonces puedes hacerlo como he indicado antes, creas la function o procedure, como quieras, y lo llamas desde cualquier lugar del programa. Entonces realmente no he entendido el problema.

[defcon1_es]

Hola.
Supongo que los componentes de conexión a esa base de datos, los tienes en un DataModule, ¿no?

Si creas ese procedimiento en el DataModule y lo declaras en la sección public del mismo, lo podrás llamar desde cualquier form/datamodule/unit de tu aplicación.
(No olvides poner en el uses de cada formulario al datamodule en cuestión)

Código Delphi [-]
 procedure TMiDataModule.cone_bd;
 begin
   codigo...
 end;


 procedure TPrincipal.FormCreate(Sender: TObject);
 begin
   MiDataModule.cone_bd;
 end;


 procedure TOtroForm.FormCreate(Sender: TObject);
 begin
   MiDataModule.cone_bd;
 end;