Discussion :

[BXDSPORT]

Bonjour

J'aimerai vérifier si un alias de dbe existe. J'ai beau regardé la FAQ pas de solution. Une idée

Cordialement

[Just-Soft]

Bonjour

J'aimerai vérifier si un alias de dbe existe. J'ai beau regardé la FAQ pas de solution. Une idée

Cordialement

salut

tu peux faire ça avec GetAliasNames qui récupère tout les alias existant et les met dans une liste puis tu parcours la liste à la recherche de ton alias donc un petit test avec if te renseignera sur ce que tu veux savoir.

Bonne chance.

[NABIL74]

bonjour,

J'aimerai vérifier si un alias de dbe existe. J'ai beau regardé la FAQ pas de solution

pour vérifier si un alias dans le BDE, tu peux mettre une procédure dans l'événement de "Oncreate" de la fiche, s'il le trouve, il ne sera pas ajouter à la liste des Alias du BDE, sinon il l'ajoute.

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
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, ExtractFilePath(ParamStr(0)), 'Paradox');
      Session.SaveConfigFile;//on le sauvegarde dans la BDE
    end;
end;

Session(classe "TSession") permet de gérer un groupe de connexions de base de données dans une application.

a+

NABIL74