Discussion :

[BuzzLeclaire]

Bonsoir, bonjour à toutes et à tous,

J'ai l'habitude d'utiliser un DataModule, mais là j'ai une chose qui me turlupine dans la tête.

Je créer un dataModule dans lequel je place un ADOcnx et dans l'évenement
procedure MonModule.ADOCnxBeforeConnect(Sender: TObject);
1) je recupere le chemin de la base
2) Je me connect à ma MDB
mais par contrainte technique je doit faire cela après le choix dans une form de ma form principal d'un dossier, une fois le choix effectué là je peux executer mon DataModule pas avant, parcqu'en fait je ne connais pas le chemin avant ce choix (je connais que le nom de la base MDB)

Que dois-je faire ?
- retirer la ligne dans mon DPR qui déclarait l'ouverture du datamodule, mais comment ensuite le créer ?
- Ne rien faire, de toute façon l'évenement du AdoCnx n'ai pas lié à l'ouverture du Datamodule ?

Merci pour votre aide.

[Tardiff Jean-François]

Bonjour,

Un data module est un composant comme un autre.
Vous pouvez le créer par l'ordre create.


Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Unit UMydataModule;
interface
 
uses
  Windows, etc ...;
type
  TFMyDataModule = Class(TDataModule
....
  End;
var
  FMyDataModule: TFMyDataModule;  <------------------------------- Important
Implentation

Votre code par défaut créer un paramètre FMyDataModule qui est le TFMyDataModule ouvert si vous créer le datamodule automatiquemen.

S'il n'est pas créer vous pouvezle créer en faisant :

UMydataModule.FMyDataModule := TFMyDataModule.Create(Application);

Il est accesible de tous les unité contenant UMydataModule dans les clauses Uses.

[evarisnea]

si je comprend bien ton souci, l'évènement BeforeConnect de ton composant est appelé à l'ouverture de ton Datamodule car au moment de la conception tu as défini sa propriété Connected à True.
ce que tu dois faire c'est de définir cette propriété là à False au moment de la conception. c'est dans ta form ou autre, que tu devras ouvrir la connexion à la BD, après avoir bien entendu défini les bons paramètres de connexion.

non, tu n'as pas besoin de retirer la ligne qui déclare la création du datamodule dans ton DPR.
euh, l'évènement n'est pas lié à l'ouverture du datamodule, puisqu'il survient à chaque fois que l'AdoConnection se connecte à une source de données. or puisqu'en mode conception tu as défini la propriété Connected du AdoConnection à True, lors de la création du datamodule il y a ouverture de la connexion et donc appel à l'évènement BeforeConnect.

autre chose encore, si l'ouverture de tes XXtable et autres XXquery avait été fait en conception, il va falloir le faire manuellement par programmation maintenant

[BuzzLeclaire]

Merci à vous,

Evarisnea, je te remercie de tes remarques, effectivement j'ai mis la connection à False (adotable et Adoquery également) ce qui ne provoque aucun problème lors de l'execution du programme.
En fait je recupère le lien de la mdb apres un choix dans une listbox, j'enregistre le lien + le nom de la base dans une variable globale appelée Base, qui elle même est utilisée dans l'evenement Onbefore de ADOConnection.
Donc il n'y a aucun probleme de laisser effectivement la création du datamodule par le dpr puisqu'aucune ouverture n'intervient avant ce choix dans la listebox.
Je te remercie Eva.

Jean-françois, Merci pour ta démonstration je la garde de coté au cas où j'en aurais besoin.

Je vous remercie à tous les deux. Vous m'avez bien aidés sur ma problématique.

@Bye