Discussion :

[mario9]

Bonjour

J'aurais une simple question pour spécialiste SQL

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
     AQuery.Connection:=Fdonnees.DONNEESCONNECTION;
               AQuery.SQL.TEXT := 'DELETE from poste WHERE RRECODE =:R and rregion=:M';
               AQuery.ParamByName('R').asString:=comboregion.text;
               AQuery.ParamByName('M').asString:=comboedit1.Items[rang];
               AQuery.EXECUTE;
 
               fdonnees.POSTETABLE.insert;
               fdonnees.POSTETABLE.FieldByName('rrecode').asString := COMBOREGION.TEXT ;
               fdonnees.POSTETABLE.FieldByName('rdirecteur').asString := espnom.TEXT ;
               fdonnees.POSTETABLE.FieldByName('rregion').asString :=  esregion.TEXT;
               fdonnees.POSTETABLE.FieldByName('rmail').asString :=   espMAIL.TEXT;
               fdonnees.POSTETABLE.FieldByName('rtele').asString :=    esptel.TEXT;
               fdonnees.POSTETABLE.FieldByName('radmin').asString :=   esadmin.TEXT;
               fdonnees.POSTETABLE.POST;

Ma question est a partir de la commande Query remplacer delete par Update et remplacer les données dans la table dans la meme ligne commande.

Présentement je recherche l'enrégistrement la detruit pour ajouter les informations ca fonctionne mais.....



Merci de votre aide

Mario

[SergioMaster]

Bonjour,

la question est plus à poser dans le forum Langage SQL
la piste me semble être l'utilisation de MERGE qui est un équivalent d'un Update or Insert

[ALWEBER]

Bonjour,
Si ta table est indexée, tu exécutes une commande :

Code :

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

1
2
 
    fdonnees.POSTETABLE.FindKey...

et ensuite

Code :

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

1
2
3
4
 
     fdonnees.POSTETABLE.Edit;
     fdonnees.POSTETABLE.FieldByName('rrecode').asString := COMBOREGION.TEXT ;
...

[mario9]

Merci de vos réponses

J'ai essayé ce que Sergiomaster ma déjà expliqué et ca fonctionne je ne sais pas si c'est la bonne méthode mais le résultat est bon.

Code :

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

1
2
3
4
5
6
7
8
    AQuery.Connection:=Fdonnees.DONNEESCONNECTION;
               AQuery.SQL.TEXT := 'update poste set rdirecteur = :N, RMAIL=:C, RTELE=:T WHERE RRECODE =:R and rregion=:M';
               AQuery.ParamByName('R').asString:=comboregion.text;
               AQuery.ParamByName('M').asString:=comboedit1.Items[rang];
               AQuery.ParamByName('N').asString:=espnom.TEXT;
               AQuery.ParamByName('C').asString:=espMAIL.TEXT;
               AQuery.ParamByName('T').asString:=esptel.TEXT;
               AQuery.EXECUTE;

Merci encore a tous

Mario

[SergioMaster]

J'ai essayé ce que Sergiomaster ma déjà expliqué

j'avais indiqué un MERGE au cas où la ligne n'existait pas et qu'il fallait la créer quand même