Discussion :

[fpascal]

Bonjour,

Je commance tout de suite par le 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
16
17
18
Tvvt->Active=true;
Tvvt->First();
p=Tvvt->Fields->Fields[2]->Value;
for (i=1;i<(Tvvt->FieldCount);i++)
{
 Tvvt->Next();
 s=Tvvt->Fields->Fields[2]->Value;
 ac=0;
 if ((p<s) && (s>2048))
  ac=1;
 if ((p<s) && (s<2048))
  ac=1;
 if ((p>2048) && (s>2048))
  ac=1;
 Tvvt->Edit();
 Tvvt->Fields->Fields[4]->Value=ac;
 p=s;
}

Tvvt et une TTable de maniére à acéder à une table MySql via BDE.

Losque j'exécute se code j'ai comme erreur sur le Tvvt->Edit(); :

Editin imposible, car un autre utilisateur a modifié l'enregistrement.

Me conaisant, j'ai oublier une suptilité, mais je n'arrive à trouvé quoid.

[sat83]

Essai en modifiant la propriété Updatemode de ton composant TTable et en le mettant à upwherechanged

[fpascal]

Essai en modifiant la propriété Updatemode de ton composant TTable et en le mettant à upwherechanged

Sa change rien. méme erreur.

[Sunchaser]

Bonjour,

Il te manque un:

Code :

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

1
2
 
Post();

après avoir modifié les valeurs du ou des enregistrements.

Edit / Post: couple inséparable ...

@+

[fpascal]

Bonjour,

Il te manque un:

Code :

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

1
2
 
Post();

après avoir modifié les valeurs du ou des enregistrements.

Edit / Post: couple inséparable ...

@+

J'ai rajouter le post(), mais l'erreur et toujours la. :-(

[Sunchaser]

Il y a un truc qui me semble "bizarre", vu de loin, dans ta manière de passer en revu les champs de la table:
. du fait un "First()" avant ta boucle for
. ta boucle for va de 1 a FieldCount, mais je ne vois nulle par en quoi sert la variable "i" (qui est bien incrémentée, elle, dans la boucle)
. a chaque itération, tu fais un "Next()", tu "descends" donc d'une ligne dans la table

J'ai l'impression, mais je peut me tromper et je m'en excuse d'avance, que tu voudrais utiliser qqchose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Tvvt->First();
while (! Tvvt->Eof)
{
     // ton code ici
     Tvvt->Edit();
          Tvvt->Fields->Fields[4]->Value = //... etc
     Tvvt->Post();
Tvvt->Next();
}

@+

[fpascal]

Il y a un truc qui me semble "bizarre", vu de loin, dans ta manière de passer en revu les champs de la table:
. du fait un "First()" avant ta boucle for
. ta boucle for va de 1 a FieldCount, mais je ne vois nulle par en quoi sert la variable "i" (qui est bien incrémentée, elle, dans la boucle)
. a chaque itération, tu fais un "Next()", tu "descends" donc d'une ligne dans la table

J'ai l'impression, mais je peut me tromper et je m'en excuse d'avance, que tu voudrais utiliser qqchose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Tvvt->First();
while (! Tvvt->Eof)
{
     // ton code ici
     Tvvt->Edit();
          Tvvt->Fields->Fields[4]->Value = //... etc
     Tvvt->Post();
Tvvt->Next();
}

@+

le for et la, car j'ai changer d'idée en cour de route, et j'ai pas changer ma boucle. S'est vrais que sa serait peut étre plus "propre" avec un while.

j'attire ton attention sur le next au début de la boucle, car je lit une foit avans de rentré dans la boucle. Vue que le but de ce bout de code et de conparait une variable avec sa valleur présédante, dout le faite que mon i comance à 1 au lieu de 0. Je traite tous les enregistrement, sauf le 1er.

Mais sa ne change rien au faite que l'edit provoque une erreur.