Discussion :

[amtdev]

Bonjour à tous,
Est ce que quelqu'un peut m'indiquer mon erreur sur ce bout de code qui, à l'exécution m'affiche le message suivant: "EDataBase Error. nessicite: Index de champ hors limites" (nessicite est le nom de la table dans laquelle je fais l'insertion)

le code est le suivant:

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
procedure Tcalcul.Button1Click(Sender: TObject);
begin
     if not dm.necessite.FindKey([dm.produitcodep.Value,dm.mpcodemp.Value]) then
      begin
         dm.necessite.Append;
         dm.necessitecodep.Value:=dm.produitcodep.Value;
         dm.necessitecodemp.Value:=dm.mpcodemp.Value;
         dm.necessiteqmp.Value:=strtoint(edit6.Text);
         dm.necessite.Post;
       end
     else
       begin
         if messagedlg('Cette valeur a été déjà renseigné. Voulez vous la modifier ?',
            mtinformation, [mbYes,mbNo],0) = mrYes then
            begin
              dm.necessite.Edit;
              dm.necessiteqmp.Value:=strtoint(edit6.Text);
              dm.necessite.Post;
            end
        else
          begin
              edit6.Text:='';
              edit6.SetFocus;
          end;
      end;
end;

Je vous remercie d'avance.

[ShaiLeTroll]

Lit l'aide F1, tout est écrit, ... il faut renseigner IndexName par le nom de l'index dans la Table (Paradox je suppose), il faut le nom d'un index et non les noms des champs qui le composent !

Sinon, utilise un Locate

[amtdev]

Mais là j'ai un index multiple (codep et codemp). Même avec locate çà ne fonctionne pas. Je reçois le message "champ index nul" ou quelque chose comme çà. C

[ShaiLeTroll]

Il faut le nom de l'index, codep c'est un nom de champ, il faut mettre le nom de l'index (le nom dans le module de DB de Delphi)

Pour Locate, pas besoin d'index

Code :

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

dm.necessite.Locate('codep;codemp', VarArrayOf([dm.produitcodep.Value,dm.mpcodemp.Value]), [])

[ShaiLeTroll]

Tu as du modifier plusieurs choses dans le code qui nuisent au programme, as tu mis quelques choses dans IndexName, oui ou non ? est-ce que IndexDefs est bien renseigné ? as tu mis quelques choses dans IndexFieldNames, oui ou non ? il faut se poser toutes ces questions, dans l'aide tu trouveras la description de chaque propriété, surement un conflit entre l'une d'elle ou incohérence vis-à-vis de la table, ... j'ignore si tu modifie ces propriétés dans le code, si oui, lance ta fonction de test de FindKey juste après l'ouverture de la table, d'ailleurs tu devrais supprimer le composant TTable et en remettre un tout neuf et ne changeant que le DataBaseName et le TableName ... perso, je n'utilise jamais les TField pré-déclarés, je préfère FieldByName même si cela fait un peu de calcul, ce amène bcp moins de soucis si ta table évolue ...

Quel est le message exact ?
Fait Crtl + C quand l'erreur s'affiche, cela copie le message dans le presse papier, bien utile pour avoir le message exact ...

Ces index existe-t-il vraiement dans la table, ...

[amtdev]

Enfin c'est réglé. Il fallait juste ajouter un autre composant table. Parce que celui que j'utilise est déjà relié à la table 'produit'.
En d'autres termes il fallait supprimer la liaison avec la table 'produit' (propriété MasterSource du composant table de la table necessite qui été définie pour la table produit). Merci beaucoup pour votre aide.

[ShaiLeTroll]

Effectivement, les relations MasterSource sont toujours à surveiller, avec un peu de recul et la de methode, on finit toujours par trouver ...