Discussion :

[damene]

Bonjour tout le monde.
est ce que l'on peut me dire ce qui ne va pas sur ce bout de code:

Sur deux applications différentes je crée des fichiers de sauvegarde sur la première tout se passe correctement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        nomTable := TTable.Create(self);
        nomTable.TableType :=ttParadox;
 
        nomTable.TableName :=MCheminSvg+'Maitre'+IndiceMaj;
        BatchMove1.Source :=GastMaitre;
        BatchMove1.Destination :=nomTable;
        BatchMove1.Mode :=batCopy;
        BatchMove1.Execute;
        nomTable.AddIndex('','Cle Interne',[IxPrimary]);
        nomTable.AddIndex('GastMaitre','Nom;Prenom',[]);

sur la seconde je reçois le message suivant : 'Nom d'index/Repère Incorrect'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        nomTable := TTable.Create(self);
        nomTable.TableType :=ttParadox;
 
        nomTable.TableName :=MCheminSvg+'Article'+IndiceMaj;
        BatchMove1.Source :=tbArticle;
        BatchMove1.Destination :=nomTable;
        BatchMove1.Mode :=batCopy;
        BatchMove1.Execute;
        nomTable.AddIndex('','Cle Interne',[IxPrimary]);
        nomTable.AddIndex('ArticleLib','Libelle',[]);

'MCheminSvg' est le chemin du répertoire de sauvegarde de chaque application.
'IndiceMaj' est l'indice de sauvegarde (Svg1, Svg2 ou Svg3 de la sauvegarde tournante)

Pour la transcription de 'ArticleLib' et 'Libelle' je fais un copy/collé de l'Application pour éviter toute erreur d'écrire.

Le fichier est créé correctement de même que l'index primaire.
Cela bloque sur l'index secondaire.
Alors que dans la première application tout se passe normalement.

Ce qui est encore plus troublant pour moi viel amateur débutant c'est lorsque je me mets dans les mêmes conditions que dans la première Application c'est à dire une indexation secondaire sur deux champs cela marche sans problème

Code :

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

1
2
3
4
5
6
7
8
9
10
        nomTable := TTable.Create(self);
        nomTable.TableType :=ttParadox;
 
        nomTable.TableName :=MCheminSvg+'Article'+IndiceMaj;
        BatchMove1.Source :=tbArticle;
        BatchMove1.Destination :=nomTable;
        BatchMove1.Mode :=batCopy;
        BatchMove1.Execute;
        nomTable.AddIndex('','Cle Interne',[IxPrimary]);
        nomTable.AddIndex('ArticleLib','Libelle;NN',[]);

Merci pour votre aide.

[Aka Guymelef]

Bonjour,

Et si, juste pour voir, tu fais un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
nomTable := TTable.Create(self);
        nomTable.TableType :=ttParadox;
 
        nomTable.TableName :=MCheminSvg+'Article'+IndiceMaj;
        BatchMove1.Source :=tbArticle;
        BatchMove1.Destination :=nomTable;
        BatchMove1.Mode :=batCopy;
        BatchMove1.Execute;
        nomTable.AddIndex('','Cle Interne',[IxPrimary]);
        nomTable.AddIndex('ArticleLib','Libelle;',[]);

[damene]

Bonjour,

Et si, juste pour voir, tu fais un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
nomTable := TTable.Create(self);
        nomTable.TableType :=ttParadox;
 
        nomTable.TableName :=MCheminSvg+'Article'+IndiceMaj;
        BatchMove1.Source :=tbArticle;
        BatchMove1.Destination :=nomTable;
        BatchMove1.Mode :=batCopy;
        BatchMove1.Execute;
        nomTable.AddIndex('','Cle Interne',[IxPrimary]);
        nomTable.AddIndex('ArticleLib','Libelle;',[]);

Bonjour Aka Guymelef
merci pour ta réponse.
Hélas le test est toujours négatif, cela ne marche toujours pas.