wenn ich es so mache , zeigt er mir leider keine Daten an
Delphi-Quellcode:
procedure TForm1.ShowInGrid;
var i,j: integer;
markierung : tcolor;
begin
if FMySql.Connected
then begin
if assigned(FResult)
then begin // <-- Falls eine SQL Abfrage vorliegt
Grid.RowCount := FResult.RowsCount+1;
// <-- ZeilenAnzahl
Grid.ColCount := FResult.FieldsCount;
// <-- SpaltenAnzahl
FResult.First;
Grid.RowCount := Grid.RowCount + 1;
Grid.Cells[0,Grid.RowCount-2] := Fresult.FieldValueByName('
Inventar_Nr');
Grid.Cells[1,Grid.RowCount-2] := Fresult.FieldValueByName('
NetzwerkName');
Grid.Cells[2,Grid.RowCount-2] := Fresult.FieldValueByName('
Benutzer');
Grid.Cells[3,Grid.RowCount-2] := Fresult.FieldValueByName('
Benutzer_alt');
Grid.Cells[4,Grid.RowCount-2] := Fresult.FieldValueByName('
Raum');
Grid.Cells[5,Grid.RowCount-2] := Fresult.FieldValueByName('
Bemerkungen');
FResult.Next;
Statusbar1.Panels[0].Text := IntToStr(Grid.RowCount) + '
Einträge';
end
else
ShowMessage('
Keine SQL-Abfrage !');
end
else
ShowMessage('
Not Connected');
end;
fildbyname muesste bei fresult fieldvaluebyname sein, da er in der klammer einen string erwartet und
so etwas wie .AsString nicht funktioniert