Discussion :

[mimiferry]

Bonjour tout le monde ,

J'aimerai savoir comment faire une incrémentation sur enregistrements d'une table de données,

Ma table Article [Id_article_t, Code_article_t, Designation_t, Prix_unitaire_t, Nbr_article_t]

Quand j'insère un article, je fais tout simplement comme ceci :

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
//ADOTable3 =table_article
 
Var SlearnerID1 : String;
begin
 
 With ADOTable3 do
 
     begin
 
       SlearnerID1 := Id_cot.Text;  //(Id_code)
 
      ADOTable3.Insert ;
 
      ADOTable3['Id_article_t'] := Id_article.Text;
      ADOTable3['Code_article_t'] := Code_article.Text ;
      ADOTable3['Designation_t'] := DBLookupComboBox1.Text ;
      ADOTable3['Prix_unitaire_t'] := StrToFloat(Prix_unitaire.Text) ;
 
      ADOTable3['Nbr_article_t'] := Nbr_article.Text ;
 
 
      ADOTable3.Post ;
 
      end;
end;

jusqu'à la rien de magie et tout fonctionne bien
Mais dans la mesure ou je devrai insérer un articale déja existant dans la table, plutôt qu'il s'affiche comme doublant, j'aimerai l'incrémenter celui-ci
c'est a dire faire la mise a jour : afficher la désignation et le code une SEULE FOIS mais additionner le prix et le nombre d'article

j'ai essayé ceci ci mais ça fonctionne pas :

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
Var SlearnerID1 : String;
begin
 
 With ADOTable3 do
 
     begin
 
 
       SlearnerID1 := Id_cot.Text;  //(Id_code)
 
      if Id_article.Text = ADOTable3['Id_article_t'] then 
 
        begin
 
           ADOTable3.Insert ;
 
           ADOTable3['Id_article_t'] := Id_article.Text;
 
           ADOTable3['Code_article_t'] := Code_article.Text ;
           ADOTable3['Designation_t'] := DBLookupComboBox1.Text ;
 
           ADOTable3['Prix_unitaire_t'] := ADOTable3['Prix_unitaire_t'] + StrToFloat(Prix_unitaire.Text) ;
 
           ADOTable3['Nbr_article_t'] := ADOTable3['Nbr_article_t'] + Nbr_article.Text ;
 
 
           ADOTable3.Post ;
 
        end;
 
      end;
end;

Y'a t il une meilleure façon de faire ? Merci d'avance

[Andnotor]

En supposant que tu pointes déjà sur la bonne entrée, c'est un Edit et non un Insert.

Mais ton approche est plutôt surprenante puisque le prix unitaire ne le sera plus

[ShaiLeTroll]

Ce n'est pas plutôt une table de lignes de commande ?
Article cela semble plus faire penser à une table listant les articles disponible, le catalogue
Vu la structure on dirait plutôt un ligne de commande\facture
La table semble mal nommée

Locate pour retrouver la bonne ligne puis Edit() au lieu de Insert()


Sinon pourquoi un ADOTable ? c'est du ACCESS ?
Sinon un SQL avec TQuery serait plus adéquat la mise à jour serait plus facile d'ailleurs

ID est une chaine, très douteux !

Effectivement, il faudrait éclaircir si Prix_unitaire_t est un Prix Unitaire ou le montant total de la ligne c'est à dire toujours une valeur calculable "Prix Unitaire x Quantité"

Je ne suis pas fan de l'utilisation des variants, je préfère faire explicitement un ParamByName().AsFloat par exemple

Code :

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

1
2
3
4
5
6
7
  if ADOTable3.Locate('Id_article_t', VarArrayOf([Id_article.Text]), []) then 
  begin
    ADOTable3.Edit();
    ADOTable3['Prix_unitaire_t'] := ADOTable3['Prix_unitaire_t'] + StrToFloat(Prix_unitaire.Text) ; // Conversion implicite de Variant, cela semble étrange, c'est un total non ?
    ADOTable3['Nbr_article_t'] := ADOTable3['Nbr_article_t'] + StrToInt(Nbr_article.Text); // Conversion implicite de Variant
    ADOTable3.Post ;
  end;