Discussion :

[fifi_dz]

slt
je travaille sous le delphi 2010 la base de donné sous firebird et les composant s UIB pour accéder a la base de donné
je voulais tester l'affichage de la base de donné dans un stringGrid mais kand je l'éxecute et je click sur le button , on m'affiche rien
ps: j'ai testé la base de donné si elle est bien connecté , tout est bien
peut etre vous avez une idée différente sur ce que je fais
voisi le code que j'ai implémenté:

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
procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
 
begin
i:=1;
Query.Close();
Query.SQL.Clear;
 
Query.SQL.Add('SELECT NOM,PRENOM FROM ESSAIE1' );
 
Query.Open();
 
     Grid.RowCount:=2;
  while Not Query.Eof do
    begin
      Grid.Cells[0,i]:=Query.Fields.ByNameAsString['NOM'];
      Grid.Cells[1,i]:=Query.Fields.ByNameAsString['PRENOM'];
         Inc(i);
      Grid.RowCount:=Query.Fields.RecordCount+1;   Query.Next;
 
    end;
 
   Query.Close();
end;

[adelneo]

utilises le composant dbgrid dans la palette DataControl c'est plus simple.

[SergioMaster]

ca coince ici

Code :

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

   Grid.RowCount:=Query.Fields.RecordCount+1;

Code :

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

Grid.RowCount:=Grid.RowCount+1;

serait plus indiqué .

sans tester , j'aurais plutôt fait ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  i:=0;  // << si il y a libellés i:=1  
 Grid.RowCount:=Query.Fields.RecordCount+i+1;  // ceci dans le cas ou TOUT les enregistrements sont récupérés 
 
  while Not Query.Eof do
    begin
      Inc(i);
//      Grid.RowCount:=i;  ici on est sur d'avoir le bon nombre de recordcount ^^
      Grid.Cells[0,i-1]:=Query.Fields.ByNameAsString['NOM'];
      Grid.Cells[1,i-1]:=Query.Fields.ByNameAsString['PRENOM'];
      Query.Next;
    end;

[kaouane]

mais pourquoi stringGrid?
tu as dbgrid qui fait tout et tout simplement.
sauf si tu veux autres choses ...

[dehorter olivier]

bonjour

Je fais exactement la meme chose et ca marche, mais en ajoutant une ligne a la fois

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
 
 
Grid.RowCount:= 1; // je suppose des en-tetes de colonnes
Grid.ColCount:= 2;
 i:=0;  // << si il y a libellés i:=1  
 
 
// Grid.RowCount:=Query.Fields.RecordCount+i+1;  // ceci dans le cas ou TOUT les enregistrements sont récupérés 
 
  while Not Query.Eof do
    begin
      Inc(i);
      Grid.addrow; // je prefere ajouter une ligne a la fois, cela evite un row count qui prend du temps ... 
//      Grid.RowCount:=i;  ici on est sur d'avoir le bon nombre de recordcount ^^
 
// i-1 s'il n'y a pas d'en-tetes de colonne
      Grid.Cells[0,i]:=Query.Fields.ByNameAsString['NOM'];
      Grid.Cells[1,i]:=Query.Fields.ByNameAsString['PRENOM'];
      Query.Next;
    end;
 
 
// fin de la transaction

je prefere cela a utiliser les Dbgrid pour mieux gerer les transactions, mais peut etre est ce une erreur

a+
olivier

[yvesagha]

Je crois avoir entendu que les composants UIB ne sont pas bidirectionnels. C'est peut être pour que fifi_dz utilise un StringGrid.

Pour le reste, la solution de SergioMaster est correcte à un détail prés !
J'aurai mis cette ligne en fin de boucle et sans le Fields et sans le +i.

Code :

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

1
2
 
  Grid.RowCount := Query.RecordCount + 1;

[SergioMaster]

Je suis contre le query.recordcount d'une manière générale et ce pour la même raison qu'olivier (et effectivement le StringGrid.Addrow est une alternative) , d'où la mise en garde et les commentaires

J'aurai mis cette ligne en fin de boucle et sans le Fields et sans le +i.

Code :

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

Grid.RowCount:=Query.Fields.RecordCount+i+1

effectivement une erreur pernicieuse s'est glissée ici évidemment il fallait lire

Code :

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

Grid.RowCount:=Query.RecordCount+i

si je l'ai mis au début c'est pour initialiser la StringGrid
le +i est là pour gérer des libellés sur une voire plusieurs lignes