Select Sum(Fieldname) From Table

[Amenovis]

Lösung für andere :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
platzhalter:string;
 begin
  con.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  con.Database:=ExtractFilePath (application.ExeName)+'DEINEDB.sqlite';
  con.Connected:=true;
  Query1.SQL.Text:='Select SUM(Spaltenname) as platzhalter FROM Tabellenname';
  Query1.Open;
  Edit1.Text:=Query1.FieldByName('platzhalter').asString;
  Query1.Close;
  end;
  end.

[hoika]

Hallo,
oder einfach so.
Edit1.Text:=Query1.Fields[0].AsString;

[mkinzler]

Zitat von hoika:

Hallo,
oder einfach so.
Edit1.Text:=Query1.Fields[0].AsString;

Birgt allerdings die Gefahr, das später die Abfrage geändert wird und sich der Index dadurch verschiebt.

[hoika]

Hallo,
korrekt, deshalb steht bei mir immer ein Kommentar drüber
Das ganze sollte man auch nur bei einem einzigen count(*) machen, weil ja ohne einen Aliasnamen die Datenbank irgendeinen Feldnamen generiert.

[Amenovis]

Zitat:

Edit1.Text:=Query1.Fields[0].AsString;

Die Zeile hatte ich fast am Ende mit dem Lösungsweg des gezeigten Codes mhh da kam auch nur ein Fehler vermutlich wegen dem selben DataSet bzw query.next---end;---query.close