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;
Partager