Discussion :

[yannba]

Bonjour,

J'utilise une base access.
Sur ma form, j'ai un DBGrid avec deux colonnes : nom et prenom

Dans le 1° ADOQuery, je vais chercher dans ma base la date de naissance afin de calculer l'age.

Dans le 2° ADOQuery, je fais la mise à jour de ma base (dans le champs age) avec l'age ainsi calculé.
Message d'erreur : le parametre AgeAdherent n'a pas de valeur par défaut. Je ne comprend pas car l'age se calcule bien.

Merci

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
28
29
30
31
32
33
34
35
36
var Jour, JourN, Mois, MoisN, Annee, AnneeN: Word;
    AgeAdherent:integer ;
begin
    {Calcul de l'âge}
    With DM.ADOQuery1 do
      begin
          SQL.Clear;
          SQL.Add('SELECT Nom, Prenom, DateNaissance FROM Adherent');
          SQL.Add('WHERE Nom='+quotedstr(DBgrid1.Fields[0].AsString)+' AND Prenom='+quotedstr(DBgrid1.Fields[1].AsString)+'');
          open;
 
          {Calcul de l'âge}
          DecodeDate(StrToDate(Fields[2].asstring), AnneeN, MoisN, JourN);
          DecodeDate(Date, Annee, Mois, Jour);
 
          if (AnneeN=Annee) and (MoisN=Mois) and (JourN=Jour) then AgeAdherent:=0 // Jour actuel = Date de Naissance
            else
          begin
              AgeAdherent:=Annee-AnneeN; // Calcul de l'âge
              if (MoisN>Mois) then Dec(AgeAdherent)
                else
              if (MoisN=Mois) AND (JourN>Jour) then Dec(AgeAdherent);
          end;
 
          close;
      end;
 
      {Mise à jour de l'âge dans la base de données}
      With DM.ADOQuery1 do
        begin
            SQL.Clear;
            SQL.Add('UPDATE Adherent SET Age=AgeAdherent');
            SQL.Add('WHERE Nom='+quotedstr(DBgrid1.Fields[0].AsString)+' AND Prenom='+quotedstr(DBgrid1.Fields[1].AsString)+'');
            execsql;
            close;
        end;

[qi130]

Code :

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

SQL.Add('UPDATE Adherent SET Age='+IntToStr(AgeAdherent));

Me parait plus adapté

[yannba]

Quel ane, j'y avais pensé.
Je faisais :

Code :

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

SQL.Add('UPDATE Adherent SET Age='+IntToStr(AgeAdherent)+'');

merci

[BuzzLeclaire]

@yannba

Il me parait opportun que tu utilise les parameters qui t'éviterons tous les problemes de format de champs (sinon @Sergio va pas être content ), illustration :

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

    With DM.ADOQuery1 do
      begin
          SQL.Clear;
          SQL.Add('SELECT Nom, Prenom, DateNaissance FROM Adherent ');
          SQL.Add('WHERE Nom= :pNom AND Prenom= :pPrenom ');
    Parameters.ParamByName('pNom').Value := DBgrid1.Fields[0].AsString;  <=== ICI
    Parameters.ParamByName('pPrenom').Value := DBgrid1.Fields[1].AsString;  <=== ICI
          open;
// ...
          close;
      end;

      {Mise à jour de l'âge dans la base de données}
      With DM.ADOQuery1 do
        begin
            SQL.Clear;
            SQL.Add('UPDATE Adherent SET Age= :pAgeAdherent ');
            SQL.Add('WHERE Nom= :pNom AND Prenom= :pPrenom ');
    Parameters.ParamByName('pNom').Value := DBgrid1.Fields[0].AsString;  <=== ICI
    Parameters.ParamByName('pPrenom').Value := DBgrid1.Fields[1].AsString;  <=== ICI
    Parameters.ParamByName('pAgeAdherent').Value := IntToStr(AgeAdherent); <=== ICI
            execsql;
            close;
        end;

Les parameters sont à laisser entre toutes les mains...

Il faudrait également ajouter des bloc Try finally avant ton Open; et ExcelSQL; c'est important.

[yannba]

@BuzzLeclaire

Il me parait opertun que tu utilise les parameters qui t'éviterons tous les problemes de format de champs

Effectivement, n'étant qu'un programmateur occasionnel et n'ayant suivi aucune formation autre qu'en consultant le forum, j'ai vu qu'on pouvait aussi utilisé les parameters.

(sinon @Sergio va pas être content ),

N'ayant jamais compris la différence entre les deux (ajouter des lignes pour obtenir le meme resulat) et voulant faire aussi plaisir à Sergio , je modifie immédiatement mon programme. Il faut que je prenne les bonnes habitudes.

Il faudrait également ajouter des bloc Try finally avant ton Open; et ExcelSQL; c'est important.

Je l'ai volontairement enlevé du message pour ne pas le surcharger.

Merci