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,...

[SergioMaster]

pour ouvrir une table en mode exclusif , ce qui est obligatoire lorsque tu veux créer, restructurer une table il suffit de mettre sa propriété exclusive à true (avant de l'ouvrir cela va de soit) , soit au niveau du composant soit par TTable1.exclusive:=True;

Quant à ton code .... es-tu sur que myIndex.Name est renseigné puisque déjà myIndex=nil

[Hurin]

Merci pour ta réponse SergioMaster.
J'ai changé mon code, et effectivement, ça marche mieux,...
Enfin, j'ai quand même un problème, c'est que, après l'avoir mis en mode exclusive, il semblerait qu'elle soit déja utilisé par un autre utilisateur, ce qui fait que moi je ne peut plus l'utiliser !
Donc ma question, c'est comment faire pour "s'approprier" la table ?

Voilà 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
 
procedure TFicheRegleur.FormActivate(Sender: TObject);
var myIndex : TIndexDef;
begin
myIndex := DataS.TableRegleur.IndexDefs.GetIndexForFields('Nom_Regleur',True);
  if myIndex = nil then
  begin
    DataS.TableRegleur.Close;
    DataS.TableRegleur.Exclusive := True;
    DataS.TableRegleur.Open;
    DataS.TableRegleur.AddIndex('Classe','Nom_Regleur',[ixCaseInsensitive]);
    DataS.TableRegleur.IndexName := 'Classe';
    DataS.TableRegleur.Exclusive := False;
  end;
end;

Or, sur le open, il me dit que ma table est déja utilisé par quelqu'un d'autre, pourtant, je ne vois pas comment ce serait possible,....

Merci

[SergioMaster]

si, c'est possible surtout si tu exécutes l'appli à partir de Delphi . et tu as du le faire souvent lors de tes essais . Un redémarrage devrait régler le problème ? enfin j'espère

[Rayek]

Code :

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

1
2
 
procedure TFicheRegleur.FormActivate(Sender: TObject);

Mauvaise idée que de mettre ce code dans le FormActivate, car a chaque fois que la form va avoir le focus , le code va être exécuter.

[Hurin]

Non, j'ai redémarré mon PC, mais ça n'a rien changé,...
Est-ce-que le fait de mettre la table dans mon projet suffit à l'ouvrir, je suppose que oui (quand je dis mettre dans mon projet, cela signifie créer une TTable dont le TableName soit ma table,...)
Mais ce qui m'étonne, c'est que je suis dans le même projet, avec le même utilisateur et tout et tout, alors pourquoi il me dit que la table est ouverte par un AUTRE utilisateur,...
J'y comprends rien, ...

[Hurin]

Bon, j'ai pas compris pourquoi, mais de toute façon, en le mettant directement dans le designer à Exclusive := True, ça marche !

Je viens de lire le message de Rayek, que j'avais sauté, désolé,...

En fait, je le mets dans la formActivate seulement pour pouvoir faire, une fois seuleemnt un AddIndexDefs, c'est provisoire, parce que je ne réussis pas à en créer un avec le Designer
Mais, là, je crois que ça marche, merci !!!

[Hurin]

Ok, confirmation effectué, ça marche, j'ai enfin réussi à faire ce AddIndex

Merci Rayek, SergioMaster et ShaiLeTroll !!!