Select Sum(Fieldname) From Table

[Papaschlumpf73]

Probiere es mal so... (Nicht getestet)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var item:TListItem;
 begin
  con.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  con.Database:=ExtractFilePath (application.ExeName)+'test.sqlite';
  con.Connected:=true;
  Query1.SQL.Clear;
  Query1.Params.Clear;
  Query1.SQL.Text :='SELECT * FROM Versuch';
  Query1.Open;
  while not Query1.Eof do
   begin
   Item:=Form1.listview1.items.Add;
   Item.Caption:=(Query1.FieldByName('id').AsString);
   Item.SubItems.Add(Query1['Test']);
   Item.SubItems.Add(Query1['Test2']);
   Query1.Next; //hier geht es zum nächsten Datensatz; ohne das wird es eine Endlosschleife
   end;
  Query1.Close; //Query erst schließen, wenn die Schleife fertig ist
  Query1.SQL.Text:='Select SUM(Test) as blabla FROM Versuch';
  Query1.Open;
  Edit1.Text:=Query1.FieldByName['blabla'].asString;
  Query1.Close;
end;

end.