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.