Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#9

Re: SQL Summe berechnen

  Alt 15. Mai 2005, 12:05
Zitat von Smiley:
... Den Feldeditor habe ich benutzt um die Einstellungen der einzelnen Spalten im Grid anzupassen. Geht das auch ohne den Feldeditor ?....
Was genau passst Du denn an?

Es gibt zwei Möglichkeiten. Entweder Du arbeitest für deine Summenberechnung mit einem zur Laufzeit erzeugten Query:
Delphi-Quellcode:
function GetSumFromTable (aConnection : TADOConnection;aFieldName , aTableName : String) : Real;
begin
  with TADOQuery.Create(nil) do
  begin
    Connection := aConnection;
    SQL.Text := 'SELECT SUM(' + aFieldName + ') AS summe FROM ' + aTableName;
    Open;
    Result := FieldByName('Summe').AsFloat;
    Close;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Gesamt : Real;
begin
  Gesamt := GetSumFromTable(ADOConnection1,'betragt','belege');
end;
Oder Du arbeites nur mit einem Query. Dann musst Du zur Laufzeit die Formatierungseinstellunge von Hand vornehmen.
Schaue Dir mal dieses Posting an
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat