Discussion :

[pivot]

bonjour tout le monde
je suis nouveau ici et aussi avec delphi
je travaille avec dephi 5 et paradox come base de donnée et BDE
je vien de terminer mon projet de fin d'étude et mon application fonctionne trés bien mais
mon pleme
je dois présenté mon travaille su un autre pc qui contien pas delphi
jai essayer de faire un executable de mon application avec installshield
et je les installer sur un autre ordi sa passe bien et l'installation termine avec succe
mais si je veux lancer mon application la un msg me dit " alias inconu et base de donnée introuvable "que dois je faire je prend tou le BDE et mes tables et mon projet a la fois et je les copie manuellement sur l'autre ordinateur ....????
SVP aider moi


merci

[cadetill]

Bonjour

Si tu as tes tables dans un repertoire rlatif au celui de la application ( ./DB par exemple) je prefere n'utilisé pas d'alias et faire la configuration a la main

Quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
9
 
  if Database.Connected then
    Database.Connected := false;
 
  Database.Params.Clear;
  Database.Params.Add('PATH=' + ExtractPathFile(Application.ExeName) + '/bd');
  Database.Params.Add('DEFAULT DRIVER=PARADOX');
  Database.Params.Add('ENABLE BCD=FALSE');
  Database.Open;

[TicTacToe]

++1 cadetill

J'ajouterais également ceci avant le DataBase.Clear:

Code :

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

1
2
3
 
     Base.AliasName := '';
     Base.DriverName := 'STANDARD';

Car il est pratique pendant le dev. seulement de travailler avec des alias.
Ce code les enlève lors de l'éxécution.

[cadetill]

Oui, ja m'ai oublié de ça

[pivot]

salut
je trouve pas ou je dois mettre ce code , je veux quel est l'evénement qui déclanche ce code ou je le met n'importe ou par exemple dans l'evenement oncreate de ma 1er fiche ?

[cadetill]

Tu doit le mettre dans n'importe ou, mais il doit se faire 1 seule fois et en avance de l'ouverture de n'importe quel TTable

[touhami]

bonjour,
si j'ai bien compri ton message d'erreur:
alias inconu et base de donnée introuvable
c'est que tu utilise un alias pour acceder a ta base de donnée (paradox)
et pour créer ce dernier tu peut ajouter dans l'evenement OnCreate de ta fiche principale le code suivant :
Session.AddAlias('NomAlias','PARADOX,'lechminBaseDonnée');
exemple:
Session.addAlias('Moi','PARADOX',(C:\Gestion\DBF');
bon courage.

[Bejaia-In]

Voila une procedure pour régler ton problème, seule contrainte: mettre les tables de données dans un répertoire "RepertoireBase" qui serai dans le même chemin que ton executable.

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
procedure OuvertureBaseDonnee;
var MyList: TStringList; UserBaseDir:String; 
begin
 try
  try
  if not DirectoryExists('RepertoireBase') then Abort; // Cherche le répertoire de la base
  UserBaseDir:=ExpandFileName('RepertoireBase');// récupère le chemin complet de la base
 
  MyList := TStringList.Create;
  try
  MyList.Add('PATH='+UserBaseDir);
  MyList.Add('ENABLE BCD=TRUE');
  MyList.Add('DEFAULT DRIVER=PARADOX');
  with DataBase1 do begin      // nom du TDataBase  
   DataBaseName:='BaseParadox';// Nom de la Base
   Connected:=False;
   DriverName:='STANDARD';
   Params:=MyList;
   Session.NetFileDir:=UserBaseDir;
  end;
  finally
  MyList.Free;
  end;
  DataBase1.Connected:=True;
  except
   MessageClair('Impossible d''Ouvrir la Base de Données',2); 
   raise
  end;
 except
  Application.Terminate;
 end;
end;