Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman
Online

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.387 Beiträge
 
Delphi 12 Athens
 
#1

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

  Alt 26. Feb 2009, 19:50
Hallo an alle...

vieleicht hat ja jemand eine logische Erklärung

Delphi-Quellcode:
try
  ZQueryStatistikKunde:= TZQuery.Create(self);
  ZQueryStatistikKunde.Connection:= DMDB.ZConnection1;
  try
    for M1 = 1 to 12
      begin
        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(Jahr));
        ZQueryStatistikKunde.ParamByName('Datum2').AsDate:= StrToDate(IntToStr(Tage) + '.' + IntToStr(M1) +'.' + IntToStr(Jahr));
        ZQueryStatistikKunde.ParamByName('Kunde').AsString:= ZQueryKundenDetail.FieldValues['KUNDENNUMMER'];
        // immer String 'abcdf' als TestKundennummer
        ZQueryStatistikKunde.Open; // Fehler beim Durchlauf #2
        SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(M1),clRed);
      end;
  except
    FehlerCode:= 'E255';
    Fehlerstatus:= False;
    Fehlertext:= 'Statistik einlesen fehlgeschlagen. ';
    raise;
  end;
  BitBtn4.SetFocus;
finally
  ZQueryStatistikKunde.Free;
end;
Beschreibung:
- das ganze liest monatlich die Anzahl an Behandlungen
- jeder Monat wird dem Chart hinzugefügt
- unter XP läuft das durch
- unter Vista (compiliert unter Vista als auch die funktionierende exe aus der XP Compilierung) erzeugen folgenden Fehler:

SQL Error: conversion Error from String "abcdef", Overflow during Data Type Conversion

- der Fehler tritt beim 2. Open der Query auf

Werte zum Zeitpunkt des Fehlers:
Parameter Date1: 01.02.2009
Parameter Date2: 28.02.2009
Parameter Kunde: 'abcdef'
M1: 2

PS: der Januar und ab März laufen durch...warum mag Vista den Februar nicht

viel Spaß beim Rätseln
  Mit Zitat antworten Zitat