Hai bl3nder,
Zitat von
bl3nder:
Delphi-Quellcode:
procedure tform1.filllist();
begin
Grid.RowCount := 2;
Grid.FixedRows := 1;
while not sqlquery.Eof do begin
while NOT SQLQuery.EOF do begin
Grid.RowCount := Grid.RowCount + 1;
Grid.Cells[0,Grid.RowCount-2] := SQLQuery.FieldByName('Inventar_Nr').AsString;
Grid.Cells[1,Grid.RowCount-2] := SQLQuery.FieldByName('NetzwerkName').AsString;
Grid.Cells[2,Grid.RowCount-2] := SQLQuery.FieldByName('Benutzer').AsString;
Grid.Cells[3,Grid.RowCount-2] := SQLQuery.FieldByName('Benutzer_alt').AsString;
Grid.Cells[4,Grid.RowCount-2] := SQLQuery.FieldByName('Raum').AsString;
Grid.Cells[5,Grid.RowCount-2] := SQLQuery.FieldByName('Bemerkungen').AsString;
end;
end;
end;
end.
Warum hast Du denn zweimal die While-Not-Schleife?
Ausserdem, und das ist ganz wichtig, fehlt Dir ein SQLQuery.Next um nach dem lesen der Daten zum nächsten Datensatz zu springen.
So wie Du es jetzt hast wird deine Schleife nie verlassen.