Also ich habe meinen Code abgeändert:
Delphi-Quellcode:
var ITitel, ILehrer, IVerlag, IBestellnr:string;
IPreis: Double;
IAnzahl: Integer;
begin
ZQuery2.Active :=False; //Das
ZQuery2.Close; //und das habe ich mal wegegelassen
ITitel :=ZQuery2.fieldbyname('Titel').AsString; //Hier ist der Fehler
IAnzahl :=ZQuery2.fieldbyname('Anzahl').AsInteger;
ILehrer :=ZQuery2.fieldbyname('Lehrer').AsString;
IVerlag :=ZQuery2.fieldbyname('Verlag').AsString;
IBestellnr :=ZQuery2.fieldbyname('Bestellnr').AsString;
IPreis :=ZQuery2.fieldbyname('Preis').AsFloat;
ZQuery2.SQL.Text :='DELETE FROM `bestellungen` WHERE `Titel` = :ITitel AND `Anzahl` =:IAnzahl AND `Lehrer` =:ILehrer AND `Verlag` =:IVerlag AND `Bestellnr` =:IBestellnr AND CONCAT( `Preis` ) =:IPreis LIMIT 1';
ZQuery2.ParamByName('ITitel').Value :=ITitel;
ZQuery2.ParamByName('IAnzahl').Value :=IAnzahl;
ZQuery2.ParamByName('ILehrer').Value :=ILehrer;
ZQuery2.ParamByName('IVerlag').Value :=IVerlag;
ZQuery2.ParamByName('IBestellnr').Value :=IBestellnr;
ZQuery2.ParamByName('IPreis').Value :=IPreis;
ZQuery2.Open;
ZQuery2.Active :=True;
Fehlermeldung: ZQuery2: Field 'Titel' not found
Also es hat sich nichts verändert!
Und nochwas: Die
Exception tritt wieder gaanz oben auf (siehe kommentierung)
Und das gibt es noch zwei Teile. Wenn ich die weglasse, löscht er den entsprechenden Eintrag, aber es gibt eine Adress Violation...
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!