Discussion :

[hic73]

Salut à tous

Dans un formulaire de consultation d'une base de donnée .mdb j'utilise un ADOConnection, ADOTable, DataSource et un ADOCommand pour les requetes sql

pour modifier les enregistrement de la table j'utilise le code:

Code :

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

1
2
3
4
5
6
7
8
 
          ADOCommandFormation.CommandText:='';
          requete:='update table Formation set Intitule="' +
          EditIntituleeFormation.Text + '",Duree=' + EditDuree.Text +
          ',Cout=' + EditCoutFormation.Text + ' where CodeFormation='+
          DBEditCodeFormation.Text;
          ADOCommandFormation.CommandText:=requete;
          ADOCommandFormation.Execute;

la compilation est bonne mais à l'exécution de cette action j'ai l'erreur,erreur de syntaxe dans l'instruction update

NB: Delphi 7

[pitango]

Bonjour,

Essaye de remplacer

Code :

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

1
2
3
 
update table Formation set Intitule="' +
          EditIntituleeFormation.Text + '",Duree='

par

Code :

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

1
2
3
 
update table Formation set Intitule=' +
          quotedstr(EditIntituleeFormation.Text) + ',Duree='

A+

[Cl@udius]

Salut

Si Duree et/ou Cout ne sont pas des entiers, assure-toi que tu envoies bien un point (.) comme séparateur décimal. Si il y a une virgule (,) là ça va coincer.

@+ Claudius

[hic73]

Salut à tous

Bonjour,

Essaye de remplacer

Code :

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

1
2
3
 
update table Formation set Intitule="' +
          EditIntituleeFormation.Text + '",Duree='

par

Code :

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

1
2
3
 
update table Formation set Intitule=' +
          quotedstr(EditIntituleeFormation.Text) + ',Duree='

meme chose
@Cl@udius Duree et Cout sont des Integers sans virgule

par contre pour l'insertion la requete suivant:

Code :

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

1
2
requete:='insert into Formation (CodeFormation,Intitule,Duree,Cout) values('+ EditCodeFormation.Text + ',"' + EditIntituleeFormation.Text + '",' + EditDuree.Text + ',' + EditCoutFormation.Text + ')';
ADOCommandFormation.CommandText:=requete;

marche trés bien,je ne voit pas l'erreur de syntaxe qu'il me renvoie

[hic73]

Salut à tous

étrangement la requete d'insertion

Code :

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

1
2
requete:='insert into Formation (CodeFormation,Intitule,Duree,Cout) values('+ EditCodeFormation.Text + ',"' + EditIntituleeFormation.Text + '",' + EditDuree.Text + ',' + EditCoutFormation.Text + ')';
ADOCommandFormation.CommandText:=requete;

et de suppression

Code :

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

1
2
requete:='Delete from Formation where CodeFormation='+ DBEditCodeFormation.Text;
ADOCommandFormation.CommandText:=requete;

marche trés bien alors que celle de la modification non
alors j'ai changé pour une affectation simple:

Code :

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

1
2
3
4
ADOTableFormation.Edit;
ADOTableFormation.Fields[1].AsString:=EditIntituleeFormation.Text;
ADOTableFormation.Fields[2].AsInteger:=strtoint(EditDuree.Text);
    ADOTableFormation.Fields[3].AsInteger:=strtoint(EditCoutFormation.Text);

et ça marche pour le moment, j'aurais aimé continuer avec les requettes sql mais bon, si vous avez des suggestions je suis tout ouie.