![Mr. Green](images/smilies/icon_mrgreen.gif)
Wenn du jetzt noch einen TDateTimePicker nimmst, dann klapt das:
SQL-Code:
With DM_Auftrag.Q_Selbstbucher Do
Begin
SQL.
Text :=
'
SELECT lName' + #10 +
'
,lName2' + #10 +
'
,lPz' + #10 +
'
,lOrt' + #10 +
'
,Versand_ID' + #10 +
'
,Versand_Datum' + #10 +
'
FROM Bestellung' + #10 +
'
WHERE Versand_Datum = :i_Such_Datum' + #10 +
'
GROUP BY Versand_ID' + #10 +
'
ORDER BY Versand_ID';
// Parsen des Statements um
Query Parameter zu finden...
Prepared :=
True;
// Werte an
Query Parameter übergeben...
With Parameters.ParamByName('
i_Such_Datum') Do
Begin
DataType := ftDate;
Value := DateTimePicker1.Date;
End;
Open;
//...
End;
Auf die Art muss das Statement durch solche in den String konkatinierte Werte entstellt werden. Außerdem kann der User nur noch gültige Datumswerte angeben.