création d'alias par programmation

Version imprimable

05/09/2009, 13h53
youhibadelphi

création d'alias par programmation
salut
j'ai essayé ce code pour créer un alias par programmation
le code dans l'evenement oncreat de la form
Code:

1 2 3 4 if not (directoryexists('d:\nvg31\bd'))then forcedirectories('d:\nvg31\bd'); session.AddStandardAlias('alias','d:\nvg31\bd','paradox'); session.saveconfigfile;
mais ça ne marche pas
le message d'erreur

Citation:

'nom dupliqué dans ce contexte'

le code est il juste? et c'est quoi au juste ce message d'erruer
je travail avec delphi5 dbase

Salut;

je n'ai pas testé ton code mais je pense que session doit être fermé à la fin de l'opération. voici un code typique pour la création d'un alias DBAse.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure CreerAliasDBAse(Alias : String, Chemin : String) Begin Session := TSession.Create(nil); Session.AutoSessionName := true; Session.Open; try Session.AddAlias(Alias,'DBase',Chemin); Session.SaveConfigFile; Session.Close; finally Session.Free; end; End;
NB : comme d'habitude, le code n'est pas testé :oops:

salut
j'ai trouvé un autre code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.CreateAliasClick(Sender: TObject);
var Session : TSession;
    List : TStringList;
begin
    Session := TSession.Create(nil);
    List := TStringList.Create;
 
    List.Add('SERVER NAME = C:\DataBase\employee.gdb'); // Par exemple
    List.Add('USER NAME = SYSDBA');
    List.Add('PASSWORD = masterkey');
 
    Session.AutoSessionName := true; //Pour éviter des conflits de nom de session
    Session.Open;
  try
      Session.AddAlias('EmployeeAlias','INTRBASE',List);
      Session.SaveConfigFile;
      Session.Close;
  finally
    List.Free;
    Session.Free;
  end;
end;

Qu’elle est la différence entre les deux?

05/09/2009, 23h09
Just-Soft

Pas grand chose mis à part que celui que tu présente utilise une liste pour stocker des informations telle que driver, nom utilisateur et mot de passe.
06/09/2009, 13h57
youhibadelphi

Ok
Alors j'essayerai le premier code
Merci.

Après la création de l'exécutable du projet, le chemin cité dans le code cause t-il un problème si le projet est enregistrer dans le disque D
marci
06/09/2009, 18h24
Just-Soft

je n'ai pas bien compris ta question mais si tu veux dire si tu change le chemin est-ce qu'il aura influence ? oui bien sûr, puisque l'alias contient le chemin de la base de données.

ok merci :ccool:

salut
j'ai essayé avec ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure CreerAliasDBAse(Alias : String, Chemin : String) Begin Session := TSession.Create(nil); Session.AutoSessionName := true; Session.Open; try Session.AddAlias('a_ba,'DBase',d:\'projet\bd'); Session.SaveConfigFile; Session.Close; finally Session.Free; end; End;
mais le projet ne se compile pas
le message d'erreur:

Citation:

types incompatibles:'tstring' et 'string'
ou est le problème?

Citation:
Envoyé par youhibadelphi
salut
j'ai essayé avec ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure CreerAliasDBAse(Alias : String, Chemin : TListString) // c'est ce que j'ai changé Begin Session := TSession.Create(nil); Session.AutoSessionName := true; Session.Open; try Session.AddAlias(alias,Chemin ); // à ne pas modifier directement Session.SaveConfigFile; Session.Close; finally Session.Free; end; End;
mais le projet ne se compile pas
le message d'erreur:
primo ça c'est du n'importe quoi :

Code:

'a_ba,'DBase',d:\'projet\bd'

je remarque que tu as mis le nom de l'alias dans la procédure or cette procédure est paramétrable donc faut lui passer les paramètres de l'extérieur comme ceci:

Code:

CreerAliasDBAse('a_ba','d:\projet\bd')

bien sûr l'appel se fait dans une méthode comme par exemple le OnCreate de la forme principale :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure FormPrincipale.OnCreate(Sender : TObject) begin // code . . . // ici on met l'appel CreerAliasDBAse('a_ba','d:\projet\bd'); . . . // code end;
l'erreur, je crois je ne suis pas sûr, du fait que AddAlias prend comme 2ème argument une liste donc le type doit changer comme je l'ai fais.

mais comme d'habitude à toi de tester et me tenir au courant.

salut à toutes et à tous,

youhibadelphi, voici un exemple qui illustre l'ajout d'un alias au BDE:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.FormCreate(Sender: TObject);
var
  SessionsList: TStringList;
const
  AppAlias = 'le_nom_de_ton_Alias';
 
begin
    SessionsList := TStringList.Create;
     Session.GetAliasNames(SessionsList);
 
    //On verifie si l'alias existe déjà
   if SessionsList.IndexOf(AppAlias) = -1 then //"-1" alias n'est pas trouvé
    begin
 
      //si l'alias n'existe pas, on va le créer
      Session.AddStandardAlias(AppAlias, 'C:\Dossier\data\', 'Paradox');
      Session.SaveConfigFile;//on le sauvegarde dans la BDE
 end;
      Database1.AliasName:=AppAlias; //on affecte le nom de l'ALIAS à la BD
      Database1.Connected:=true; // on ouvre la BD
      Table1.Active:=true;
end;

Bonne chance.

NABIL74

12/09/2009, 17h25
youhibadelphi

Salut
Merci mon ami Just-Soft j'ai pris tes remarques en considération.

Salem Nabil
Merci pour le code je te lance le résultat après l'essai

NABIL74
merci pour le code ça marche bien
encore merci pour les participants