Discussion :

[Pascal AFATONDJI]

Bonjour le forum.
Aidez moi à contrôler la clé d'une table à 3 champs dans le boucle while. J'ai utilisé findkey mais ça ne marche pas correctement

[pprem]

Bonjour

Un indice sur la structure de la table, le type de boucle, le traitement qui y est fait ?

[Pascal AFATONDJI]

Stocker ( codpro,DatStock,heure,
Nature,QteIni,Qte,QteFin)
La boucle est lié à une table tampon que j'ai créé mais qui prends les données qui correspondent aux données de la table stocker

[Pascal AFATONDJI]

La clé est Codpro, datstock, nature

[SergioMaster]

Bonjour,

Contrôler une clé Qu'est-ce que vous entendez par là ?

La boucle est liée à une table tampon que j'ai créé mais qui prends les données qui correspondent aux données de la table stocker

légère éclaircie dans le flou du premier post il s'agirait donc de savoir si le triplet Codpro, datstock, nature existe déjà dans la table cible.

donc, en consultant ma boule de cristal pas complétement cassée la matin je vois un traitement de ce type

tant que source n'est pas en fin de fichier
faire
si destination existe alors traitement en modification sinon traitement en insertion
enregistrement suivant de source
fin faire

et vous auriez des difficultés avec la partie "si destination existe" que vous traitez en utilisant un findkey.

Cette technique de findkey aurait pu fonctionner sur un fichier Paradox ou si toute la table destination avait été chargée dans un Dataset, mais dans le cadre d'un SGBD cela n'est pas forcément le cas (ni le besoin) de plus le SQL existe autant s'en servir

Remplacez findkey par sur une table par Select dans une requête paramétrée exemple :
SELECT Codpro, datstock, nature from Stocker where codepro=:c and datastock=:d and nature:=nsi codepro est null, ou le nombre d'enregistrement=0 alors la clé n'existe pas

bien sûr toute la phrase

si destination existe alors traitement en modification sinon traitement en insertion

peut aussi se traiter de manière plus "SQL" exemple

Code SQL :

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

1
2
INSERT INTO table (Codpro,datstock,heure,nature,QteIni,Qte,qtefin) VALUES(:code,:datestock,:heure,:nature,:qteini,:qte,:qtefin) 
ON DUPLICATE KEY UPDATE ...Qte=Qte+:qte, <autres>

Remarquez l'utilisation extensive de paramètres

Attention quand même, je ne suis pas un spécialiste MySQL et le DUPLICATE KEY doit certainement s'appliquer sur une clé unique , lisez la doc
ma boule de cristal ne sait pas lire

En conclusion : Donner toutes les informations dans votre demande apportera de bien meilleures réponses

[ALWEBER]

Peut être faire une requête via un select distinct sur les trois première colonne citées et des fonction d'agrégation pour les autres colonnes

[Pascal AFATONDJI]

Justement c'est ce que ça affiche comme message quand je lance l'exécutable "duplicate key" et ça bloque le processus en cours. Au faites dans la boucle de la table tampon le champ codpro de la table stocker prend la valeur code de la table tampon pour faire le contrôle. Ce qui n'a pas marché. Utiliser Query n'est pas la solution.

[SergioMaster]

Tant que vous ne nous mettrez pas un tant soit peu de votre code nous ne pourrons que spéculer !

[Pascal AFATONDJI]

Je vous envoie le code écris alors :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Tampon1.First;
While not Tampon1.Eof do
begin
If Produit.FindKey([Tampon1.Fields[0].asstring]) then
begin
Produit.Edit;
Produit.FieldByName('Stock').AsFloat := Produit.FieldByName('Stock').AsFloat-Tampon1.Fields[3].asfloat;
Produit.Post;
end;
Vente.AppendRecord([Edit5.Text, Tampon1.Fields[0].AsString, Tampon1.Fields[3].AsFloat, Tampon1.Fields[5].Asfloat, Tampon1.Fields[6].Asfloat]);
som := som + Tampon1.Fields[6].AsInteger;
//Tot := Tot + Tampon1.Fields[7].AsInteger;
tampon.First;
while not tampon.Eof do
begin
if (tampon.FieldByName('CodTam').AsString = Tampon1.Fields[0].asstring)then
begin
tampon.Edit;
tampon.Fields[3].AsFloat := tampon1.FieldByName('QteFin').AsFloat;
tampon.Post;
break;
end
else
tampon.Next;
end;
Stocker.First;
if Stocker.FindKey([Tampon1.Fields[0].AsString, Datetimepicker1.DateTime, 'Sortie']) then
begin
Stocker.Edit;
Stocker.FieldByName('Qte').AsFloat := Stocker.FieldByName('Qte').AsFloat + tampon1.FieldByName('Qte').AsFloat;
Stocker.FieldByName('QteFin').AsFloat := tampon1.FieldByName('QteFin').AsFloat;
Stocker.FieldByName('Heure').AsString := edit12.Text;
Stocker.Post;
end
else
begin
Stocker.Insert;
Stocker.FieldByName('CodPro').AsString := Tampon1.Fields[0].AsString;
Stocker.FieldByName('DatStock').AsDateTime := Datetimepicker1.DateTime;
Stocker.FieldByName('Heure').AsString := edit12.Text;
Stocker.FieldByName('Nature').AsString := 'Sortie';
Stocker.FieldByName('QteIni').AsFloat := tampon1.FieldByName('QteIni').AsFloat;
Stocker.FieldByName('Qte').AsFloat := tampon1.FieldByName('Qte').AsFloat;
Stocker.FieldByName('QteFin').AsFloat := tampon1.FieldByName('QteFin').AsFloat;
Stocker.Post;
end;
Tampon1.Next;
end;

