Select Sum(Fieldname) From Table

[DeddyH]

Ersetze mal die eckigen Klammern bei FieldByName durch runde.

[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.

[Amenovis]

JEEEETTTTTTTTTTTTTTTZZZZZZZZZZZZZZZZTTTTTTTTTTT und für sowas 2 Tage mhh es gibt momente da möchte ich den Laptop mit delphi aus dem Fenster werfen mhh


Vielen vielen Dank und auch wenn meine alten Beiträge irgendwie weg sind du hast mir immer super geholfen DeddyH :) DANKE DANKE DANKE

Dann kann ich mich jetzt mit dem Nächsten rumärgern dem Datums format in db und zurück aber da Setz ich mich erstmal selbst dran um den Fehler zu finden :) :thumb:

Danke PapaSchlumpf der Fehler diesmal waren wirklich a) Das selbe DataSet und B) [] statt ()

[DeddyH]

Gern geschehen :)

[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.

Delphi-Quellcode:

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

[mkinzler]

Zitat:

Zitat von hoika (Beitrag 1418124)

Hallo,
oder einfach so.

Delphi-Quellcode:

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