Discussion :

[alainvh]

Bonjour à tous.
Je rencontre ce qui me semble être un bête problème de syntaxe pour définir un index multiple pour une table de type DBF. Suite à des recherches diverses, j'ai essayé ceci :

Code :

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

1
2
 
Table1.AddIndex('Index_Nom_Prenom','Nom'+'Prénom',[]);

ce qui me vaut le message :
Table1 : Champ 'NomPrenom' non trouvé (il y a de la concaténation dans l'air )

puis ceci :

Code :

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

1
2
 
Table1.AddIndex('Index_Nom_Prenom','Nom,Prénom',[]);

ce qui me vaut le message :
Descripteur d'index incorrect

D'avance merci.
Amicalement.

Alain

[Cl@udius]

Salut

Code :

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

1
2
Table1.AddIndex('Index_Nom_Prenom','Nom;Prénom',[]);

@+

[alainvh]

Salut Cl@udius.
Autant pour moi ! J'ai écrit une virgule au lieu d'un point-virgule dans mon message, mais c'est bien un point-virgule que j'ai utilisé dans mon code. En clair, ta proposition me renvoie mon deuxième message, à savoir : Descripteur d'index incorrect
Mon problème reste donc entier

En tout cas, merci pour la promptitude de ta réponse. (Fait beau dans le 65 ?)

[Cl@udius]

Re,

As-tu vérifié que l'index que tu essayes de créer n'existe pas déjà ?

@+

[alainvh]

Oui, d'ailleurs mon projet est très simple : je crée une petite table et j'essaye juste d'ajouter un index multiple et rien d'autre pour l'instant (je ne rencontre pas de pb avec les index simples).

PS : je suis en apprentissage de Delphi, mais je développais avant sous Clipper5 (qui acceptait la syntaxe avec + )

[SergioMaster]

j'en suis pas sûr a 100% mais je crois que ton nom d'index est trop long

[Cl@udius]

Re,

C'est bizarre, je viens de faire un test et je créé un index multiple sans problème !

Qu'est-ce tu utilises comme compo ? Ta table est physiquement créée au moment la création de l'index ?

@+ Claudius

[alainvh]

Merci pour ton hypothèse, SergioMaster, j'ai nommé mon index X (c'est plus court !), mais même résultat !

Cl@audius, voici la totalité de mon code (les composants utilisés sont un TTable, un TDatasource et un TDBGrid)

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  if SearchFile('RundBlick.dbf')=False then // ça, c'est une fonction de recherche de fichier
    begin
      with TableRundBlick do // 
        begin
          Active := False;
          TableType := ttDBase;
          TableName := 'RundBlick.dbf';
          if not TableRundBlick.Exists then 
            begin
              with FieldDefs do
                begin
                  Clear;
                  with AddFieldDef do
                    begin
                      Name := 'Nom'; 
                      DataType := ftString;
                      Size := 25;
                    end;
                  with AddFieldDef do
                    begin
                      Name := 'Prenom';
                      DataType := ftString;
                      Size := 25;
                    end;
                  with AddFieldDef do
                    begin
                      Name := 'Age';
                      DataType := ftString;
                      Size := 3;
                    end;
                end;
              CreateTable;
            end;
          TableRundBlick.AddIndex('Index_Nom_Prenom','Nom;Prenom',[]);
        end;
    end;
 
  TableRundBlick.TableName:='RundBlick.dbf';
  DBGrid1.DataSource:=DataSourceRundBlick;
  DataSourceRundBlick.DataSet:=TableRundBlick;
  TableRundBlick.Active:=True;
  TableRundBlick.Edit;
end;

[SergioMaster]

puisque c'est au moment de ta création pourquoi ne fait tu pas un truc genre

with IndexDefs do begin
Clear;
Add('CLE_1','NOM;PRENOM',[]);
end;

avant de créer ta table

[Cl@udius]

Essaye de créer ton index en même temps que ta table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
with FieldDefs do
  // ... définition des champs
end;
 
// définition de l'index
with AddIndexDef do begin
  Name := 'IDX_NOM';   // A limiter à 8 caractères je pense, comme le souligne Sergio
  Fields :='Nom;Prenom';
  Options :=[];
end;
 
// Création de la Table
CreateTable;