[Pascal AFATONDJI]

Je vous envoie le code écris alors :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Tampon1.First;
While not Tampon1.Eof do
begin
If Produit.FindKey([Tampon1.Fields[0].asstring]) then
begin
Produit.Edit;
Produit.FieldByName('Stock').AsFloat := Produit.FieldByName('Stock').AsFloat-Tampon1.Fields[3].asfloat;
Produit.Post;
end;
Vente.AppendRecord([Edit5.Text, Tampon1.Fields[0].AsString, Tampon1.Fields[3].AsFloat, Tampon1.Fields[5].Asfloat, Tampon1.Fields[6].Asfloat]);
som := som + Tampon1.Fields[6].AsInteger;
//Tot := Tot + Tampon1.Fields[7].AsInteger;
tampon.First;
while not tampon.Eof do
begin
if (tampon.FieldByName('CodTam').AsString = Tampon1.Fields[0].asstring)then
begin
tampon.Edit;
tampon.Fields[3].AsFloat := tampon1.FieldByName('QteFin').AsFloat;
tampon.Post;
break;
end
else
tampon.Next;
end;
Stocker.First;
if Stocker.FindKey([Tampon1.Fields[0].AsString, Datetimepicker1.DateTime, 'Sortie']) then
begin
Stocker.Edit;
Stocker.FieldByName('Qte').AsFloat := Stocker.FieldByName('Qte').AsFloat + tampon1.FieldByName('Qte').AsFloat;
Stocker.FieldByName('QteFin').AsFloat := tampon1.FieldByName('QteFin').AsFloat;
Stocker.FieldByName('Heure').AsString := edit12.Text;
Stocker.Post;
end
else
begin
Stocker.Insert;
Stocker.FieldByName('CodPro').AsString := Tampon1.Fields[0].AsString;
Stocker.FieldByName('DatStock').AsDateTime := Datetimepicker1.DateTime;
Stocker.FieldByName('Heure').AsString := edit12.Text;
Stocker.FieldByName('Nature').AsString := 'Sortie';
Stocker.FieldByName('QteIni').AsFloat := tampon1.FieldByName('QteIni').AsFloat;
Stocker.FieldByName('Qte').AsFloat := tampon1.FieldByName('Qte').AsFloat;
Stocker.FieldByName('QteFin').AsFloat := tampon1.FieldByName('QteFin').AsFloat;
Stocker.Post;
end;
Tampon1.Next;
end;

[ShaiLeTroll]

Locate serait plus lisible ! non ?
Avez-vous vérifier in IndexName ou IndexFieldNames qu'ils sont bien comme prévu pour FindKey

Il ne serait pas plus simple d'écrire un script SQL avec quelques paramètres, au besoin une table temporaire ?
Cela sera en plus nettement plus performant pour ce type de recodage de masse

[sergio_is_back]

Justement c'est ce que ça affiche comme message quand je lance l'exécutable "duplicate key" et ça bloque le processus en cours. Au faites dans la boucle de la table tampon le champ codpro de la table stocker prend la valeur code de la table tampon pour faire le contrôle. Ce qui n'a pas marché. Utiliser Query n'est pas la solution.

C'est un peu normal !!!

Les blocs try except c'est fait pour ça... Mais je vois dans ton code qu'il n'y en a pas... Donc la procédure en cours d'exécution stoppe tout simplement sur l'erreur
Et tu n'a pas de transaction non plus, bonjour l'intégrité de ta base...

On doit fait ceci lorsque l'on traite des mises à jour de base de données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
try
// Début de transaction
// Boucle
// Execution des requêtes ici
// Fin de boucle
// Validation de la transaction
except on E:Exception do
    begin
    // Annuler la transaction
    // Traiter l'erreur (affiche un message, autre traitement, etc...
    end;
end;

Après faut lire aussi la doc MySQL...

Comme te l'a dit SergioMaster plus haut : INSERT IGNORE et INSERT... ON DUPLICATE UPDATE... ça doit bien servir à quelque chose... Ou alors ils l'ont juste fait pour se faire plaisir à toi de voir....