La mise en place de ce code sql me permet de mettre à jour mes données dans une application. Mais cette fois-ci, il me génère des erreurs lors de la validation.
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
procedure TFrmModifAdherent.BitBtn2Click(Sender: TObject);
var
  s : string;
  rep : integer;
begin
// Question avant validation
    rep:=MessageBox(Handle,'Êtes-vous sûr de voir modifier cet Adhérent ?',
    'Confirmation', MB_OKCANCEL or MB_ICONQUESTION);
    If (rep = IDOK) then
// Code pour enclencher la validation de modification
// Requête de modification
 
    s:='UPDATE ADHERENTS SET NOM='''+EditNom.text+
        ''', PRENOMS = '''+EditPrenoms.text+
        ''', DTNAISS = '''+DateEdit1.Text+
        ''', LIEUNAISS = '''+Edit4.Text+ '''WHERE CODE_AP = :CODE_AP';
 
    if DataModule1.IBQAdherent.Active then DataModule1.IBQAdherent.Active:=False;
       DataModule1.IBQAdherent.SQL.Clear;
       DataModule1.IBQAdherent.SQL.Add(s);
       DataModule1.IBQAdherent.Params[0].AsString:=Label21.Caption;
       DataModule1.IBQAdherent.ExecSQL;
       DataModule1.IBTableAdherent.Refresh;
end;
Voici l'erreur :



Ya t-il un autre composant à la place du composant DateEdit afin de permettre d'enregistrer la date ?