Discussion :

[BXDSPORT]

Bonjour

J'ai procédé à un test sur l'alias avant d'ouvrir l'application.
Avant de procéder ce test, je n'avais pas d'erreur.

Voici la fonction et la procédure qui me créer une erreur de violation.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function testalias(alias:string):boolean;
var listalias:Tstringlist;
    i,j:integer;
begin
 listalias:=tstringlist.Create;
 j:=0;
 listalias.Clear;
 session.GetAliasNames(listalias);
 //comparaison
 for i:=0 to listalias.Count-1 do
 begin
   if alias = listalias.strings[i] then j:=j+1 else j:=j+0;
 end;
 listalias.Free;
 if j = 1 then  result:=true else result:=false;
end;
 
procedure creeralias(alias,chemindb:string);
begin
 try
  session.AddStandardAlias(alias,chemindb,'Paradox');
  session.SaveConfigFile;
  messagedlg('alias facture créé',mtInformation,[mbOk],0);
 finally
       //
 end;
 
end;
 
rocedure Tdata.DataModuleCreate(Sender: TObject);
begin
 //test de l'existence de l'alias
 if testalias('facture')=false then creeralias('facture',chemin);
 Tclient.Open;
 Tfact.Open;
 TfactD.Open;
 tproduits.Open;
 tintervention.Open;
 tCp.Open;
 tunite.Open;
 tdepenses.Open;
 tfournisseur.Open;
 treglement.Open;
 //Controle du fichier pour le suivi de la codification des clients
 if not fileexists(chemin+'codif.ini') then
  begin
   razcodif;
  end;
end;

Une solution ou voyez-vous mon erreur.

Merci de vos pistes

[NABIL74]

bonjour,
@ BX:dans tin topic :http://www.developpez.net/forums/d73...istance-alias/
il me semble que je t'ai proposé une solution qui marche à tous les coups.
mets ce code(déjà cité dans le topic) dans l'événement "Oncreate" de ta fiche principale:

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;

et puis connecte ta BD à l'aide du chemin que tu as créer.

bonne chance

a+
NABIL74

[BXDSPORT]

J'ai trouvé l'erreur.

Ton système fonctionnait comme le mien mais le hic était que j'avais mal configuré un champ.

Merci comme même