Discussion :

[yannba]

Bonjour,

J'ai un StringGrid sur ma Form.

Je fais appel à une procedure pour lire ma base Access et afficher valeurs dans les cellules du StringGrid.

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
 
procedure TFormPlanning.LireBDE;
var col,lig:integer;
begin
    with DM.ADOTableConges do
      begin
          First;
          for lig:=1 to StringGrid1.RowCount-1 do
            for col:=0 to StringGrid1.ColCount-1 do
              begin
                  StringGrid1.Cells[col,lig]:=FieldByName('Cellule').AsString;
                  next;
              end;
      end;
end;

Je fais appel à une procedure pour enregristrer les cellules dans ma base Access.

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
 
procedure TFormPlanning.EnregistrerBDE;
var col,lig,pourcentage:integer;
begin
    {Vider la table Access}
    with DM.ADOQuery1 do
      begin
          SQL.Clear;
          SQL.Add('delete FROM Conges');
          ExecSQL;
          close;
      end;
 
    {Ajouter les enregistrements}
    pourcentage:=round(100/DM.ADOTableDelegue.RecordCount);
    with DM.ADOTableConges do
      begin
          First;
          for lig:=1 to StringGrid1.RowCount-1 do
            begin
                for col:=0 to StringGrid1.ColCount-1 do
                  begin
                      Append;
                      FieldByName('Cellule').AsString:=StringGrid1.Cells[col,lig];
                      Post;
                  end;
                gauge1.Progress:=gauge1.Progress+pourcentage;
            end;
      end;
 
    gauge1.Progress:=100;
    ShowMessage('Enregistrement effectué');
end;

Le probleme : je vais enregistrer, lire, plusieurs fois de suite sans aucun soucis. Et sans savoir pourquoi, des fois, mes valeurs vont etre décalées.
pouquoi ?

Merci

PS : Je ne sais pas si c'est le bon forum : Base de données ou débutant

[ShaiLeTroll]

Sache qu'il existe le TDBGrid !
Tu nommes tes fonctions BDE et tu utilises de l'ADO, voilà un code qui semble cohérent, cela ne donne pas envie de le lire !

utilise les valeurs de FixedRow et FixelCol comme indice de départ au lieu de 0 ou 1 en dur !

[yannba]

Sache qu'il existe le TDBGrid !

Effectivement, c'est par là que j'ai commencé.
Sauf que le probleme est que j'utilise un tableau qui a plus de 255 colonnes. Et Access ne gère pas plus de 255 champs (sauf erreur de ma part). D'où l'utilisation d'un stringgrid.
Je me doutes que ce n'est pas la meilleure solution mais pour mon niveau, c'est la seule que j'ai trouvé.

utilise les valeurs de FixedRow et FixelCol comme indice de départ au lieu de 0 ou 1 en dur !

Je ne comprends pas, j'ai quand meme fait F1 (aide de Delphi) : Affectez une valeur à la propriété FixedCols pour créer ou supprimer des colonnes figées.
Je n'ai besoin que de la premiere ligne ou colonne figée ...

[ShaiLeTroll]

255 Colonnes !
Mais à quoi cela peut-il bien servir d'afficher autant de colonnes (il faut utiliser le scroll horizontal, c'est pénible)
Mieux vaut une grille avec 10 colonnes, les plus utiles puis une Fiche qui fourni le détail !

Sinon, un SQL ne peut-il pas faire la jointure de deux tables et dépasser la limite des 255 colonnes ?

Pour FixedRow, FixelCol c'était pour mettre dans lig:=1 comme ceci lig:= StringGrid1.FixedRow, ce juste si demain, cela change, tu n'auras pas a vérifier toutes tes boucles !

[Ph. B.]

Bonsoir,

AMHA, avant de donner 2 bouts de code, il faudrait que
1) tu expliques ce que tu veux faire
2) tu decrives ton modèle de données
Ensuite que
1) tu indiques comment est initialisé ton Stringgrid
2) tu donnes (si possible) un cas ou un jeu d'essai provoquant le défaut

Sinon, j'ai bien peur que les conseils que l'on t'apportera ne soit pas adapté.
--
Philippe.