Discussion :

[fveto]

Bonjour à tous,

J'utilise (D6 / BDE / Paradox) les compos TTable et TDataSource, j'utilise aussi l'utilitaire "VRepaire" pour réparer les index en cas des problèmes avec.

Je cherche à savoir si il y a un moyen de détecter la défiance d'une table ou ces index.


Merci à tous

[ShaiLeTroll]

Tant que tu n'as pas l'exception EBDEerror "Index is out of date", difficile de le savoir !

C'est bien le problème de Paradox, c'est sa faible stabilité sous Windows !
Windows lorsqu'il plante, le pire c'était sous Win2K avec le reboot sur défaillance irrémédiable (l'écran bleu)
Cela n'avait pas le temps de finir les flush sur la table Paradox
N'ayant pas utilisé Paradox à titre professionnel depuis Win2K, j'ignore son comportement sur les OS récents !


Si tu en as les moyens, héberger tes fichiers Paradox sur un serveur UNIX accédé en Samba,
une application multi-utilisateur sera nettement amélioré en terme de performance et de stabilité !

Une approche simple serait aussi de réduire le plus que possible le temps d'ouverture des tables (ne pas faire un Open au lancement et le Close en fin de programme)
Déjà même dans une fenêtre, le temps de saisie peut être long, utiliser un TClientDataSet comme tampon (en D6, il y avait déjà la TBDEClientDataSet) pour éviter un temps trop long entre un Open\Close
D'ailleurs des Open\Close trop long nuise aussi à une utilisation concurrentielle !

Utilisation du BDE pour placer en mémoire cache les mises à jour

[tarekk73]

bon jour
dans paradox s'il on a un probleme d'ouverture de table c'est surement un probleme d'index il faux le supprimer et le recreé

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
try
        form1.table1.Open;
except
     // supression des fichier index   (dans ce cas on un 1 index primaire et deux secondaire
     deletefile(pchar(DBPath + '\table1.PX'));
     deletefile(pchar(DBPath + '\table1.XG0'));
     deletefile(pchar(DBPath + '\table1.YG0'));
     deletefile(pchar(DBPath + '\table1.XG1'));
     deletefile(pchar(DBPath + '\table1.YG1'));
 
   // re creation des index 
                 with form1.table1 do
                begin
                  AddIndex('','inxpim',[ixPrimary]); //création d'ndex primaire 
                   AddIndex('ind_sec1','champ1',[ixcaseinsensitive]);//création d'index secondaire nommé "ind_sec1" pour champ  "champ1"                
                  AddIndex('ind_sec2','date',[ixcaseinsensitive]);
                end;                   
 
form1.table1.open
end;

A+