Probleme S/ UPDATE : ADOQUERY base = .DBF , D7
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;
--------------------------------------------------------------------------------
Probl UPDATE ADOQUERY avec base .DBF , D7
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
Re: Probl UPDATE ADOQUERY avec base .DBF , D7
Citation:
Envoyé par 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
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;