Erreur : Ecrire dans une BD

**fpascal** · 03/12/2008, 11h54

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** · 03/12/2008, 12h09

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

**fpascal** · 03/12/2008, 12h37

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.

**Sunchaser** · 03/12/2008, 12h38

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** · 03/12/2008, 13h00

Envoyé par 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 ...

@+

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

**Sunchaser** · 03/12/2008, 16h04

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** · 03/12/2008, 16h28

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 :

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.

**Sunchaser** · 03/12/2008, 18h06

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.

++

**fpascal** · 04/12/2008, 09h25

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

Code :

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

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.

**Sunchaser** · 04/12/2008, 17h49

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:

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 ?

@+

**fpascal** · 05/12/2008, 10h10

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.

**fpascal** · 05/12/2008, 10h29

j'ai réduit mon programme à sa plus sinple expresion, il reste comme code actif :

Code :

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

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. :-(

**Sunchaser** · 05/12/2008, 11h52

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 ?

++

**sat83** · 05/12/2008, 11h52

- 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?

**fpascal** · 05/12/2008, 13h46

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

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
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;
}