Pb avec requetes SQL

Version imprimable

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:

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 :cry:

21/03/2004, 14h18
king

:salut:,

Citation:

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:

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

A+. :wink: :wink:
21/03/2004, 14h41
Furtif_00

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

J'utilise le composant ADO
21/03/2004, 18h02
PyRoFlo

Code:

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

:roll:
21/03/2004, 18h11
Furtif_00

:arf:
21/03/2004, 18h23
PyRoFlo

Mais encore ?

Cela ne marche toujours pas ? 8O

A tout hasard essaie cela :wink:

Code:

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;

Code:

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;

:arf:

21/03/2004, 22h41
PyRoFlo

Indentes un peu ta requête parce que là :?
22/03/2004, 08h24
Pascal Jankowski

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

?? photoface

Cela pourrait servir à diagnostiquer

courage, il a une solution :wink:

t'es sur

Code:

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:

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;

22/03/2004, 08h46
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. :wink:

Voici la nouvelle procedure complète

Code:

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

22/03/2004, 19h57
Furtif_00

Problème Résolu

Il Fallait remplacer les

Code:

AND

par des

Code:

,

Merci a tous pour votre aides :wink: :bravo: :chin: :ccool:
22/03/2004, 19h58
PyRoFlo

Citation:

Envoyé par PyRoFlO

Code:

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

:roll:

:twisted: :lol:
22/03/2004, 20h14
Furtif_00

Oui comme quoi fo bien lire :boulet:
:mouarf2: :merci: