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)

zusammenfalten · markieren

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:

markieren

Code:

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

Was läuft da schief?

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.

Hallo,
was kommt bei
Select * From TabStatistic

Auch unbekannter Fehler?
Dann stimmt deine Connection nicht.

Solche Sachen wie

markieren

Code:

'Select * From TabStatistic'

laufen durch,

markieren

Code:

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

aber nicht. Es kommt wieder 'Unbekannter Fehler'.

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..

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.

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).

Wenn es daran liegt, sollte

markieren

SQL-Code:

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

doch auch funktionieren, oder?

Hallo,

@DeddyH

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

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

.