Discussion :

[logiciel_const]

bonjour à tout le monde,
je veux faire une mise à jour d'une table avec adocommand ,le probleme c'est au moment du compilation et l'exécution y a aucune erreur,mais la table n'est pas mise à jour?

le code :

Code delphi :

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
procedure TForm1.Button9Click(Sender: TObject);
begin
with DataModule2.ADOCommand1 do
 begin
commandText := 'update  test set '+
'numero=:parnumero,nom=:parnom,prenom=:parprenom where numero=:parnumero';
CommandType :=Cmdtext;
parameters.ParamByName('parnumero').Value:=edit1.Text;
parameters.ParamByName('parnom').Value:=edit2.Text;
parameters.ParamByName('parprenom').Value:=edit3.Text;
 
Execute;
datamodule2.ADOTable1.Active:=false;
datamodule2.ADOTable1.Active:=true;
 end;
end;

merci de me répondre.

[Aka Guymelef]

Quelques remarques sur le code :
nom et prenom ont l'air d'être des champs de type chaîne de caractères aussi je pense que tu dois ajouter des côtes entourant chacune des valeurs du style

Code :

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

'... nom='':parnom'', prenom='':parprenom'' WHERE ...'

Ensuite j'ai remarqué que tu fais une mise à jour de la clé primaire de ta table (numero) ce qui me semble un peu dangereux mais bon ça peut rester valable.

Enfin, et ce pour éviter des problèmes là où il n'y en a pas, es-tu sûr que le parnumero passé en paramètre correspond bien à un enregistrement existant dans la base de données ?

[Rayek]

Quelques remarques sur le code :
nom et prenom ont l'air d'être des champs de type chaîne de caractères aussi je pense que tu dois ajouter des côtes entourant chacune des valeurs du style

Code :

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

'... nom='':parnom'', prenom='':parprenom'' WHERE ...'

Avec les paramètres pas besoin de mettre de quote.

Il y a un soucis connu avec les paramètres en ADO, c'est que si tu mets deux fois un paramètre dans une requete seulement le premier sera renseigné et pas le deuxième. donc il faut que tu modifies ton code

Code delphi :

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

1
2
3
4
5
6
7
8
 
commandText := 'update  test set '+
'numero=:parnumero,nom=:parnom,prenom=:parprenom where numero=:parnumero1';
CommandType :=Cmdtext;
parameters.ParamByName('parnumero').Value:=edit1.Text;
parameters.ParamByName('parnumero1').Value:=edit1.Text;
parameters.ParamByName('parnom').Value:=edit2.Text;
parameters.ParamByName('parprenom').Value:=edit3.Text;

[Aka Guymelef]

Avec les paramètres pas besoin de mettre de quote.

Merci de m'avoir repris Rayek, j'avoue que je n'utilise pas cette façon de faire pour mes accès BDD mais je pensais que ça ne dispensais pas de quoter lorsque c'était nécessaire.

Désolé d'avoir induit dans une mauvaise direction

[logiciel_const]

merci beaucoup,
vous etes trop forts
Rayek,votre code, ça marche trés bien
merci,vous aussi Aka Guymelef