ADOTable Summe

[blondervolker]

Hallo,

hab eine ADOTable1 mit einen Eingabefeld KA_SUMME.Ich bin zu blond um eine Endsumme aller Datensätze
untereinander in einen einfachen Editfeld(Edit1) anzuzeigen. Kann mir jemand helfen:oops::oops::oops:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
var
for i := 1 to zahl1 do
KA_SUMME: Double;
begin
                     
ADOTable1.KA_SUMME
KA_Summe := KA_Summe + i;
end;

[Bummi]

Entweder bin ich noch sehr müde, oder Dein Code ist sinnfrei.....

Delphi-Quellcode:

var
KA_SUMME: Double;
begin
   ADOTable1.First;
   KA_SUMME := 0;
   While not ADOTable1.EOF do
     begin
      KA_SUMME := KA_SUMME + ADOTable1KA.asFloat; // oder KA_SUMME := KA_SUMME +  ADOTable1.FieldByName(KA).asFloat
      ADOTable1.Next;
     end;
end;

Du könntest das Summenfeld an ein zweites Adodataset hängen mit

Code:

Select SUM(KA) from Tabelle where Bedingung

und bei jeder Änderung an Deiner Tabelle mit Requery aktualisieren

[blondervolker]

Guten Abend,

hab folgendes eingegeben:

Delphi-Quellcode:

var
KA_SUMME: Double;
begin
   ADOTable4.First;
   KA_SUMME := 0;
   While not ADOTable4.EOF do
     begin
      KA_SUMME := KA_SUMME + ADOTable4.FieldByName(KA_SUMME). asFloat ;
      ADOTable4.Next;
     end;
end;

// Aber es kommt permanent eine Fehlermeldung:
[DCC Fehler] Unit1.pas(1574): E2010 Inkompatible Typen: 'WideString' und 'Double'

Jetzt klemmt schon wieder die Säge...:oops::oops::oops:

Hilfe benötigt...:pale:

[Bummi]

Delphi-Quellcode:

ADOTable4.FieldByName('KA_SUMME'). asFloat
// oder
ADOTable4.FieldByName('KA'). asFloat

ich weiß nicht wie das Feld in der Datenbank heißt, in jedem Fall der Feldname als String

[blondervolker]

Vielen Dank für die Unterstützung.:lol:

Eine Frage hab ich noch.
Wie kann ich die Summe einer Spalte in einem Label angezeigt bekommen?:oops:

Delphi-Quellcode:

var
KA_SUMME: Double;
begin
   ADOTable4.First;
   KA_SUMME := 0;
   While not ADOTable4.EOF do
     begin
      KA_SUMME := KA_SUMME + ADOTable4.FieldByName('KA_SUMME'). asFloat ;
      ADOTable4.Next;
     end;

[Bummi]

ich würde es wie in Posting 2 erwähnt machen und ein DBText an die zugehörige Datasource hängen.
Ansonsten, ohne Dir zu nahe treten zu wollen, solltest Du Dir mal ein Grundlagentutorial antun.

Delphi-Quellcode:

Label.Caption := FormatFloat('0.00',KA_Summe);