Problem Auslesen von MySQL und Ausgabe in ListViews

[Vienesko]

Moin moin,

ich habe ein Problem mit einer MySQL Datenbank in der Verbindung mit der Ausgabe in eine ListView.
Ich suche schon den ganzen Tag nach hilfreichen Threads im Internet aber mir fallen keine passenden Stichwörter ein. Deshalb versuche ich es jetzt mal so.

Kurze Erklärung was passieren soll: Ich habe eine Datenbankoberfläche programmiert, die diverse Editfelder, Buttons und auch 3 Listviews enthält. ListView1 enthält Artikel mit Preisen etc (Artikelstamm; Name: "barcodes"), ListView2 enthält einige, ausgewählte Einträge der 1. ListView (wie ein digitaler Kühlschrank; Name: "inhouse") und ListView 3 soll später ein Einkaufszettel werden, auf den man auch Einträge aus dem Artikelstamm hinzufügen kann usw (Name: "ekz"). Aber da bin ich noch nicht. Datenbanktechnisch ist das ganze über eine MySQL Datenbank mit derzeit 3 Tabellen gelöst.

So nun zu meinem Problem:
Bei Programmstart (später auch dynamischer) soll das Programm den Inhalt aller drei Tabellen in die jeweiligen ListViews schreiben. Mit der ListView1, also der Stammdatenbank, geht das auch wunderbar. Gibt mir alle Einträge aus. Sobald ich aber die Statements für ListView2 hinzufüge, schmeisst er mir mein Programm komplett durcheinander bis hin zur Startverweigerung. In mySQL kommen die Daten aber an. Es geht nur um Übertragen in die ListView.

Ich wette, es ist eigentlich ganz einfach aber manchmal verbeisst man sich da so und findet seinen Fehler nicht. Da wäre ich für eure Hilfe sehr dankbar. Hier die betreffenden Zeilen:

Delphi-Quellcode:

/bei Programmstart auslesen der Datenbank "barcodes"
SQLQuery1.SQL.Clear;
SQLQuery1.Params.Clear;
SQLQuery1.SQL.Text:= 'SELECT ID,Produktname,Hersteller,Inhalt,Lieferant,Preis,Barcode,Kommentar FROM barcodes';
SQLQuery1.Open;
//schreiben der Daten aus der Datenbak "barcodes" in die Listview
 while not SQLQuery1.Eof do
begin
 item:=mainFrm.ListView1.Items.Add;
 item.Caption:= SQLQuery1.FieldByName('ID').AsString;
 item.SubItems.Add(SQLQuery1.FieldByName('Produktname').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Hersteller').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Inhalt').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Lieferant').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Preis').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Barcode').AsString);
 item.SubItems.Add(SQLQuery1.FieldByName('Kommentar').AsString);
 SQLQuery1.Next;
 SQLQuery1.Close;
end;
 //bei Programmstart auslesen der Datenbank "inhouse"
SQLQuery2.SQL.Clear;
SQLQuery2.Params.Clear;
SQLQuery2.SQL.Text:= 'SELECT IDIH,ProduktnameIH,HerstellerIH,istIH,sollIH,MHDIH,BarcodeIH,KommentarIH FROM inhouse';
SQLQuery2.Open;
//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;

Ich bin noch ziemlicher Anfänger und bin daher für jeden konstruktiven Tipp dankbar. Ich vermute den Fehler in der Art wie ich den Query angehe.

Vielen Dank.
LG Vienesko

[HolgerX]

Hmm..

Zitat von Vienesko:

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'

[TigerLilly]

Ja, in der 2ten Schleife fehlt das begin/end + das SQLQuery.Close muss aus der Schleife raus:

while not SQLQuery1.Eof do
begin
item:=mainFrm.ListView1.Items.Add;
item.Caption:= SQLQuery1.FieldByName('ID').AsString;
item.SubItems.Add(SQLQuery1.FieldByName('Produktna me').AsString);
...
SQLQuery1.Next;
end;
SQLQuery1.Close;

[DeddyH]

Außerdem würde ich mir eine Hilfsroutine schreiben (nennen wir sie DisplayData), der man ein TDataset und eine TListView-Instanz übergibt. Innerhalb dieser Routine werden dann zunächst alle Spalten und Zeilen der ListView gelöscht. Dann liest man die Feldnamen des Datasets aus und erzeugt daraus die Spalten neu. Anschließend geht man das Dataset durch und erzeugt wie gehabt je Datensatz eine neue Zeile und befüllt sie. Dadurch ist man flexibler und hat diese ganze Logik an zentraler Stelle.

[p80286]

Und es wäre sinnvoll, vor dem Lesen der Daten die Listviews zu leeren.

Gruß
K-H

[TigerLilly]

Es wäre sinnvoll, den Zugriff auf die Daten (=SQL) vom UI (=ListView) zu trennen.

[DeddyH]

Das ist immer sinnvoll. Die Frage ist nur, wie weit man (gerade als Anfänger) dabei gehen will. Wenn ich seit 3 Wochen programmiere, werde ich mich durch Begriffe wie Dependency Injection eher abgeschreckt fühlen.

[TigerLilly]

Zitat von DeddyH:

Das ist immer sinnvoll. Die Frage ist nur, wie weit man (gerade als Anfänger) dabei gehen will. Wenn ich seit 3 Wochen programmiere, werde ich mich durch Begriffe wie Dependency Injection eher abgeschreckt fühlen.

Das ist eine Sorge, die eigentlich nur Old School Programmierer haben. Wer neu beginnt, sollte solche Basics quasi schon mit der Muttermilch aufnehmen.