Discussion :

[lecongolais]

salut,

J'aimerais mettre à jour un enregistrement précis de ma table Paradox mais n'y arrive pas. Lorsque j'utilise la méthode suivante, il modifie le premier enregistrement de ma table:
Table.EditKey;
table.Fieldbyname('nom').AsString:='mmmm';
table.gotokey;

Et lorsque j'utilise Tquery il me dit qu'il y a une "différence de type" mais j'ai bien vérifié tous les paramètres et les types correspondent:

uDM.QueryDiminutionStockControle.Active;
uDM.QueryDiminutionStockControle.SQL.Clear;
uDM.QueryDiminutionStockControle.SQL.add('UPDATE controleDepot SET ENTREE=:NewQuantite WHERE PRODUIT=:produit AND POIDS=:poids AND STATUT like :statut3');
uDM.QueryDiminutionStockControle.ParamByName('produit').AsString:=sproduit.text;
uDM.QueryDiminutionStockControle.ParamByName('poids').AsString:=spoids.text;
uDM.QueryDiminutionStockControle.ParamByName('statut3').AsString:='C';
uDM.QueryDiminutionStockControle.ParamByName('NewQuantite').AsInteger:=StrToInt(q.Caption)-StrToInt(sortie.Text);
uDM.QueryDiminutionStockControle.ExecSQL;

Je me demande là où se trouve l'erreur.

Merci d'avance.

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With uDM.QueryDiminutionStockControle do
begin
  Close;
  SQL.Clear;
  SQL.add('UPDATE controleDepot SET ENTREE=:NewQuantite WHERE PRODUIT=:produit AND POIDS=:poids AND STATUT like :statut3');
  ParamByName('produit').AsString:=sproduit.text;
  ParamByName('poids').AsString:=spoids.text;
  ParamByName('statut3').AsString:='C';
  ParamByName('NewQuantite').AsInteger:=StrToInt(q.Caption)-StrToInt(sortie.Text);
  ExecSQL;
end;

Test en mettant à la place de Active, un Close

PS: Pense à utiliser le # pour la balise Code

[TicTacToe]

Une alternative sans requete SQL et si ta table est indexée sur le champ 'nom'

Code :

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

1
2
3
4
5
6
7
8
9
10
Table.Active := True; // optionnel si déjà fait
Table.CancelRange; // optionnel si aucun range préalable dessus
 
if Table.FindKey( [ 'mmm'] ) then
  begin
  Table.Edit;
  Table.FieldByName( 'Produit' ).AsString := SProduit.Text;
  etc...
  Table.Post;
  end;

bon code