Discussion :

[franck SEFIC]

with Session do
begin
ConfigMode := cmSession;
try
Dir:=Unite+'Saturne\'+exercice;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
AddStandardAlias('Saturne',Dir,'PARADOX');
finally
ConfigMode := cmAll;
end;
end;

Bonjour a tous ,
ce code que vous voyez permet de creer un alias dont le dir varie en fonction de l'annee. Et cela marche tres bien.
Voici mon problem: J'utilise des tables paradox en reseau, et je manipule beaucoup de requette. alors il arrive des fois que j'ai des messages suivants à l'ouverture de certaines requtes:"le fichier verrou est devenu trop important". Question: qu'es ce qui a manqué dans mon code?

[aityahia]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Session do  
Begin
  ConfigMode := cmSession;
 Try
     Dir:=Unite+'Saturne\'+exercice;
     if not DirectoryExists(Dir) then
     ForceDirectories(Dir);
     NetFileDir := Dir1 // Chemin réseau 
     PrivateDir :=Dir2 // Chemin  local
    AddStandardAlias('Saturne',Dir,'PARADOX');
   Finally
    ConfigMode := cmAll;
  end;
end;

Pour le chemin réseau toutes les application doivent pointé vers le meme répertoires vous pouvez indiquer le meme chemin que Dir des données
et le chemin local c'erst le dossier qui sera utiliser sur votres machine pour créer les fichiers temporaires il préférable d'indiquer un dossier dans le chemin de votre applications pour pouvoir le vidé de temps autres supprimer les fameux fichier que ce créer lorsque en éxécutes des reqettes.

[franck SEFIC]

es ce que le chemin local doit etre creer sur toutes les machines clientes qui utilisent l'application?

[aityahia]

Oui car c'est ce dossier qui utiliser localement par ton application créer les tables temporaires

[franck SEFIC]

Comment dois je vider ce fichier? par pragram ou manuel? enplus es ce qu'il est nécessaire de creer d'autres session?

[franck SEFIC]

NetFileDir := Dir1 // Chemin réseau
PrivateDir :=Dir2// Chemin local

Lorsque je lance l'exe, arrivé sur les lignes NetFileDir et PrivateDir , j'ai le message suivant qui apparait: "Table(s) ouvertes-Impossibles d'executer cette opération". Que faire?