Registriert seit: 10. Mär 2004
1.134 Beiträge
Lazarus
|
Re: [mySQL]: Fehler in der Abfrage, aber wo?
9. Mai 2004, 20:11
So funzt es:
Delphi-Quellcode:
var ITitel, ILehrer, IVerlag, IBestellnr:string;
IPreis: Double;
IAnzahl: Integer;
begin
ITitel :=ZQuery2.fieldbyname('Titel').AsString;
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.ExecSQL;
LoadAlreadyOrdered;
Die Procedure LoadAlreadyOrdered läd einfach das DBGrid neu. Thx für eure Hilfe!!
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!
|