Discussion :

[amartik]

Bonjour si quelqu'un pourrait m'éclairer, je n'arrive pas active ma Query. Pourtant tout me parait juste.

Ce sont des TEdit qui modifie la valeur des champs dans une base de données.

Voici le code de mon bouton modifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
Query2ModificationClient.close;
Query2ModificationClient.ParamByName('nom').asstring := EdNom.text ;
Query2ModificationClient.ParamByName('prenom').asstring := EdPrenom.text ;
Query2ModificationClient.ParamByName('adresse').asstring := EdAdresse.text ;
Query2ModificationClient.ParamByName('numeroclient').asstring := EdNumero.text ;
 
Query2ModificationClient.ExecSQL;
 
Query1ModificationClient.close;
Query1ModificationClient.open;

et la requête de mon Query :

Code SQL :

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

1
2
3
4
5
update clients 
set nom = :nom,
prenom = :prenom,
adresse= :adresse
where numeroclient = :numeroclient ;

La table étant "clients"
avec comme propriétés:
-numeroclient
-nom
-prenom
-adresse

[SergioMaster]

bonjour,

Utilises QuotedStr(Chaine) par précaution
Numeroclient est-il vraiment string ?

et enfin , pour mettre en exergue le code , utilises le bouton #
ce qui va mettre dans ton texte de message [ CODE ] en debut et [ /CODE] en fin

[amartik]

Ou dois-je utiliser la fonction QuotedStr(Chaine) ??

Numeroclient est en integer mais j'ai bien essayé de changer dans mon code le :
Query2ModificationClient.ParamByName('numeroclient').asint := EdNumero.text ;

et dans les Params de ma Query en vain

[SergioMaster]

C'est vrai que j'ai été peu explicite

Code :

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

1
2
3
4
5
 
Query2ModificationClient.ParamByName('nom').asstring :=QuotedStr( EdNom.text) ;
Query2ModificationClient.ParamByName('prenom').asstring :=QuotedStr( EdPrenom.text) ;
Query2ModificationClient.ParamByName('adresse').asstring := QuotedStr(EdAdresse.text) ;
Query2ModificationClient.ParamByName('numeroclient').asInteger := StrToInt(EdNumero.text) ;

[Rayek]

Le QuotedStr n'est pas utile quand on utilise les paramètres avec une requête et de plus ça risque rajouter des quotes dans les chaines de texte..

Sinon, pour ta requête si tu remplis dynamiquement le composant, il faut toujours penser à utiliser ParamCheck.
Et pour finir, il serait peut être mieux de ne pas avoir le même nom entre les champs et les paramètres, on sait jamais un composant qui fonctionne mal et il ne retrouve pas ses petits

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
With Query2ModificationClient do
begin
  close;
  SQL.Clear;
  SQL.Add('UPDATE clients'); 
  SQL.Add('SET nom = :pnom,');
  SQL.Add('prenom = :pprenom,');
  SQL.Add('adresse= :padresse');
  SQL.Add('WHERE numeroclient = :pnumeroclient');
  ParamCheck := True;
  ParamByName('pnom').asstring := EdNom.text ;
  ParamByName('pprenom').asstring := EdPrenom.text ;
  ParamByName('padresse').asstring := EdAdresse.text ;
  // attention avec le StrToInt, il serait bien de vérifier que c'est bien numérique avant
  ParamByName('pnumeroclient').asInteger := StrToInt(EdNumero.text);
  ExecSQL;
end;
// inutile de fermer et réouvrir une requete type Insert/update, en plus ca doit faire un message d'erreur 
//Query1ModificationClient.close;
//Query1ModificationClient.open;

[SergioMaster]

Le QuotedStr n'est pas utile quand on utilise les paramètres avec une requête et de plus ça risque rajouter des quotes dans les chaines de texte..

Exact , méa culpa, mais je crains les espaces et/ou apostrophes dans les zones de saisie

[amartik]

Merci pour ton aide SergioMaster
Je peux compter sur ce forum en tout cas, il m'a l'air semer de personnes compétentes