Discussion :

[tomm]

Bonjour,Fs999 m'a dit que pour fermer toutes les tables ,il faut pour toutes les tables

Code :

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

1
2
3
Toutes les TDatabase.KeepConnection := False;    
 
Session.Close; (ou nom des TSession

cela signifie t il qu'il faut mettre un composant tsession et tdatabase sur toutes le form ou il y a des ttables actifs .si oui comment faire toutes ces actions au meme moment sur des form differentes ?
merci

[Pascal Jankowski]

Bonjour tomm,

Il te suffit de mettre un seul composant tdatabase sur ta fiche principale par exemple et tu instruis la propriété DataBaseName et la propriété AliasName de ton tdataBase.
Tu gères la connexion à ta base à partir de ce tdatabase avec la propriété connected

Puis ensuite pour chacun de tes composants TQuery et TTable tu instruis la proriété database avec le nom renseigné plus haut dans la propriété DtataBaseName de ton composant tdatabase.
Attention, si tu as placé ton composant tdatabase sur ta mainForm tu devras pour chacune de tes fiches faisant appel à ce composant instruire la clause uses de la fiche avec la référence à ton unité mainForm.

Ensuite il te suffit uniquement de manipuler la propriété connected du tdatabase pour ouvrir ou refermer tout les composants qui font référence à ton tdatabase.

Pour ce qui est du composant Tsession tu n'est pas obligé de l'utiliser car une session par défaut est gérée. Tu ne l'emploies que si tu désires gérer plusieurs sessions.

En espérant répondre à ta question.

Cordialement

[tomm]

Merci pour votre gentillesse.Je vais essayer

[tomm]

Alors j'ai donc mis un tdatabase sur une form .tous mes query et mes ttables étaient déjà renseignés à databasename
Le tdatabase j'ai mis c:\admin dans databasename et alias cri mais si je usi un autre ordi suis je aobligé de mettre alias cri .N'est il pas suffisant de renseigner databasename.
En fait je faisais ça pour pour pouvoir libérer des fichiers (les tables db) afin de les compresser avec abbrevia mais ça ne marche pas apparemment.
j'avais trouver une autre soulution avec des batchmove et un repertoire temp mais je voulais essayer de me passer du repertoire temp.
voilà merci

[Pascal Jankowski]

Attention tomm, je crois que tu n'y es pas ...

si database1: TDatabase

alors

Code :

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

1
2
3
 
  database1.DatabaseName = 'tototomm'; //par exemple
  dataBase1.AliasName = 'nom alias vers base';

alors pour chacun de tes TQuery et TTable tu instruis

Code :

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

1
2
3
4
 
  table.dataBaseName := 'tototomm';
  ou
  query.dataBaseName := 'tototomm';

De même dans l'inspecteur d'objet du dois retrouver tototom dans la liste des databaseName

Cordialement

[tomm]

salut,j'i compris ce que tu voulais que je fasse.En fait à mes databasename de mes ttables et query j'avais le chemin des tables car le probleme se posait quand je changeais d'ordi.Donc là si à databasename ,je donne un nom 'TOTO'par ex et à alias cri qui représente mon chemin ça ne marchera que sur mon ordi.non?
Merci

[Pascal Jankowski]

Non, cela peut fonctionner sur toute station sur laquelle tu auras défini l'alias cri dans le BDE.

Cordialement

[tomm]

j'ai quand meme mis alias cri à tdatabasename et toto à databasename du composant tdatabase

à une table j'ai mis à databasename toto
et il me dit databasename toto inconnu

merci

[Pascal Jankowski]

Ta table est dans un autre formulaire ??

Si c'est le cas alors dans le formulaire contenant ta table, tu ajoutes dans la clause uses le nom du formulaire sur lequel se trouve ton tdataBase.

[tomm]

Bonsoir ,j'ai deux questions:
-Comment quand on installe un logiciel sans qu'on intervienne manuellement faire que lors de l'installation l'alias par cri soit un alias pour la BDE avec le chemin c:\admin par exemple

-Efectivemement les TTables ne sont pas dans le formulaire ,il y en apartout dans le projet.J'ai toujours le meme message (j'ai essayé pour l'instant avec un composant Ttable sur form1 )avec le databasename toto qui correspond au databasename du composant tdatabase qui est sur la form 51 et qui a l'alias cri .
Dasn le form 51 je n'ai pas eu besoin de rajouter dans uses unit51,ça y était déjà.
merci