Discussion :

[f5jcg_Lulu]

Bonjour à tous,
J'ai un nouveau problème à vous soumettre. Contexte : BDD Sqlite gérée par Delphi 10.2 et contrôles Zeos.
Tout le monde connaît l'instruction UPDATE :

UPDATE table SET nom_colonne_1 = 'nouvelle valeur' WHERE condition

Question : comment renseigner 'nouvelle valeur' lorsque cette valeur est le contenu d'une zone de saisie genre TEdit ou autre ?
Pourquoi ce code ne fonctionne-t-il pas ?

Code :

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

1
2
3
4
5
6
7
 
With Datas.QCumul do
  begin
    SQL.Clear;
    SQL.Text := 'UPDATE tblCumul SET Total LIKE' + QuotedStr(edtMontant.Text + '%') + 'WHERE Num_compte = 9000'';
    ExecSql;
end;

Dernière minute : ce code-ci fonctionne très bien

Code :

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

1
2
3
4
5
6
7
 
With Datas.QCumul do
  begin
    SQL.Clear;
    SQL.Text := 'UPDATE tblCumul SET Total = ' + QuotedStr(edtMontant.Text) + 'WHERE Num_compte = 9000';
    ExecSql;
end;

Donc maintenant autre question : les montants doivent se cumuler dans Total au fur et à mesure des enregistrements. Comment faire ?
Voilà c'est tout.
Merci.
Bonnes fêtes de fin d'année à tous

[der§en]

Regardes du côté des TRIGGERS: https://www.sqlite.org/lang_createtrigger.html ou en fonction de la structure de ta base, tu peux aussi regarder du côté des champs calculés !

[ShaiLeTroll]

Si edtMontant contient le montant incremental et non le cumul, suffit de le faire ainsi :

Code :

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

'UPDATE tblCumul SET Total = Total +' + QuotedStr(edtMontant.Text) + 'WHERE Num_compte = 9000';

un SQL comme celui-ci dessus sera similaire à celui que l'on définirait dans un TRIGGER

Sinon manipuler des nombres en texte, cela peut être délicat en fonction du séparateur décimal

Tu devrais utiliser des paramètres, une valeur venant d'un Edit peut être mal saisie, pire on pourrait faire une injection SQL comme '10 #', cela permet de supprimer le WHERE, ta compta serait totalement détruite par ce simple texte non contrôlé

Code :

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

1
2
SQL.Text := 'UPDATE tblCumul SET Total = Total + :pMontant WHERE Num_compte = 9000';
ParamByName('pMontant').AsFloat := StrToFloat(edtMontant.Text); // ou StrToFloatDef,

[f5jcg_Lulu]

Merci ShaiLeTroll. Bizarrement j'avais trouvé la 1ère solution qui fonctionne parfaitement.
Je n'ai pas encore essayé la solution avec les paramètres. J'arrête là pour ce soir.
Cordialement et bonnes fêtes

[SergioMaster]

Bonjour,
Toujours privilégier, même en SQLite et donc mono-utilisateur, l'utilisation de paramètres.

Par contre, j'aurais à redire sur le fait que la colonne soit un string au lieu d'être NUMERIC.
Pourquoi ? Simple, imaginons que tu veuilles faire un SELECT * FROM TABLCUMUL ORDER BY pMontantet j'ai aussi à redire sur cette table qui, AMHA, n'a pas sa place dans la BDD. Le cumul des montants, à mon avis, c'est la somme des versements/opérations, donc un

Code SQL :

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

SELECT SUM(Montant) FROM tblVersements where Num_compte = 9000

ou encore, ce SQL

Code SQL :

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

SELECT NUM_COMPTE,SUM(Montant) FROM tblVersements GROUP BY NUM_COMPTE

qui serait l'équivalent de TablCumul