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
