Phänomenale Fehlermeldung unter Vista...zum Rätseln

[Sir Rufo]

versuch es mal so (unit DateUtils einbinden)

Delphi-Quellcode:

ZQueryStatistikKunde:= TZQuery.Create(self);
try
  ZQueryStatistikKunde.Connection:= DMDB.ZConnection1;
  ZQueryStatistikKunde.SQL.Text:= 
    'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde';

  try
    for M1 := 1 to 12 do
      begin

        ZQueryStatistikKunde.ParamByName('Datum1').AsDate:= 
          EncodeDate( Jahr, M1, 1 );
        ZQueryStatistikKunde.ParamByName('Datum2').AsDate:= 
          IncDay( IncMonth( EncodeDate( Jahr, M1, 1 ), 1 ), -1 );
        ZQueryStatistikKunde.ParamByName('Kunde').AsString:= 
          ZQueryKundenDetail.FieldValues['KUNDENNUMMER']; 
        // immer String 'abcdf' als TestKundennummer

        if ZQueryStatistikKunde.Active then
          ZQueryStatistikKunde.ReQuery
        else
          ZQueryStatistikKunde.Open; // Fehler beim Durchlauf #2
        if not ZQueryStatistikKunde.Eof then
          SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(M1),clRed);

      end;
    ZQueryStatistikKunde.Close;
  except
    FehlerCode:= 'E255';
    Fehlerstatus:= False;
    Fehlertext:= 'Statistik einlesen fehlgeschlagen. ';
    raise;
  end;
  BitBtn4.SetFocus;
finally
  ZQueryStatistikKunde.Free;
end;