Discussion :

[sasaas]

bonsoir

j'essai d'ajouter des valeur à ma table de la façon suivante lors du click d'aun bouton:
DM1.IBQajoutclient.Active:=false;
DM1.IBQajoutclient.Params[1].value:=editnomclient.text;
DM1.IBQajoutclient.Params[2].value:=editprenomclient.text;
DM1.IBQajoutclient.Params[3].value:=editadresseclient.text;
DM1.IBQajoutclient.Params[4].value:=edittelclient.text;
DM1.IBQajoutclient.Params[5].value:=editfaxclient.text;
DM1.IBQajoutclient.Params[6].value:=editgsmclient.text;
DM1.IBQajoutclient.Params[7].value:=editemailclient.text;
DM1.IBQajoutclient.Params[8].value:=editcodeclient.text;
DM1.IBQajoutclient.Active:=true;

tous marche trés bien jusqu'aumoment ou je valide l'ajout, il me génère l'erreur 'list index out of bounds(8)'
sachant que ma table contienne 8 champs!!!

[anapurna]

salut

tu depasse la liste de tes paramettre
le premier indice commence a 0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
DM1.IBQajoutclient.Active:=false;
DM1.IBQajoutclient.Params[0].value:=editnomclient.text;
DM1.IBQajoutclient.Params[1].value:=editprenomclient.text;
DM1.IBQajoutclient.Params[2].value:=editadresseclient.text;
DM1.IBQajoutclient.Params[3].value:=edittelclient.text;
DM1.IBQajoutclient.Params[4].value:=editfaxclient.text;
DM1.IBQajoutclient.Params[5].value:=editgsmclient.text;
DM1.IBQajoutclient.Params[6].value:=editemailclient.text;
DM1.IBQajoutclient.Params[7].value:=editcodeclient.text;
DM1.IBQajoutclient.Active:=true;

@+ Phil