Discussion :

[Hurin]

Bonjour,
J'essaye de mettre un IndexName sur une table, pour ce faire, je définie donc un IndexDefs, sauf que, pour une raison que je ne comprends pas, une fois que j'ai entré la définition de mon Index, sur la petite fenêtre, une fois que je ferme cette petite fenêtre, quand je la réouvre, c'est comme si je n'avais rien fait !!!

Et là, je n'y comprends rien du tout !!!

[ShaiLeTroll]

Si BDE Paradox
Faut utiliser TTable.AddIndex !

Pour le reste, mieux vaut un SQL

[Hurin]

Ok, merci ShaiLeTroll j'avais vu ça dans la FAQ,...
Mais ce que je ne comprends pas, c'est pourquoi, avec le Designer, lorsque j'essaie d'ajouter un Index, ce dernier reste, jusqu'à ce que je tente de mettre un IndexName, parce que là, je n'ai plus rien, il n'est pas dans la liste, et il n'existe plus non plus dans les IndexDefs !!!

PS: je travaille avec Delphi 7

[ShaiLeTroll]

Tu l'ajoutes, il ne dira rien contre, mais à un moment donné, il va vérifier si les index sont bons, donc ceux qui tu as ajouté vont être supprimé ... c'est une supposition, ...

[Hurin]

Ok, merci, c'est ce que je pensais, visiblement, je ne sais pas faire de bons indexs, je reviens quand j'aurai plus d'infos !
Merci encore ShaiLeTroll

[Hurin]

Heu, j'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFicheRegleur.FormActivate(Sender: TObject);
var myIndex : TIndexDef;
begin
myIndex := DataS.TableRegleur.IndexDefs.GetIndexForFields('Nom_Regleur',True);
  if myIndex = nil then
  begin
    DataS.TableRegleur.AddIndex('Classe','Nom_Regleur',[ixCaseInsensitive]);
    DataS.TableRegleur.IndexName := myIndex.Name;
    DataS.TableRegleur.Exclusive := False;
  end;
end;

Mais, déjà, je ne suis pas sûr que ce soit la bonne manière de procéder, ensuite j'ai un message d'erreur à l'éxécution comme quoi :

la table ne peut pas être ouverte en mode exclusif

Et là, je ne sais pas comment faire,...