Bonjour
j'ai une table paradox7 vide avec un champ de type date et 5 autre champ de type Alphanumerique
mon probleme c'est que je veux ajouter les consomation de chaque vehicule de tous les jours donc ajouter les donnée la première fois et apres ca dois etre que des update et tout ca derrière le meme bouton "mise a jour"
c.a.d pour chaque vehicule une requette insert pour la première fois et par la suite ca dois etre que des update
donc j pas su comment faire
voici le code
pour l'ajout:
et pour le update:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 fconsovehicule.qconsovehicule.close; fconsovehicule.qconsovehicule.sql.clear; fconsovehicule.qconsovehicule.sql.add('insert into consovehicule'); fconsovehicule.qconsovehicule.sql.add('(Dateajou,Vehicule,Consomation,Kilometrage_utilise,Kilometrage,Moiss)'); fconsovehicule.qconsovehicule.sql.add('values("'+formatdatetime('mm/dd/yyyy',t)+'","'+fgesttache.DBEvehicule.Text+'","'+fgesttache.DBEsumv.text+'","'+fgesttache.DBEKilomutilis.text+'","'+fgesttache.DBEKiloinit.text+'","'+fgesttache.emois.text+'")'); fconsovehicule.qconsovehicule.execsql;
Merci de me dire comment je dois fusioner ces deux requette pour que si un vehicule est inserer une première fois on pass a la requet de upadate directement toujours sous le meme boutton merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 fconsovehicule.qconsovehicule.SQL.Clear; fconsovehicule.qconsovehicule.SQL.Add('UPDATE consovehicule SET '); fconsovehicule.qconsovehicule.SQL.Add('Dateajou='+formatdatetime('mm/dd/yyyy',t)+','); fconsovehicule.qconsovehicule.SQL.Add('Vehicule='+fgesttache.DBLvehicule.Text+','); fconsovehicule.qconsovehicule.SQL.Add('Consomation='+fgesttache.DBEsumv.text+','); fconsovehicule.qconsovehicule.SQL.Add('Kilometrage_utilise='+fgesttache.DBEKilomutilis.text+','); fconsovehicule.qconsovehicule.SQL.Add('Kilometrage='+fgesttache.DBEKiloinit.text+','); fconsovehicule.qconsovehicule.SQL.Add('Moiss='+fgesttache.emois.text); fconsovehicule.qconsovehicule.SQL.Add('WHERE Vehicule='+fgesttache.DBLvehicule.Text); fconsovehicule.qconsovehicule.ExecSQL;
Partager