Discussion :

[paulfr]

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 :

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

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".

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é.

[tarekk73]

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

[paulfr]

Bonjour,

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

J'ai revu les intructions :

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
 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é.