Hallo nochmal,
das Thema scheint ja doch mehrer zu beschäftigen, habe nun mal dne Qualltext angepasst. Ich bekomme auch Daten, aber eben nur 4 und im
Query Reporter, selbe Abfrage, 12.
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 :Datum_von and :Datum_bis';
//Bericht_query.SQL.Text := Bericht_SQL_String;
Bericht_query.Parameters.parambyname('Datum_von').Value:=strtodate('01.01.2007');
Bericht_query.Parameters.ParamByName('Datum_bis').Value:=strtodate('05.03.2007');
Bericht_query.Prepared := True;
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;
Ich finde dies sowieso ziemlich komisch, aber ich doctor schon so lange dran rum, kann doch nicht so schwer sein, in Delphi die Abfrage zu implementieren!
Danke für eure Hilfe, ich hoffe wir finden eine Lösung!