procedure

[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.

[jandrorm]

El problema es como creo el procedure cone_bd; o en que parte del programa de forma que me deje llamarlo de donde quiera sin que me de el problema de que no encuentra el Tzconnection. Porque en los dos casos que puse en el primer post me da problemas con eso.

[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;

[jandrorm]

La verdad que no tengo creado ningun Data module, ¿es conveniente que reestructure el programa y cree un data module con el Tzconnection? Soy algo novato en esto. Muchas gracias a todos.

[pacopenin]

Añado un pequeño apunte que te puede ayudar.

Si lo estas haciendo desde principal, debes declarar dicho procedimiento en la parte private o public (dependiendo del ámbito que quieras darle) de la clase TPrincipal, para que "conozca" los objetos que tiene. Y luego en la implementation debes poner

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

De todas formas, opino como defcon1_es y el lugar más adecuado sería el DataModule, y haciendo lo que dice no deberías tener problemas.

[jandrorm]

Entonces lo ideal seria lo siguiente:


Unit 1

• • • TZconnection.
    • Tzquery??

Unit 2
El resto del programa


¿Seria así no? Gracias a todos de nuevo.

[Casimiro Notevi]

Lo normal para tener el programa ordenadito es crear un data module, ya sabes, "file, new, data module" y le pones un nombre, ejemplo: DMmain.
Ahí metes todos los dataset que vas creando.
Luego, desde cualquier form de tu programa que necesites acceder al mismo lo que haces es poner el datasource en el form y le asocias el dataset que está en el data module. Para ello debes añadir el mismo en la sección "uses", manualmente o desde la opción: "file, use unit", lo seleccionas y listo.
Luego desde tu form debes llamarlo de la siguiente manera:
DMmain.QRclientes.Close;
DMmain.QRclientes.SelectSql.Text := 'select codigo from tbclientes";
etc.
O sea, añades delante el DMmain (o el nombre que le pongas)

Echa un vistazo a este hilo del compañero Caral, ahí se explica cómo hacer todo esto de una forma más o menos organizada, aunque está pensada para IBX te puede servir.

[jandrorm]

Saludos a todos de nuevo, retomando un poco mis dudas anteriores, me puse a seguir con el programa, y a crear una nueva estructura. He creado un Tdatamodule como me recomendaron, llamándolo MYSQL. Pege aquí el Zconnection y el Zquery.


Luego en la Unit principal del programa, llame a este datamodule en la sección USES, poniendo al final MYSQL. Y cree también un Datasource, pinche en este ajustándole el dataset que me daba la opción de: DataModule3.ZQuery1. Y en nombre le puse MYSQL.


Vale hasta aquí no se si hay algo mal, para probar todo esto me e puesto unas lineas de consultas (que ya antes las tenia creadas y funcionaban correctamente) y las e editado, poniéndolas de las siguiente manera:


Antes:

Código Delphi [-]
   begin
     Memo2.Lines.Clear;
    SQL.Text:='select...
    Zquery1.Open;

Código Delphi [-]
 
 Ahora:
   begin
     Memo2.Lines.Clear;
     MYSQL.SQL.Text:='select...
     MYSQL.ZQuery1.Open;

Vale gracias a todos por vuestra ayuda y perdonar que sea un novato