OK Hier mal der Quelltext....
Delphi-Quellcode:
Bericht_query.close;
bericht_project.Open;
//Qguar_Abfragen();
Bericht_query.SQL.Clear;
Bericht_query.SQL.Text := 'SELECT trunc(Date_Completed) as Datum from qguaradm.DELIVERIES d where d.Firm_ID=''32770'' and d.Status <>''--'' and trunc(d.date_completed) between trunc(TO_DATE(:Datum_von, ''DD.MM.RRRR'')) and trunc(TO_DATE(:Datum_bis, ''DD.MM.RRRR''))';
//Bericht_query.SQL.Text := Bericht_SQL_String;
Bericht_query.Parameters.parambyname('Datum_von').Value:=strtodatetime('01.01.2007');
Bericht_query.Parameters.ParamByName('Datum_bis').Value:=strtodatetime('05.03.2007');
Bericht_query.SQL.SaveToFile('c:\a.txt');
Bericht_query.Open;
Bericht_query.First;
While not Bericht_query.Eof do
Begin
Showmessage(Bericht_query.FieldByName('Datum').AsString);
Bericht_query.Next
End;
Das durchlaufen der Einträge ist nur zum test. Eigentlich übergebe ich án der Stelle an RaveReport.