Discussion :

[alainvh]

Bonjour et meilleurs voeux à toutes et à tous.

Clipper 5 (sous DOS) proposait l'instruction bien pratique Copy Stru pour copier une base et ses index. Je viens de faire l'équivalent sous Delphi : ça marche pour les index simples, mais ça plante pour les index multiples.

Exemple de création d'un index multiple :

Code :

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

1
2
3
4
5
6
7
 
        with AddIndexDef do
           begin
              Name := 'IDX_MULT';
              Fields := 'Nom+Prenom';
              Options :=[ixExpression];
           end;

Lors de la copie, je parviens à récupérer Name := 'IDX_MULT' et Options := [ixExpression], mais pas Fields qui semble vide, d'où plantage.

Si quelqu'un a une idée... D'avance merci.

Cordialement,

Alain

[ShaiLeTroll]

Utilise les Composants Apollo de Vista Sofware, il gère les index multiples ainsi que les NDX et SDX

si tu veux récupérer le contenu de l'index via le BDE, tu dois écrire ton expression dans Fields effectivement, par contre ensuite, il faut consulter Expression
Faudrait lire l'aide c'est écrit dedans !

Remarque : Lors de la création d'index d'expressions dBASE, n'utilisez pas de liste de champs séparés par des points-virgules. Initialisez Fields à une expression du langage de manipulation de données dBASE concaténant plusieurs champs, convertissant des types de données de champs ou utilisant des sous-chaînes de champs. Vous devez inclure la valeur TIndexOption ixExpression dans le paramètre Options des fonctions telles que TIndexDefs.Add ou dans la propriété Options d'un objet TIndexDef. Lors de l'examen d'index d'expressions dBASE existants, utilisez la propriété Expression à la place de la propriété Fields.

[alainvh]

Merci ShaiLeTroll.
Je vais essayer d'exploiter ta piste.

[alainvh]

Bonjour,

Voici le résultat de l'exploitation de la piste fournie par ShaiLeTroll :

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
 
  with AddIndexDef do
    // Pour un index simple...
    begin
      Name := 'IDX_SIMPLE';           // nom de l'index simple
      Fields := 'Nom';                // indexation sur le champ Nom
      Options :=[];                   // éventuellement, Options : [ix Primary], etc...
    end;
    // Pour un index multiple...
    begin
      Chaine := 'Nom'+'+'+'Prenom';  // concaténation : résultat = 'Nom+Prenom'
      Name := 'IDX_MULT';            // nom de l'index multiple
      Expression := Chaine;          // indexation sur les champs Nom et Prenom
      Options :=[ixExpression];      // Options : obligatoire = [ixExpression]
    end;

Merci encore.

Cordialement,
Alain

PS : je cherche régulièrement dans l'Aide de Delphi, mais ce n'est pas toujours évident de s'y retrouver (ceci en réponse amicale à : "Faudrait lire l'aide c'est écrit dedans !")

[ShaiLeTroll]

Ne t'inquiète pas, je le balance tout le temps, ... parce que je connaissais pas moi même la réponse, et je l'ai trouvé dans l'aide (j'utilise ApolloTable qui gère parfaitement DBASE avec des méthodes dédiées, je ne l'utilise pas par le BDE) ... surtout que celle de D7 est une vrai merveille comparée aux versions suivantes ... quoi que Delphi 2009 redresse la barre (même si très lourde en mémoire)

Sinon, merci d'avoir fourni ton code, cela pourra servir à d'autres !
Si ils pensent à utiliser la fonction rechercher du forum