Zitat von
stoermi:
Delphi-Quellcode:
with BuchungenQuery
do
begin
active := false;
sql.clear;
sql.add('
SELECT COUNT(id) AS belegt FROM daten\buchungen.db WHERE Zimmer=:zimmernummer AND anreise<=:pdatum AND abreise>:pdatum');
ParamCheck := true;
ParamByName ('
pdatum').AsDate := datum;
ParamByName ('
zimmernummer').AsString := zimmerObj[i].zimNum;
active := true;
open;
first;
blgt := BuchungenQuery.FieldValues['
belegt'].AsInteger;
close;
end;
Hi,
ich weis nicht ob jetzt DAS Problem ist, aber eigentlich sollte das so heißen:
Delphi-Quellcode:
with BuchungenQuery
do
begin
Close;
//active := false; // Das kann man sich sparen
sql.clear;
sql.add('
SELECT COUNT(id) AS belegt FROM daten\buchungen.db WHERE (Zimmer=:zimmernummer) AND (anreise<=:pdatum) AND (abreise>:pdatum)');
ParamCheck := true;
ParamByName ('
pdatum').AsDate := datum;
ParamByName ('
zimmernummer').AsString := zimmerObj[i].zimNum;
//active := true; // kann man sich sparen.
open;
first;
blgt := BuchungenQuery.FieldValues['
belegt'].AsInteger;
close;
end;