Registriert seit: 10. Apr 2006
Ort: Leverkusen
987 Beiträge
Delphi 6 Professional
|
AW: Problem Auslesen von MySQL und Ausgabe in ListViews
25. Aug 2017, 05:21
Hmm..
Delphi-Quellcode:
//schreiben der Daten aus der Datenbank "inhouse" in die Listview
while not SQLQuery2.Eof do
item2:=mainFrm.ListView2.Items.Add;
item2.Caption:= SQLQuery2.FieldByName('IDIH').AsString;
item2.SubItems.Add(SQLQuery2.FieldByName('ProduktnameIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('HerstellerIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('istIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('sollIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('MHDIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('BarcodeIH').AsString);
item2.SubItems.Add(SQLQuery2.FieldByName('KommentarIH').AsString);
SQLQuery2.Next;
SQLQuery2.Close;
Fehlt da nach while not SQLQuery2.Eof do
nicht ein 'begin..end'
|
|
Zitat
|