[Tokyo-MsSql] Améliorer commande sql

Version imprimable

Bonjour

J'aurais une simple question pour spécialiste SQL

Voici mon code

Code:

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

27/08/2017, 07h41
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

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

1 2 fdonnees.POSTETABLE.FindKey...
et ensuite
Code:

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

[Tokyo-MsSql] Améliorer commande sql

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:

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

27/08/2017, 19h40
SergioMaster

Citation:

Envoyé par mario9

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