*.mdb Auswertung mit SQL unter ADO

[moperswings]

Hallo,

ich habe - wohl für Euch - ein ganz einfaches db-Problem!
Ich habe eine Access Tabelle. Aus dieser Tabelle möchte ich mit SQL die Summe einer Spalte ermitteln (SELECT SUM(x) FROM tabellenspalte_y).
Das Ergebnis soll mir per button-click in einem Label angezeigt werden.
Doch welche Komponenten muss ich dafür benutzen und wie lautet der Code?
Finde dafür kein Beispiel, dass mir den Einstieg erleichtert!
Als Summe bekomme ich bis jetzt entweder einen Wert über 4 Mio (was auf eine Bereichsverletztung schliessen würde, aber ich benutze nur Integer) oder 1 heraus.
Wenn jemand ein Beispielprogramm zur Hand hätte, oder mir diese paar Zeilen Code aufschreiben könnte, würde mir das weiterhelfen.

Viele Grüsse

Dirk

[shmia]

Zitat:

Zitat von moperswings

ich habe - wohl für Euch - ein ganz einfaches db-Problem!
Ich habe eine Access Tabelle. Aus dieser Tabelle möchte ich mit SQL die Summe einer Spalte ermitteln (SELECT SUM(x) FROM tabellenspalte_y).
Das Ergebnis soll mir per button-click in einem Label angezeigt werden.
Doch welche Komponenten muss ich dafür benutzen und wie lautet der Code?
Finde dafür kein Beispiel, dass mir den Einstieg erleichtert!

Hier ein Beispiel mit ADO Komponenten:

Delphi-Quellcode:

var
   query: TADOQuery;
   sql: string;
   FieldName, TableName:string;
   Summe : Variant;
begin
   FieldName := 'Schulden';
   TableName := 'Kontobeweg';

   query := TADOQuery.Create(nil);
   try

   sql := 'select SUM(%s) as Summe from %s';

   query.Connection := Con;  // Zuweisen der ADOConnection
   query.SQL.Text := Format(sql, [FieldName, TableName]);
   query.Open;

   Summe := query.Fields[0].Value;

   query.Close;
   finally
      query.Free;
   end;
end;