Discussion :

[damene]

Salut! tout le monde.

Je travaille avec Delphi 7 Entreprise, la BDE et Paradox.

J'archive par MonApplication un fichier Maitre2008 dans Maitre2009.
Jusque que là tout va bien. Le fichier maitre2009 est copié correctement.

C'est au moment de créer les index Primaire et Secondaires que ça cloche.

J'ai suivi l'approche de la FAQ :

Il suffit d'utiliser la méthode AddIndex du composant TTable afin de créer un index sur la table. La table ne doit pas être ouverte par ailleurs pour que la procédure fonctionne.
Par exemple pour créer un index primaire sur une table Paradox

Code :

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

Table1.AddIndex('','C2;C1;C3',[ixPrimary]);

Et pour ensuite créer un index secondaire :

Code :

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

Table1.AddIndex('UnIndex','C2;C3',[ ]);

Voici mon code

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
21
22
procedure TForm1.bitbtArchiveExerciceClick(Sender: TObject);
var nomTable : TTable;
begin
  nomTable := TTable.Create(self);
  nomTable.TableType :=ttParadox;

  nomTable.TableName :='Maitre2009';
  BatchMove1.Source :=tbMaitre;
  BatchMove1.Destination :=nomTable;
  BatchMove1.Mode :=batCopy;
  BatchMove1.Execute;
  
  tbMaitre.Active:=False ;

  nomTable.AddIndex('','NaturePrest;Unite;Nom;Prenom',[IxPrimary]);

  nomTable.AddIndex('IxMaitree2009','NaturePrest;Unite;Nom;Prenom',[]);
  tbMaitre.Active:=True ;



end;

A la création de l'index Primaire l'Application crée une classe d'exception et le message suivant est affiché :

Numéro hors limite Processus stoppé

J'ai fermé le fichier Maitre2008. alors que normalement ce n'a aucune incidence sur la création des index de Maitre2009.

Ce que je ne comprends pas dans la FAQ Delphi c'est 'C2;C1;C3' à la création de l'index Primaire?

Où se situe mon erreur?
Merci

NB : Lorsque je crée manuellement

L'index Primaire.
une TTable (avec comme TTable.Name : NomTable et TTable.TableName : Maitre2009.
un Datasource connecté à NomTable.
et que je lance par un click de Bouton la création de l'Index Secondaire par :

Code :

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

  nomTable.AddIndex('IxMaitree2009','NaturePrest;Unite;Nom;Prenom',[]);

Alors l'index secondaire est créé.

[damene]

Je me cite

Ce que je ne comprends pas dans la FAQ Delphi c'est 'C2;C1;C3' à la création de l'index Primaire?

'C2;C1;C3' sont respectivement les trois premiers champs de la table (dans cet ordre) qui assemblés sont uniques dans la table

Où se situe mon erreur?[/

L'erreur réside dans le code de création de l'index primaire qui doit être ainsi :

Code :

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

  nomTable.AddIndex('','Cle Interne',[IxPrimary]);

Le champ 'Cle interne' existe dans la table source, c'est le premier champ de la table, il est incrémenté automatiquement (il est d'ailleurs utilisé comme index primaire dans la table source).