Enregistrement d'un Integer

**gbuxo** · 26/11/2006, 09h26

Bonjour,
Sous D6, j'utilise une DBGrid qui pointe sur une DataBase.
Lorsque je mets à jour ma DataBase, seul les champs texte sont mis à jour.
Les champs Integer sont totalement ignorés...??????

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
begin
  if DBG1.SelectedRows.Count>0 then
    with DBG1.DataSource.DataSet do
      for i:=0 to DBG1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBG1.SelectedRows.Items[i]));
        Fields[0].Value := DPrenom.Text;
        Fields[1].Value := DNom.Text;
        ......
        Fields[7].Value := StrToInt(IndDpt.Caption);
      end;
end;

J'ai essayé en en utilisant Val, mais identique...
Mon champs 9, dans la base est déclaré comme Integer.
Merci

**Rayek** · 27/11/2006, 08h43

Envoyé par gbuxo

Bonjour,
Sous D6, j'utilise une DBGrid qui pointe sur une DataBase.
Lorsque je mets à jour ma DataBase, seul les champs texte sont mis à jour.
Les champs Integer sont totalement ignorés...??????

J'ai essayé en en utilisant Val, mais identique...
Mon champs 9, dans la base est déclaré comme Integer.
Merci

1er remarque : Tu parles du champs "Numéro 9", seul problème c'est que dans ton code tu ne vas que jusqu'à 7, donc il te manque un champ à renseigner.(rappel que les champs vont de 0 à nombre -1 dans delphi)

2em remarque : Tu ne mets pas en edition, ni ne valide les modifications de ton dataset, ce qui entraine qu'il risque ne pas y avoir certaine mise à jours des champs de faites.

3em remarque : Je te conseil d'utiliser les noms des champs via un FieldByName() plutot que de passer par un Fields[] pour 2 raisons :

La lecture du code : Il est plus facile de lire FieldByName('NomClient').AsString que Fields[58].Value, de plus si quelqu'un passe derriere toi ou si tu dois dans longtemps revenir dans le code il te sera plus facile de le lire.
La modification de la base de données : Les bases de données ca evolue, les patrons demandent parfois de rajouter des fonctionnalités à un programme, etc ..., ce qui entrain souvent l'ajout/deplacement de champs. Avec un Fields[x] si tu deplaces un champ de position ou que tu rajoutes en champ en plein milieu tu vas être obliger de modifier tous ton code, alors qu'avec un FieldByName() tu n'as pas besoin de la faire car il n'a pas besoin de connaitre la position du champ dans la base de données.

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
begin
  if DBG1.SelectedRows.Count>0 then
    with DBG1.DataSource.DataSet do
      for i:=0 to DBG1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBG1.SelectedRows.Items[i]));
        edit; // met le dataset en mode éditon
        Fields[0].Value := DPrenom.Text;
        Fields[1].Value := DNom.Text;
        ......
        Fields[7].Value := StrToInt(IndDpt.Caption);
        Post; // Valide les modifications
      end;
end;