Discussion :

[bzh56]

Bonjour,
je n'arrive pas à ecrire le code correctement .
voici le sujet:
je saisi une date à l'aide d'un DATETIMEPICKER1.
je voudrai faire l'update de mon champ intitulé DATE_V_PRM avec le contenu de mon DATETIMEPICKER1
-------------------
ERREUR RETOURNEE = identificateur non déclaré 'ParamByName'

je débute ... Merci

--------------------------------------------------------------------------------
adoquery1.sql.ADD ('Update TGCHAUF set DATE_V_PRM = paramDate where code_chf = 5');
adoquery1.paramByName('ParamDate').asDate := datetimepicker1.date;

adoquery1.ExecSQL;
--------------------------------------------------------------------------------

[Admin]

Mauvais Forum, tu n'arrives pas à écrire une instruction DELPHI, donc forum delphi et base de données.

Message transféré.

Pense également à utiliser la balise Code comme indiqué dans les règles du forum.

[bidou]

il manque le :

Code :

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

adoquery1.sql.ADD ('Update TGCHAUF set DATE_V_PRM = :paramDate where code_chf = 5');

[bzh56]

merci d'avoir lu le post, voici le code du progr.
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
filter := '';
filtered := False;
filter := 'code_CHF = '+ edit1.Text ;
// on teste si on a entré un N° de code chauffeur
if trim(Edit1.text) = '' then
begin
Edit1.SetFocus;
showmessage('Vous n avez pas saisi le N°');
exit;
end;
filtered := True;

// on teste si on a trouvé le N° de code recherché
if recordcount = 0 then
showmessage('CODE non trouvé ');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.sql.clear;
adoquery1.sql.ADD ('Update TGCHAUF set DATE_V_PRM = ParamDate where code_chf = 5');
adoquery1.parambyname('ParamDate').asDate:=datetimepicker1.date;
adoquery1.ExecSQL;
end;

end.

Merci

[Admin]

Pense également à utiliser la balise Code comme indiqué dans les règles du forum.

Ca fait déjà 2 fois que je te le demande...

[bNoureddine]

merci d'avoir lu le post, voici le code du progr.
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
filter := '';
filtered := False;
filter := 'code_CHF = '+ edit1.Text ;
// on teste si on a entré un N° de code chauffeur
if trim(Edit1.text) = '' then
begin
Edit1.SetFocus;
showmessage('Vous n avez pas saisi le N°');
exit;
end;
filtered := True;

// on teste si on a trouvé le N° de code recherché
if recordcount = 0 then
showmessage('CODE non trouvé ');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.sql.clear;
adoquery1.sql.ADD ('Update TGCHAUF set DATE_V_PRM = ParamDate where code_chf = 5');
adoquery1.parambyname('ParamDate').asDate:=datetimepicker1.date;
adoquery1.ExecSQL;
end;

end.

Merci

dans ta rêquete de la procedure TForm1.Button3Click(Sender:TObject), il faut remplacer la ligne suivante
adoquery1.parambyname('ParamDate').asDate:=datetimepicker1.date;
par :
adoquery1.parameters.parambyname('ParamDate').value := datetimepicker1.date;