Bitte was mach ich falsch????
Ich hänge da ganz ehrlich schon 2 Tage dran je 8 Std.
Ich hab Schleifen Probiert bis ich auf Sum(Feld) von Tabelle stiess.
Und auch Im
SQL selbst macht er es Ohne Schwierigkeiten.
Aber wenn ich es mit Delphi verbinde nur Error oder Ausserhalb des Bereichs oder er zeigt mir Traumzahlen
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.SQL.Text:='Select SUM(Test) as blabla FROM Versuch';
Query1.Open;
Edit1.Text:=Query1.FieldByName['blabla'].asString;
Query1.Close;
end;
end;
end.
Danke für jede Hilfe!