Discussion :

[compdev]

Bonjour,

j''aime savoir comment créer un alias pour une BDD par programmation c'est-à-dire sans passer par l'administrateur BDE ?

Merci

[Cl@udius]

Salut

Je ne travaille plus avec le BDE, donc je n'ai pas d'exemple sous la main. Mais regarde du côté de AddStandardAlias et SaveConfigFile.

@+ Claudius

[NABIL74]

salut compdev,
quel est ton SGBD?
tu peux créer un alias par programmation comme suit:

Code :

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

1
2
3
Database1.Params.Text:='Path=C:\dossier\Donnees';
Database1.Connected:=true;
table1.Active:=true;

ou tu peux saisir chemin de ta base de données directement dans un fichier texte et puis au lancement de ton application,tu le charges.
je ne sais pas si c'est ça que te cherches.

il y a une autre méthode celle qui t'a citée Cl@udius peux ajouter un alias et le sauvegarder dans le BDE:

Code :

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

1
2
3
session1.ConfigMode := [cfmPersistent];    //Configuration de configfile
  session1.AddStandardAlias('le nom de ton nouveau alias','C:\dossier','PARADOX');  //ajout d''un nouveau alias
  session1.saveconfigfile;//sauvegarde de ton nouveau alias dans le BDE.

cordialement

A+

[franck SEFIC]

Voici un exemple. Bonne reception

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
with Session do
begin
   ConfigMode := cmSession;
   try
      Dir:=chemin;
      Dir1:=chemin2;
      Dir2:=chemin3;
      if not DirectoryExists(Dir) then
         ForceDirectories(Dir);
      if not DirectoryExists(Dir1) then
         ForceDirectories(Dir1);
      if not DirectoryExists(Dir2) then
         ForceDirectories(Dir2);
         NetFileDir:= Dir1; // Chemin réseau
         PrivateDir:=Dir2; // Chemin  local
      AddStandardAlias('NomAlias',Dir,'PARADOX');
   finally
      ConfigMode := cmAll;
   end;
end;

[compdev]

Bonjour,

je vous remercie beaucoup pour votre réponse.

Mon problème est bien résolu.
@+