Discussion :

[jenteldz47]

Salut ttm
j'utilise une table paradox dans un programme Delphi7, à l'execution j'ai une erreur d'execution "Index n'est pas à jour" et le programme se bloque.
comment remedier à se problème par des instructions dans le programme, et surtout comment empécher le blocage du programme avant l'erreur se produise.
merci d'avance à toute réponse, Vraiment je suis bloqué.
Rq: Le module base de données ne peut pas ouvrir la table à cause de l'index n'est pas à jour (il affiche: Impossible d'ouvrir la table)

[Cl@udius]

Salut

Tu es visiblement face à des index corrompus.
Une solution serait de supprimer tous les index attachés à cette table et de les recontruire (via le Module Base de Données par exemple).

Si ta table s'appelle MATABLE.DB alors les index à supprimer sont tous les fichiers:

• MATABLE.PX
• MATABLE.X*
• MATABLE.Y*

Une autre solution serait d'essayer d'isoler l'index corrompu pour éviter de reconstruire tout tes index (si tu en as beaucoup).
Tu déplaces tous les index dans un dossier différent, puis tu les replaces un à un en commencant par l'index primaire (*.px) et tu essaye à chaque fois de réouvrir ta table.

Voilà, je ne suis pas un spécialiste de Paradox, mais c'est ce que je ferais.
Peut-être qu'un autre forumeur aura une meilleure méthode.

@+ Claudius.

[Zatoobux]

salut,

Tu peux utiliser DbiRegenIndexes de l'unite bde.pas.

Pour l'aide sur les fonctions BDE tu dois avoir un fichier BDE32.hlp.

L'aide indique :

C syntax

DBIResult DBIFN DbiRegenIndexes (hCursor);

Delphi syntax

function DbiRegenIndexes (hCursor: hDBICur): DBIResult stdcall;

Description

DbiRegenIndexes regenerates all indexes associated with a cursor.

Elle propose l'exemple :

Code :

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

1
2
3
4
5
procedure fDbiRegenIndexes(TblName: TTable);
 
begin
  Check(DbiRegenIndexes(TblName.Handle));
end;

Pour plus d'info sur cette fonction j'utilise normalement : Support du BDE mais le lien ne semble plus fonctionner, j'espère que c'est temporaire.

a+

[Cl@udius]

+1 Zatoobux

DbiRegenIndexes, je l'avais oublié celui-là !

[Zatoobux]

Par contre le liens vers le support du BDE HS me fait peur !!!
J'utilise souvent les exemples qui y sont fournis et qui sont plus riches que dans BDE32.hlp.

a+

[jenteldz47]

Salut
je vous remercie infiniment tout les deux(Cl@udius et Zatoobux) pour les réponses, je vais essayer la fonction et je vous informe des résultats prochainement.
merci encore une autre fois.

[aityahia]

@ jenteldz47

je vous conseil d'abondoner paradoxe les problemes d"index prsiste des centaines de fichiers,Reuqette SQL très lente

http://www.developpez.net/forums/showthread.php?t=26493

[jenteldz47]

Salut Zatoobux
votre fonction marche à 100% je vous remercie une autre fois. à la prochaine.
je remercie aussi AitYahia pour le conseil.
aurevoir.