SQL SUM - Unbekannter Fehler

[Alter Mann]

Hallo,

ich möchte eigentlich nur die Anzahl aller Werte addieren wenn sie der Vorgabe entsprechen.
(Die Tabelle mit ein paar Dummy-Werten im Anhang)

Delphi-Quellcode:

function  TWotFS.GetResult(const Value : Integer) :Integer;
var
  Q : TADODataSet;
  S : String;
  I : Integer;
begin
  Q := TADODataSet.Create(Self);
  try
    I := GetLastIdx('TabSession');
    S := Format('Select SUM(Result) As Ret From TabStatistic Where ((Session=%s) and (Result=%s))', [IntToStr(I), IntToStr(Value)]);
    Q.Connection := ADOConn;
    Q.CommandText:= S;
    Q.Open;
    Result := Q.FieldByName('Ret').AsInteger;
    Q.Close;
  finally
    Q.Free;
  end;
end;

Doch leider kommt es bei Q.Open zu einer Exception = 'Unbekannter Fehler'.
Eine Abfrage des generierten SQL-Strings in MS Access bringt das gewünschte Ergebnis:

Code:

'Select SUM(Result) As Ret From TabStatistic Where ((Session=1) and (Result=1))' = 2.

Was läuft da schief?

[jobo]

Warum IntToStr, wenn es (Ganz)Zahlen sind?
Die Abfrage sieht richtig aus, kann mir höchstens vorstellen, dass Deine Parameter nicht so befüllt sind, wie Du glaubst, besonders die Tabindexsache.

probehalber mal feste Werte eintragen, ohne Format.

[hoika]

Hallo,
was kommt bei
Select * From TabStatistic

Auch unbekannter Fehler?
Dann stimmt deine Connection nicht.

[Alter Mann]

Solche Sachen wie

Code:

'Select * From TabStatistic'

laufen durch,

Code:

'Select SUM(Result) As Ret From TabStatistic Where ((Session=1) and (Result=1))'

aber nicht. Es kommt wieder 'Unbekannter Fehler'.

[jobo]

Falls Du den SQL Text irgendwie per Copy / Paste in den Code geschaufelt hast:
Nimm ihn raus und tipp ihn noch mal ein.

Vielleicht gibt es auch ein Problem mit Namensfeldern der Tabelle, die besondere Zeichen enthalten, dann müssten bei Access glaub ich diese eckigen Klammern drum..

[hoika]

Hallo,
dann schrittweise den Fehler "einkreisen".

Select * From TabStatistic // hattest Du bereits
Select SUM(Result) From TabStatistic
Select SUM(Result) As Ret From TabStatistic

usw.

[ghubi01]

Hallo,

@Alter Mann
Der Feldname 'Session' ist das Problem.
Selbst der einfache SQL-Befehl 'Select * From TabStatistic Where Session=1;' ergibt einen unbekannten Fehler.
Frag mich nicht warum. Ich arbeite schon sehr lange nicht mehr mit Access.

Ändere ihn mal ab in z.B. 'ASession'.
Damit hat Dein Beispiel hier bei mir funktioniert.
Getestet habe ich mit mit Access 2000 und Delphi 7 (Hab ich noch auf einen alten XP-Rechner).:-D

[DeddyH]

Wenn es daran liegt, sollte

SQL-Code:

Select 
  SUM(Result) As Ret 
From 
  TabStatistic 
Where 
  (([Session]=1) and (Result=1))

doch auch funktionieren, oder?

[ghubi01]

Hallo,

@DeddyH

ja das funktioniert auch (hab es gerade getestet).
Wie gesagt ich habe sehr lange nicht mehr mit Access gearbeitet.:|

[ghubi01]

Hallo,

Nachtrag:
Ich hab hierzu mal ein bisschen gegoogled. Das erklärt vielleicht warum es mit dem Feldnamen 'Session' Probleme gibt.

https://support.office.com/de-de/art...__toc262648755

.