Discussion :

[menoulette]

je cherche à exécuter une requête insert + une condition mais j'y arrive pas !! voilà ce que j'ai fait

Code :

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

1
2
3
4
5
 
insertion.SQL.Clear;
        insertion.sql.add('Insert into calcul_chapi(BSD)values('+quotedstr(DBEDit4.Text)+')where dateBP ='+quotedstr(EDit1.Text)+'and code_chapitre ='+quotedstr(EDit4.Text)+'');
        insertion.ExecSQL;
        insertion.Close;

mais y'a quelque chose qui cloche dans ma requête !!!

merci d'avance
cordialement

[SergioMaster]

Bonsoir

La première chose qui cloche est certainement le non emploi de paramètre surtout lorsqu'il s'agit de dates

on peut revoir le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
// Pas besoin de Clear si une seule ligne 
insertion.sql.Text:='Insert into calcul_chapi(BSD) values(:A) where dateBP =:D and code_chapitre =:C'
 
insertion.ParamByName('A').asString:=DBEDit4.Text;
// pour la date , préférer un datetimePicker 
insertion.ParamByName('D').asDatetime:=Datetimepicker.date; 
insertion.ParamByName('C').asString:=EDit4.Text;
insertion.ExecSQL;
// pas besoin de  insertion.Close;

[menoulette]

Bonsoir

La première chose qui cloche est certainement le non emploi de paramètre surtout lorsqu'il s'agit de dates

on peut revoir le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
// Pas besoin de Clear si une seule ligne 
insertion.sql.Text:='Insert into calcul_chapi(BSD) values(:A) where dateBP =:D and code_chapitre =:C'
 
insertion.ParamByName('A').asString:=DBEDit4.Text;
// pour la date , préférer un datetimePicker 
insertion.ParamByName('D').asDatetime:=Datetimepicker.date; 
insertion.ParamByName('C').asString:=EDit4.Text;
insertion.ExecSQL;
// pas besoin de  insertion.Close;

Bonsoir Monsieur,
Tout d'abord merci pour votre réponse et vos conseils en or en fin j'ai essayé ce code là mais j'ai un message me disant que la requête doit être construite à partir d'au moins une table ou une requête source !!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
insertion.sql.Text:='Insert into calcul_chapi(BSD) values(:A) where dateBP =:D and code_chapitre =:C';
 insertion.Parameters.ParamByName('A').DataType:= ftCurrency;
insertion.Parameters.ParamByName('A').Value:= StrtoCurr(DBEDit4.Text);
insertion.Parameters.ParamByName('D').DataType:=ftString;
insertion.Parameters.ParamByName('D').Value:=edit1.text;
insertion.Parameters.ParamByName('C').DataType:=ftString;
insertion.Parameters.ParamByName('C').Value:=EDit4.Text;
insertion.ExecSQL;

????
Mrci d'avance

[SergioMaster]

Au vue de l'écriture c'est donc ADO .

Je n'avais pas fait attention au fait que c'était un Insert (et ce malgré le titre , et j'ai donc répondu (trop) rapidement , un Insert ne peut avoir de clause WHERE sauf dans le cas ou l'on passe un ensemble d'enregistrements

Code :

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

1
2
 
INSERT INTO TABLE1 (C1,C2,C3) SELECT C1,C2,C3 FROM TABLE2 WHERE ....

[menoulette]

Au vue de l'écriture c'est donc ADO .

Je n'avais pas fait attention au fait que c'était un Insert (et ce malgré le titre , et j'ai donc répondu (trop) rapidement , un Insert ne peut avoir de clause WHERE sauf dans le cas ou l'on passe un ensemble d'enregistrements

Code :

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

1
2
 
INSERT INTO TABLE1 (C1,C2,C3) SELECT C1,C2,C3 FROM TABLE2 WHERE ....

je veux ajouter dans la table calcul_chapi la valeur du (budgetS) dans un chapitre donné et une date donnée comment je peux écrire cette requête !!! j'ai essayé ce code sql

Code :

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

1
2
 
insertion.sql.add('Insert into calcul_chapi(BSD) values(:A )select BSD from calcul_chapi where dateBP = :D and code_chapitre = :C');

mais ça ne marcher pas
De l'aide s'il vous plait merci d'avance

[SergioMaster]

Code :

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

insertion.sql.text:='Insert into calcul_chapi(BSD) select BSD from calcul_chapi where dateBP = :D and code_chapitre = :C'

[menoulette]

Code :

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

insertion.sql.text:='Insert into calcul_chapi(BSD) select BSD from calcul_chapi where dateBP = :D and code_chapitre = :C'

cette requête m'ajoute toute une ligne vide !!

[SergioMaster]

Bonjour,
Premièrement , je ne sais pas quel SGBD vous utilisez donc la syntaxe est celle de Firebird et je n'ai fais que corriger votre SQL , pas la logique de ce dernier.
A quoi correspond quotedstr(DBEDit4.Text) je n'ai aucun moyen de le savoir

Secundo , vous ne fournissez pas de description de table qui permettrai de mieux saisir le problème

Et enfin , pourquoi ne testez vous pas ces requêtes hors de Delphi via un GUI de votre SGBD ?