Hallo,
als erstes mal Try&Error machen, mit festen Werten:
Delphi-Quellcode:
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between ''01.02.2009'' and ''28.02.2009'' and KUNDENNUMMER = :Kunde';
ZQueryStatistikKunde.ParamByName('Kunde').AsString := 'abcdef';
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed);
ZQueryStatistikKunde.Close;
funktioniert? Wenn ja dann:
Delphi-Quellcode:
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde';
ZQueryStatistikKunde.ParamByName('Datum1').AsString := '01.02.2009';
ZQueryStatistikKunde.ParamByName('Datum2').AsString := '28.02.2009';
ZQueryStatistikKunde.ParamByName('Kunde').AsString := 'abcdef';
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed);
ZQueryStatistikKunde.Close;
funktioniert? Wenn ja dann:
Delphi-Quellcode:
Tage := MonthDays[IsLeapYear(Jahr), 2];
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde';
ZQueryStatistikKunde.ParamByName('Datum1').AsDate := StrToDate('01.' + IntToStr(2) + '.' + IntToStr(2009));
ZQueryStatistikKunde.ParamByName('Datum2').AsDate := StrToDate(IntToStr(28) + '.' + IntToStr(2) + '.' + IntToStr(2009));
ZQueryStatistikKunde.ParamByName('Kunde').AsString := ZQueryKundenDetail.FieldValues['KUNDENNUMMER'];
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed);
ZQueryStatistikKunde.Close;
funktioniert? Wenn ja dann:
Delphi-Quellcode:
M1 := 2;
Tage := MonthDays[IsLeapYear(Jahr), M1];
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde';
ZQueryStatistikKunde.ParamByName('Datum1').AsDate := StrToDate('01.' + IntToStr(M1) + '.' + IntToStr(2009));
ZQueryStatistikKunde.ParamByName('Datum2').AsDate := StrToDate(IntToStr(Tage) + '.' + IntToStr(M1) + '.' + IntToStr(2009));
ZQueryStatistikKunde.ParamByName('Kunde').AsString := ZQueryKundenDetail.FieldValues['KUNDENNUMMER'];
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(M1),clRed);
ZQueryStatistikKunde.Close;
Wo gibt es jetzt den Fehler?
Was für 'ne Datenbank ist denn das?