Das Problem war, dass ich DateTime verwendet habe - für deine jetzige Tabelle müsste es Date sein.
Außerdem sollte die Tabelle 2 Datumsfelder enthalten: 1. ausgeliehen (StartDatum) 2.zurückgebracht(EndDatum) (beide mit Uhrzeit)
dann könnte es So aussehen:
Delphi-Quellcode:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text :=
'SELECT *' + #10 +
'FROM "t:eDienstreisebuch\mainDB.dbf"' + #10 +
'WHERE Dienst_PKW = :iDienst_PKW AND' + #10 +
' (:iDate between StartDatum AND EndDatum)';
Query2.prepare;
Query2.ParamByName('iDienst_PKW').AsString := Dienst_Pkw.text;
Query2.ParamByName('iDate').AsDateTime := DateT.DateTime;
Damit dürftest du die Probleme umgehen können, die weiter oben beschrieben habe...