afficher base de donné &firebir&delphi

Version imprimable

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:

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;

15/01/2011, 15h19
adelneo

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

ca coince ici

Code:

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

Code:

Grid.RowCount:=Grid.RowCount+1;

serait plus indiqué .

sans tester , j'aurais plutôt fait ceci

Code:

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;

16/01/2011, 15h29
kaouane

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

bonjour

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

Code:

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

31/01/2011, 19h32
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:

1 2 Grid.RowCount := Query.RecordCount + 1;
01/02/2011, 09h35
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

Citation:

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

Code:

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

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

Code:

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