Discussion :

[youhibadelphi]

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

Code :

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

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

'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

[Just-Soft]

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 :

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

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é

[youhibadelphi]

salut
j'ai trouvé un autre code:

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
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?

[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.

[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

[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.