Erreur : Ecrire dans une BD

Version imprimable

Bonjour,

Je commance tout de suite par le code :
Code:

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(); :

Citation:

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

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

03/12/2008, 12h09
sat83

Essai en modifiant la propriété Updatemode de ton composant TTable et en le mettant à upwherechanged
03/12/2008, 12h37
fpascal

Citation:

Envoyé par sat83

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

Sa change rien. méme erreur.
03/12/2008, 12h38
Sunchaser
Bonjour,

Il te manque un:
Code:

1 2 Post();
après avoir modifié les valeurs du ou des enregistrements.

Edit / Post: couple inséparable ...

@+
;)
03/12/2008, 13h00
fpascal
Citation:
Envoyé par Sunchaser

Bonjour,

Il te manque un:

Code:

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. :-(
03/12/2008, 16h04
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:

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(); }
@+
;)
03/12/2008, 16h28
fpascal
Citation:
Envoyé par 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:

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.
03/12/2008, 18h06
Sunchaser

Oui, mais ce que je ne comprends pas (mais je me fais vieux et sénile), c'est que FieldCount te renvoie le nombre de champs dans la table, et non pas le nombre d'enregistrements (je ne sais comment l'appeler: de lignes, de tuples, que sais je) dans la table.
A moins que je me plante sur FieldCount ...

Donc si tu as 10 champs, et 7 enregistrements, ca va pas aller; pas plus que si tu as 10 champs et 10 000 enregistrements, va y avoir un paquet d'oublié.

Après, avec le BDE, as tu utilisés un objet TDataBase, sur lequel tu ferais un StartTransaction() - une fois - avant la section contient les appels a Edit(), puis un Commit() a la fin ? Je ne dis pas que ca peut absolument venir de la, d'ailleurs.

++
;)
04/12/2008, 09h25
fpascal

oups, je devais avoire la téte ailleur quand j'ai fait ma boucle.
S'est corrigé :

Code:

for (i=1;i<(Tvvt->RecordCount);i++)

Je reste avec le for, car j'airai besoin du i apres.
Merci, je demande de résoudre une erreur, et on m'en résou une en prime que je n'avais pas encore vue.

Pour le BDE. Je suis pas sur de comprendre se que tu demande. j'ai bien un Tdatabase, mais je ne fait rien direct dessus. Avans se bout de code, la seul chose que je fait avec ma BD et l'envoy d'un requéte sql via un TQuery. J'ai esseyer de comanté tous se qu'y se passe avans ma boucle avec l'edit dans le programme, et le probléme persiste.
04/12/2008, 17h49
Sunchaser

Salut,
Désolé, j'avoue que je ne vois pas.
Entre ce qui avait été proposé par sat83, un Post() qui suit bien le Edit(), si toutes les propriétés de l'objet TTable sont correctement renseignées et qu'il pointe vers une table valide, etc ... ben, je sais po.
D'ici, je vois pas, ca serais peut être plus facile d'avoir le nez dessus.

Je te conseille tout de même de jeter un oeil dans l'aide au sujet de StartTransaction() et Commit() de TDataBase, ca me semblais utile dans le cas ou on utilisais les objets du BDE; mais ca n'a rien a voir avec ton problème, je sais.

Au fait:

Citation:

et l'envoy d'un requéte sql via un TQuery

Elle concerne la table en question, ta requête ? Si oui, elle fait quoi dessus ?

@+
;)
05/12/2008, 10h10
fpascal

Ma requéte fait un update sur la table. Mais le probléme ne vien pas de la : j'ai suprimer le Tquery et commanté tous le reste du programe, et le probléme persiste.

J'ai tester avec un TDBnavigator, et il n'arrive pas non plus à faire rentré la table en mode édition.
05/12/2008, 10h29
fpascal
j'ai réduit mon programme à sa plus sinple expresion, il reste comme code actif :
Code:

1 2 3 4 5 6 Database1->Connected=true; Database1->StartTransaction(); Tvvt->Active=true; Tvvt->Edit(); Tvvt->Post(); Database1->Commit();
Le programme s'arréte au edit et ne vas pas plus loingt. :-(
05/12/2008, 11h52
Sunchaser

Bonjour,

On est bien d'accord que des propriétés telles que CanModify ou ReadOnly ne bloquent pas ?

Au fait, je ne connais pas mySQL donc je me pose la question: est ce que les composants "classique" du BDE tels que TTable et cie sont bien adaptés ?
N'est ce pas vers les composants DBExpress qu'il fallait se tourner ?

++
;)
05/12/2008, 11h52
sat83

- Est ce que tu as les droit suffisant pour modifier ta table?
- Est ce que ta table n'est pas en lecture seule ou un truc du genre?

Voila, vus que je ne trouvé pas de solution malgré toute vos "piste", j'ai désider de contourné le probléme. :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Tvvt->Active=true;
Tvvt->First();
p=Tvvt->Fields->Fields[2]->Value;
for (i=1;i<(Tvvt->RecordCount);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;
 Query1->SQL->Add("UPDATE VVT SET  `ac`=' "+IntToStr(ac)+"' ");
 Query1->SQL->Add("WHERE `date` = '"+Tvvt->Fields->Fields[0]->Value+"' AND `time` = '"+Tvvt->Fields->Fields[1]->Value+"'");
 Query1->ExecSQL();
 Query1->SQL->Clear();
 p=s;
}

S'est peut étre pas tres jolis, Mais au moin sa marche.
Merci de votre aide

05/12/2008, 14h23
sat83

Citation:

Envoyé par fpascal

S'est peut étre pas tres jolis, Mais au moin sa marche.

Pour ma part je trouve l'utilisation de TQuery beaucoup plus propre et beaucoup plus "jolie" que l'utilisation de TTable.