Fire猴子多设备工程中的回滚Sqlite数据库

Question

在Delphi10Fire猴子多设备项目中对我的iOS/Android设备执行几次查询之后，我如何回滚我的SQLite数据库？

我使用TFDQuery创建数据库查询。

Answer 1

procedure TData.RollbackTest;
var
  FD: TFDQuery;
begin
  FD := TFDQuery.Create(nil);
  FD.Connection := fConnection;
  FD.SQL.Add := 'BEGIN;'
  FD.SQL.Add := 'CREATE TABLE test (id INTEGER PRIMARY KEY);'
  FD.SQL.Add := 'ROLLBACK;'
  FD.Prepare;
  FD.ExecSQL;
  FD.Free;
end;