probleme Requete Update sous paradox

Version imprimable

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:
Code:

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;
et pour le update:
Code:

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;
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

13/07/2009, 16h10
Cl@udius

Salut

Une 1° remarque dans l'immédiat: le code présenté pour ta requête Ajout fait un Update. :koi:

Une erreur de copier/coller ?

@+ Claudius
13/07/2009, 16h19
toxicoakatox

Merci cl@udius j'ai changer la
13/07/2009, 16h52
Cl@udius
Citation:

Envoyé par toxicoakatox

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

Sous Paradox tu ne pourras pas fusionner ces 2 instructions SQL en une instruction unique (sachant que d'autres SGBD le permettent).

Donc pour résoudre ton problème, tu peux par exemple:
1. Tout d'abord vérifier la présence/absence de ton véhicule dans ta table (avec un locate par ex.)
2. Exécuter l'Insert ou l'Upate suivant le cas
ou bien
1. Effectuer d'abord un Update.
2. Si Echec de l'update (AffectedRows = 0), effectuer alors un Insert
Voilà pour le principe.

Ensuite je te conseillerais d'utiliser des requêtes paramétrées. Le code sera un peu plus long, mais plus lisible donc source de moins d'erreurs.
L'utilisation des paramètres est pratique notamment pour la transmission de valeur Date.

@+ Claudius
13/07/2009, 17h08
toxicoakatox
Citation:
Envoyé par Cl@udius

ou bien

Effectuer d'abord un Update.
Si Echec de l'update (AffectedRows = 0), effectuer alors un Insert
un grand merci a vous
mais je suis vraiment débutant dans ce domaine donc auriez vous la gentillesse de me faire un exemple avec le code que j'ai donner tout a l'heure merci beaucoup

Re,

Cela donne quelque chose comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  with FConsoVehicule.QConsoVehicule do
  begin
    Close;
    SQL.Clear;
    // Mise à jour des données
    SQL.Add('UPDATE consovehicule SET ');
    // etc...
    ExecSql;
 
    if RowsAffected = 0 then
    begin
      // Aucun enregistrement mis à jour: véhicule non trouvé
      // -> Insertion d'un nouvel enreg
      SQL.Clear;
      SQL.Add('INSERT INTO consovehicule');
      // etc...
      ExecSQL;
    end;
  end;

La propriété à examiner est RowsAffected et non AffectedRows comme indiqué dans mon précédent post.

@+ Claudius

13/07/2009, 17h35
toxicoakatox

Merci je vais tester et je vous tiens o courant

j'au un message d'erreur au niveau du matricule du vehicule au premier espace

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
with FConsoVehicule.QConsoVehicule do
  begin
    Close;
    SQL.Clear;
    // Mise à jour des données
    SQL.Add('UPDATE consovehicule SET ');
    sql.add('Set(Dateajou="'+formatdatetime('mm/dd/yyyy',t)+'",Vehicule="'+fgesttache.erecveh.Text+'",Consomation="'+fgesttache.DBEsumv.text+'",Kilometrage_utilise="'+fgesttache.DBEKilomutilis.text+'",Kilometrage="'+fgesttache.DBEKiloinit.text+'",Moiss="'+fgesttache.emois.text+'")');
    ExecSql;
 
    if RowsAffected = 0 then
    begin
      // Aucun enregistrement mis à jour: véhicule non trouvé
      // -> Insertion d'un nouvel enreg
      SQL.Clear;
      SQL.Add('INSERT INTO consovehicule');
      sql.add('(Dateajou,Vehicule,Consomation,Kilometrage_utilise,Kilometrage,Moiss)');
      sql.add('values("'+formatdatetime('mm/dd/yyyy',t)+'","'+fgesttache.erecveh.Text+'","'+fgesttache.DBEsumv.text+'","'+fgesttache.DBEKilomutilis.text+'","'+fgesttache.DBEKiloinit.text+'","'+fgesttache.emois.text+'")');
      ExecSQL;
    end;
  end;

voici l'erreur

Citation:

Utilisation Incorrecte du mot-clé. Elément: Set(Datajou="07/13/2009", Vehicule="283
Numéro de ligne: 2

merci

13/07/2009, 18h15
Cl@udius

Dans la requête Update le mot-clé SET est répété 2 fois. :aie:

Astuce: Tu peux copier le message d'erreur depuis la boite de dialogue avec un simple Ctrl+C au lieu de faire une capture d'écran. ;)

@+
13/07/2009, 19h11
toxicoakatox

re
j'ai enlevé le set mais il y a encore la même erreur

salut
revoit ton ancien poste, SergioMaster ta déjà répondu, pour insert en utilisant les paramétre, (là ton insert ne marchera pas)
si tu veux pas utlisé les paramétre( déconseillé dans ton cas de débutant) avec les texte et les date utilise quotstr ou " ' "
Code:

1 2 3 4 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+''',');
bon dev :aie:

14/07/2009, 03h44
toxicoakatox

Merci a tous
ce projet va me rendre dingue :scarymov::marteau::fou: