Und wohin gehört die ExecSQL-Anweisung ?
Ich habe das mal so geändert, aber so geht das dann nicht mehr. Es kommt zwar keine Fehlermeldung, das INSERT wird aber nicht durchgeführt. Die ZQuery_Buchung ist mit der ZUpdateQuery_Buchung verbunden.
Delphi-Quellcode:
with DatenModul.ZUpdateQuery_Buchung do begin
InsertSQL.Clear;
InsertSQL.Add('INSERT INTO BUCHUNG (BUNR, ZIMMERNR, DATUM, KUNDENNR, PREIS, ANZPERSONEN) ' +
'VALUES (:BuNr, :ZimmerNr, :Datum, :KundenNr, :Preis, :AnzPers);');
Params.ParamByName('ZimmerNr').AsInteger := _ZimmerNr;
Params.ParamByName('Datum').AsDate := _Datum;
Params.ParamByName('KundenNr').AsInteger := _KundenNr;
Params.ParamByName('Preis').AsFloat := _Preis;
Params.ParamByName('AnzPers').AsInteger := _AnzPers;
end;
try
DatenModul.ZQuery_Buchung.ExecSQL;
except
ShowMessage('Fehler beim Buchen');
end;
Irgendetwas verstehe ich hier noch falsch. Ich sehe in meinem Code auch keinen Vorteil, ausser dass ich noch zusätzlich eine TZUpdateSQL-Komponente verwenden muss.
mfg
Herbert