Discussion :

[neuneu1]

Bonjour
, Je suis oblige de faire des modif sur un petit programme de rien du tout sauf que la requête update ben j ai tout faux:
table: eleves

Code :

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

1
2
3
4
5
6
7
8
 
 
procedure TFeva.AdvGlowButton10Click(Sender: TObject);
begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= ('update eleves set classes = cp where nom = toto ');
adoquery2.ExecSQL;
end;

j ai un retour erreur manque 2 paramètres et la je vois pas, du moins si,! j ai encore rien compris
a+

[neuneu1]

Bonjour
petit question de remise a niveau.
Pour update , je dois pas passer toutes les colones;

a+

[walid_kerkoub]

ça devrait marcher comme ça :

Code :

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

1
2
3
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= 'update eleves set eleves.classes = "cp" where ((eleves.nom) ="toto");';
ADOQuery2.ExecSQL;

[neuneu1]

Bonjour

Merci mais toujours la même erreur:
Voici les champs de la table :
id
nom
prenom
loggin
mot passe
classes
groupes
emails


les champs à mettre a jours sont classes et groupes.

merci
a+

[Cl@udius]

Salut

Utilises des paramètres ce sera plus simple.

Quant à la condition WHERE passe par l'ID de l'élève. Imagine que tu aies des homonymes.

Code :

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

1
2
3
4
5
6
7
with ADOQuery2 do
begin
  SQL.Clear;
  SQL.Text:= 'UPDATE eleves SET classes = :classes WHERE id = :id;';
  Parameters.ParamByName('classes').Value := 'cp';
  Parameters.ParamByName('id').Value := 10;
  ExecSQL;

@+ Claudius

[neuneu1]

Bonjour
Merci pour le code ca marche pour le moment..
Effectivement je vais travailler sur id

merci
a+

[neuneu1]

Désole je reviens avec mes gros sabot.

je récupère l id via un dbedit, c'est pour faire simple.
ce qui donne:

Code :

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

1
2
3
4
5
6
7
8
 
with ADOQuery2 do
begin
  SQL.Clear;
  SQL.Text:= 'UPDATE eleves SET classes = :classes WHERE N° = :id;';
  Parameters.ParamByName('classes').Value := 'cm2';
  Parameters.ParamByName('id').Value := DBEdit1.Text;
  ExecSQL;

je précise, je test donc je récupère aucune valeur pour classe.

erreur est la suivante:
valeur de précision non valide..

j adore ces message
merci

[Cl@udius]

Salut

Je suppose que le champ ID est type Integer.

Code :

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

Parameters.ParamByName('id').Value := StrToInt(DBEdit1.Text);

@+

[neuneu1]

yes c'est ca , j ai completement oublie ca
a+

[neuneu1]

Bon un vrai boulet comme dans le films, deux resolu et deux fois annuler pas top..
Bon j ai voulu passer une deuxième valeur et bon je me suis gaufer sur la syntaxe , enfin j espère.
une virgule mal placer

Code :

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

1
2
3
4
5
6
7

 SQL.Clear;
  SQL.Text:= 'UPDATE eleves SET classes = :classes , groupes:= :groupes WHERE n° = :id;';
  Parameters.ParamByName('groupes').Value :=AdvComboBox8.Text;
  Parameters.ParamByName('classes').Value :=AdvComboBox9.Text;
  Parameters.ParamByName('id').Value := StrToInt(DBEdit1.Text);

merci
a+

[neuneu1]

bon

je me suis corriger, pas une virgule mais un :=:

merci

a+

[Just-Soft]

quel est le type de "id" ? si c'est un entier faut faire une conversion StrToInt(DBEditx.text) ou DBEditx.AsInteger;

[Just-Soft]

quel est le type de "id" ? si c'est un entier faut faire une conversion StrToInt(DBEditx.text) ou DBEditx.AsInteger;

Cl@udius l'a déjà dit, +1.

problème de synchronisation

[anapurna]

salut

pour access les double quote " ne sont pas accepté, il faut
doubler les simple cote ''

Code :

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

SQL.Text:= format('UPDATE eleves SET classes = ''%s'' , groupes:= ''%s'' WHERE n° = %s ',[AdvComboBox8.Text,AdvComboBox9.Text,DBEdit1.Text]);

@+ Phil