[BDS4.][Delphi][BDE] Exception index n'existe pas.

Bonjour,

Dans une DB, BDE/dBase, je modifie la dimension de champs string.
Pour ce faire j'ai préféré recréer la DB après sauvegarde de celle-ci.
J'ai alors obtenu une DB vide avec un index IxCode.

Lorsque je tente de récupérer mes données :

Code:

---

1 2 3 4 5 6 7 8 9

Tbcd.Close; Tbcd.TableName := 'WDepcd.dbf'; TbAff.IndexName := 'IxCode'; TbAff.TableName := 'D:\Delphi_6\Depm$\Archives\Wdepcd.dbf';   Tbcd.BatchMove(TbAff, batCopy);   Tbcd.Close; TbAff.Close;

---

à l'exécution j'ai l'erreur suivante, avec ou sans l'instruction "IndexName".

Citation:

---

Le projet DEPmnagESSAI.exe a déclenché la classe d'exception EDatabaseError avec le message 'TbCd: L'index n'existe pas. Index : IXCODE'.

---

Où est le problème ou l'erreur ?

PL

Nota : j'ai aussi, entre autre, la solution de supprimer l'index puis de le recréer, pas encore essayé.

bon jour
votre index n'est pas a jour
suprimer le puis recréer

Bonjour,

@ tarekk73
merci pour votre suggestion, mais le résultat était toujours le même : erreur.

J'ai revu les intructions :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

FInstal.DepCrCd('WDEPcd.dbf'); // création table CODES modifiée Tbcd.Close; // cible Tbcd.TableName := 'WDepcd.dbf'; TbAff.TableName := 'D:\Delphi_6\Depm$\Archives\Wdepcd.dbf'; // source if not FileExists('Wdepcd.mdx') then // le fic. .mdx existant pas exécuté begin TbCd.IndexFiles.Text := 'WDepcd.mdx'; TbCd.TableType := ttDBase; Tbcd.AddIndex('IxCode','CODE',[]); end; Tbcd.BatchMove(TbAff, batAppend); // mise à jour faite dans nouveau fichier

---

et en modifiant le paramètre de BatchMove j'obtiens le résultat cherché.