在Firemonkey Multi设备项目中回滚Sqlite数据库

Question

如何在Delphi 10 firemonkey多设备项目中对我的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;