Création alias par programmation

Version imprimable

09/04/2009, 16h45
compdev

Création alias par programmation

Bonjour,

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

Merci
09/04/2009, 16h59
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

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

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:

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 :D

A+

Voici un exemple. Bonne reception

Code:

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;

11/04/2009, 16h54
compdev

Bonjour,

je vous remercie beaucoup pour votre réponse.

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