Einzelnen Beitrag anzeigen

cltom

Registriert seit: 22. Sep 2005
221 Beiträge
 
Delphi 12 Athens
 
#3

AW: SQLite, ZeosDB - drop table - Database is locked

  Alt 20. Mär 2023, 17:45
Hinter das Insert mal ein Commit gemacht?
ja, hatte ich probiert, da kommt die Meldung ebenso. Der Unterschied nur, dass die neue Tabelle bereits angelegt wird. Ohne das Commit wird die Änderung noch nicht geschrieben.

So sieht der Teil aus, mit dem ich das Skript übergebe:

Delphi-Quellcode:
var
procedure TDatabaseExchange.ExecuteSQLFromFile(SQLFileName: string);
  zpr : TZSQLProcessor;
begin
  zpr := TZSQLProcessor.Create(nil);
  zpr.Connection := zco_db;
  zpr.Script.Clear;
  zpr.LoadFromFile(SQLFileName);
  zco_db.StartTransaction;
  try
    zpr.Execute;
  except
    zco_db.Rollback;
  end;
  zco_db.Commit;
end;
  Mit Zitat antworten Zitat