Discussion :

[Furtif_00]

Voila j'aimera mettre a jour ma BD via Access
j'utilise un ADOCommand et un ADOquery sur cette fiche qui sont connecté sur RecClient.ADOConnection1 ds l'inspecteur d'objet

voila ma Procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TGestionClien.MiseAJourClientClick(Sender: TObject);
var
  RecordSet: _RecordSet;
 
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Client SET Nom = '''+Edit1.Text+'''  AND Prénom = '''+Edit2.Text+''' AND Adresse = '''+Edit3.Text+''' AND Ville = '''+Edit4.Text+''' AND CP = '''+Edit5.Text+''' AND Telephone = '''+Edit6.Text+''' WHERE nom = '''+Num.Caption+'''  ');
ADOQuery1.ExecSQL;
end;

Sa ne met rien a jour dans ma BD

[king]

,

Syntax SQL form:

UPDATE [TRANSACTION transaction] {table | view}
SET col = <val> [, col = <val> …]
[WHERE <search_condition> | WHERE CURRENT OF cursor];

DSQL and isql form:

UPDATE {table | view}
SET col = <val> [, col = <val> …]
[WHERE <search_condition>

<val> = {
col [<array_dim>]
| :variable
| <constant>
| <expr>
| <function>
| udf ([<val> [, <val> …]])
| NULL
| USER
| ?}

[COLLATE collation]
<array_dim> = [[x:]y [, [x:]y …]]
<constant> = num | 'string' | charsetname 'string'

<function> = CAST (<val> AS <datatype>)
| UPPER (<val>)

| GEN_ID (generator, <val>)

cette ligne ne te renvoi pas d'erreur?

Code :

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

Update Client Set Nom='...' And Prenom='....'

A+.

[Furtif_00]

Non aucune erreur a la compilation ni a l'execution mais sé aucune mise a jour effectuer sur ma BD

J'utilise le composant ADO

[PyRoFlo]

Code :

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

Update Client Set Nom='...' , Prenom='....'

[Furtif_00]

[PyRoFlo]

Mais encore ?

Cela ne marche toujours pas ?

[Pascal Jankowski]

A tout hasard essaie cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TGestionClien.MiseAJourClientClick(Sender: TObject); 
var 
  RecordSet: _RecordSet; 
 
begin 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('UPDATE Client SET Nom = '+QuotedStr(Edit1.Text)+'  AND Prénom = '+QuotedStr(Edit2.Text)+' AND Adresse = '+QuotedStr(Edit3.Text) .... etc..
 
 
ADOQuery1.ExecSQL; 
end;

[Furtif_00]

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
 
procedure TGestionClien.MiseAJourClientClick(Sender: TObject);
var
  RecordSet: _RecordSet;
  nom, prenom, adresse, cp, ville, telephone, numeroclient, photface : string;
begin
nom:= Edit1.Text;
prenom:=  Edit2.Text;
adresse:=  Edit3.Text;
cp:=  Edit4.Text;
ville:= Edit5.Text;
numeroclient:=Num.Caption;
photface:=OpenPictureDialog1.FileName;
 
ADOCommand1.CommandText:='UPDATE Client SET Nom = '+QuotedStr(nom)+'  AND Prénom = '+QuotedStr(prenom)+' AND Adresse = '+QuotedStr(adresse)+' AND Ville ='+QuotedStr(ville)+' AND CP = '+QuotedStr(cp)+' AND Telephone = '+QuotedStr(telephone)+' AND photoFaceClient = '+QuotedStr(photface)+'WHERE IDClient = '+QuotedStr(numeroclient)+'';
RecordSet := ADOCommand1.Execute;
end;

[PyRoFlo]

Indentes un peu ta requête parce que là

[Pascal Jankowski]

Décris également les champs de ta table : Type ?

?? photoface

Cela pourrait servir à diagnostiquer

courage, il a une solution

[alexmorel]

t'es sur

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TGestionClien.MiseAJourClientClick(Sender: TObject); 
var 
  RecordSet: _RecordSet; 
 
begin 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('UPDATE Client SET Nom = '''+Edit1.Text+'''  AND Prénom = '''+Edit2.Text+''' AND Adresse = '''+Edit3.Text+''' AND Ville = '''+Edit4.Text+''' AND CP = '''+Edit5.Text+''' AND Telephone = '''+Edit6.Text+''' WHERE nom = '''+Num.Caption+'''  '); 
ADOQuery1.ExecSQL; 
end;

et pas plutot

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
 
procedure TGestionClien.MiseAJourClientClick(Sender: TObject); 
var 
  RecordSet: _RecordSet; 
 
begin 
  ADOQuery1.SQL.Clear; 
  ADOQuery1.SQL.Add('UPDATE Client SET Nom = '''+Edit1.Text+''' AND '  
+' Prénom = '''+Edit2.Text+''' AND Adresse = '''+Edit3.Text+''' AND '
+' Ville = '''+Edit4.Text+''' AND CP = '''+Edit5.Text+''' AND '
+' Telephone = '''+Edit6.Text+''' WHERE '
+' id_client = '+Num.Caption+' '); 
 
ADOQuery1.ExecSQL; 
end;

[Pascal Jankowski]

Attention QUOTEDSTR Renvoie la version guillemetée d'une chaîne.

Dans ta requête toutes les valeurs de champ n'ont peut-être pas besoin d'être guillemetées.

ex: si le champ NOM est un varchar alors là tu peux utiliser Quotedstr pour lui assigner une valeur

si par contre comme te le fait remarquer alexmorel, id_client est par exemple une valeur numérique alors là tu n'as pas besoin d'adjoindre des guillemets à sa valeur.

[Furtif_00]

Voici la nouvelle procedure complète

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
22
23
24
25
26
27
 
procedure TGestionClien.MiseAJourClientClick(Sender: TObject);
 
var
 
  RecordSet: _RecordSet;
  nom, prenom, adresse, cp, ville, telephone, numeroclient, photface, photprofil : string;
 
begin
 
nom:= Edit1.Text;
prenom:=  Edit2.Text;
adresse:=  Edit3.Text;
cp:=  Edit4.Text;
ville:= Edit5.Text;
telephone:=Edit6.Text;
numeroclient:=Num.Caption;
photface:=OpenPictureDialog1.FileName;
photprofil:=OpenPictureDialog2.FileName;
 
ADOQuery1.SQL.Clear;
 
ADOQuery1.SQL.Add('UPDATE Client SET Nom = '+QuotedStr(nom)+' AND '+' Prénom = '+QuotedStr(prenom)+' AND Adresse = '+QuotedStr(adresse)+' AND '+' Ville = '+QuotedStr(ville)+' AND CP = '+QuotedStr(cp)+' AND '+' Telephone = '+QuotedStr(telephone)+' WHERE '+' IDClient = '+Num.Caption+' ');
 
ADOQuery1.ExecSQL;
 
end;

Lors que je fait appel a cette procédure, dans la base de donné aucun champs n'ait mis a jour à par le champ Nom qui passe à 0

[Furtif_00]

Problème Résolu

Il Fallait remplacer les

Code :

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

AND

par des

Code :

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

 ,

Merci a tous pour votre aides

[PyRoFlo]

Code :

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

Update Client Set Nom='...' , Prenom='....'

[Furtif_00]

Oui comme quoi fo bien lire