A tester !

[edit] Grillé par Sergio [/edit]
@+

[alainvh]

Merci à tous deux pour votre... acharnement !
J'avais commencé mes essais par votre dernière proposition c'est à dire avec le code Cl@udius (sauf que j'avais omis la ligne Options :=[]
Je viens donc de réessayer : même résultat !
Puisque Cl@udius ne rencontre aucun pb, j'en arrive à conclure que mon problème est peut-être dû à une erreur beaucoup plus simple, plus basique (je vous rappelle que je débute en Delphi, tout seul, et qu'il me manque sans doute des concepts de base tout simples). Je vous adresse donc ma déclaration USES.

Code :

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

1
2
3
4
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

[SergioMaster]

non c'est pas tes clauses uses , tu te serais fait 'jeter' en compilant

[fthdz]

salut,
Essayez avec la fonction Dbegenerateindex ?

[alainvh]

Bonjour fthdz
Merci pour votre contribution, mais je ne connais pas cette fonction et l'aide Delphi non plus

[tibi666]

Bon ben j'arrive à point nommé ...

Je rencontre exactement le même problème pour l'ajout d'un index, mais à une table existante. Au détail près qu'il s'agit d'un index avec une seule colonne

Code :

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

1
2
3
 
If Not Finded then
  T.AddIndex(Index.name, Index.ColumnList, Index.IndexOptions);

Le message d'erreur est :

Nom d'index/repère incorrect

[alainvh]

Comment sont définies tes expressions Index.Name, Index.ColumnList, Index.IndexOptions ?

[alainvh]

Bonjour.
Voici un message que j'ai difficilement trouvé sur le forum :
-----------
Morisse
23/01/2006, 16h35
Je ne sais pas si tu as résolu ton Pb mais je te joins le message suivant trouvé dans l'aide de Delphi 7
Les tables dBASE ne supportent que les index primaires et les index uniques véritables lorsque le niveau de table est égal ou supérieur à 7 (concurrent de dBASE 7 Visuel). Les tables dBASE ne gèrent pas les index ne tenant pas compte des différences majuscule/minuscule. Vous devez utiliser la constante ixExpression lorsque l'index est basé sur plusieurs champs ou utilise des fonctions du langage de manipulation de données dBASE (c'est-à-dire, pour les index d'expression). Les index dBASE multi-champ ne peuvent pas être créés simplement avec une liste de noms de champs (séparés par des points-virgules) dans le paramètre Fields de AddIndex. La constante ixExpression n'est applicable qu'aux tables dBASE.
Bon courage
-----------
En fait, mon pb a été résolu dès que j'ai ajouté ixExpression dans la section with IndexDefs do de mon code, soit:

Code :

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

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

Merci donc à Morisse et à tous ceux qui ont bien voulu se pencher sur mon cas

Bon week-end.

Alain

[Cl@udius]

Code :

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

1
2
 
    Options :=[ixExpression];

Bien vu Alain, merci pour l'info !

@+ Claudius

[tibi666]

Comment sont définies tes expressions Index.Name, Index.ColumnList, Index.IndexOptions ?

Ils sont définis comme suit :

Code :

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

1
2
3
4
5
6
7
 
  TIndexDef = record
    name: String;
    ColumnList:String;
    tablename: String;
    IndexOptions: TIndexOptions;
  end;

Et TIndexDef .ColumnList est une chaine qui contient la liste de colonnes séparée par ";".

J'ai tenté de faire un Open de la table avant de créer l'index, j'ai le droit à un beau message "L'index n'existe pas" ce qui ne me choque pas parce que justement je cherche à le créer

J'ai aussi tenté de positionner IndexOptions à [ixExpression] mais ça marche pas mieux.

AddindexDef est-il utilisable si la table existe déjà ? D'après l'aide c'est pas le cas.

[fthdz]

bonjour,

J'ai tenté de faire un Open de la table avant de créer l'index, j'ai le droit à un beau message "L'index n'existe pas" ce qui ne me choque pas parce que justement je cherche à le créer

Essayez de supprimer completement la table du reperoire et d'importer une nouvelle table,puis executer le code normallement elle va générer un fichier .MDX.
bon moi j'ai eu ce probleme et j'ai résolu en utilisant ces etapes!!