Select Sum(Fieldname) From Table

[Amenovis]

Spalte Test

Wert1 = 2
Wert2 = 10
Wert3 = 33

Ergebnis im Edit Feld sprich 45 Ich weiss für die meisten hier ein Schmunzler ich sitz da wirklich so lange dran ich hab es mit for schleifen mit while schleifen versucht irgendwas war immer falsch dann fand ich die Zeile und auch die will nicht ... Hab die Nerven echt Blank

hatte ich auch schon weg die zeilen sind nur damit ich sehe was passiert oft zeigt er mir zb nur die erste zeile der spalte mhh aber ok jetzt wo Kinzler sagte Dataset könnte sich das beissen mhh wuahhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

EDIT 2 mein Bett hat mich Gestern 2 Stunden gesehen ich kann nie loslassen wenn ich mich fixiere

EDIT 3 Alle Zeilen Rausgekickt ... Fehler E2035 nicht genügend wirkliche Parameter

[DeddyH]

Zeig doch mal den aktuellen Code.

[Amenovis]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
item:TListItem;
blabla:string;
 begin
  con.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  con.Database:=ExtractFilePath (application.ExeName)+'test.sqlite';
  con.Connected:=true;
  Query1.SQL.Text:='Select SUM(Test) as blabla FROM Versuch';
  Query1.Open;
  Edit1.Text:=Query1.FieldByName['blabla'].asString;
  Query1.Close;
  end;
  end.

[DeddyH]

Ersetze mal die eckigen Klammern bei FieldByName durch runde.

[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

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.
Edit1.Text:=Query1.Fields[0].AsString;

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