Récupérer les données interbase dans une TStringGrid
J'essaie d'afficher les valeur d'une table quelconque dans une TStringGrid, mais j'ai un problème à l'exécution :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| IBDataSet.Close;
IBDataSet.Open;
IBDataSet.Refresh;
IBDataSet.First;
AdvStringGrid1.RowCount := 1;
i := 1;
while Not IBDataSet.Eof do
begin
StringGrid.InsertRows(i,1);
StringGrid.Cells[0,i] := IBDataSet.FieldValues['ID'];
StringGrid.Cells[1,i] := IBDataSet.FieldValues['Champ1'];
StringGrid.Cells[2,i] := IBDataSet.FieldValues['Champ2'];
IBDataSet.Next;
inc(i);
end; |
Lorsque j'effectue l'instruction Open, j'obtiens le message suivant :
Citation:
Dynamic SQL Error
SQL error code = -804
Incorrect values within SQLDA structure
:?:
