Hallo,
ich lasse eine Verbindung zur MySQL Datenbank herstellen mit MySQL Direct, soweit funktioniert alles, jetzt möchte ich wissen, wie ich die Einträge in ListView anzeigen kann?
So kann ich die Einträge in StringGrid anzeigen:
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:
26:
27:
28:
29:
30:
31:
32:
| if assigned(FResult) then begin
if FResult.ResultType=rtStored then begin
cr := FResult.RecNo;
StringGrid2.RowCount := FResult.RowsCount+1;
StringGrid2.ColCount := FResult.FieldsCount+1;
for i:=0 to FResult.FieldsCount-1 do begin
af := FResult.FieldDef(i)^;
StringGrid2.cells[i+1,0] := af.Name;
end;
FResult.First;
for i:=0 to FResult.RowsCount-1 do begin
if FResult.RecNo=cr then
StringGrid2.Cells[0,i+1] := '*'
else
StringGrid2.Cells[0,i+1] := '';
for j:=0 to FResult.FieldsCount-1 do
StringGrid2.Cells[j+1,i+1] := FResult.FieldValue(j);
FResult.Next;
end;
FResult.RecNo := cr;
end
else begin
StringGrid2.RowCount := 2;
StringGrid2.ColCount := FResult.FieldsCount+1;
for i:=0 to FResult.FieldsCount-1 do begin
af := FResult.FieldDef(i)^;
StringGrid2.cells[i+1,0] := af.Name;
end;
for j:=0 to FResult.FieldsCount-1 do
StringGrid2.Cells[j+1,1] := FResult.FieldValue(j);
end;
end; |
Damit werden alle Einträge in StringGrid angezeigt.
Wie könnte ich es in ListView anzeigen lassen?
Ich hab mir das mal so Überlegt:
Delphi-Quelltext
1:
2:
3:
4:
5:
| ListIt := Liste2.Items.Add();
ListIt.Caption := '';
ListIt.SubItems.Add('Tabelle1');
ListIt.SubItems.Add('Tabelle2');
ListIt.SubItems.Add('Tabelle3'); |
Ist das irgendwie möglich?
Ich bedanke mich schonmal im Voraus.
MfG
jackie05
