Hi,各位先進大家好:
因程式使用二個Thread處理資料
二Thread均會對SQLite進行存取,
因而會造成DB Lock,
請教,該如何解決?
謝謝!
function InsertSynced(FileName: String; Size: Int64; MydifyDate: String; Status: String): Boolean;
var
dbxConn: TDBXConnection;
dbxCommand: TDBXCommand;
dbxTransaction: TDBXTransaction;
begin
Result := True;
try
try
SQLConnection1.Connected := True;
dbxConn := SQLConnection1.DBXConnection;
dbxCommand := dbxConn.CreateCommand;
dbxTransaction := dbxConn.BeginTransaction(1);
dbxCommand.Text := Format('INSERT OR REPLACE INTO Synced(FileName, Size, ModifyDate, Status) VALUES ("%s", %d, "%s", "%s")', [FileName, Size, MydifyDate, Status]);
dbxCommand.ExecuteQuery;
except
Result := False;
end;
finally
dbxConn.CommitFreeAndNil(dbxTransaction);
FreeAndNil (dbxCommand);
SQLConnection1.Connected := False;
end;
end;

已解:
方法一:增一Global變數 gLock,自行設定及判斷目前是否已有程序在處理資料庫,缺點是到這裡變成單工
方法二:改用FireDAC,可以使用Share mode
謝謝!


===================引 用 blue 文 章===================
Hi,各位先進大家好:
因程式使用二個Thread處理資料
二Thread均會對SQLite進行存取,
因而會造成DB Lock,
請教,該如何解決?
謝謝!
function InsertSynced(FileName: String; Size: Int64; MydifyDate: String; Status: String): Boolean;
var
dbxConn: TDBXConnection;
dbxCommand: TDBXCommand;
dbxTransaction: TDBXTransaction;
begin
Result := True;
try
try
SQLConnection1.Connected := True;
dbxConn := SQLConnection1.DBXConnection;
dbxCommand := dbxConn.CreateCommand;
dbxTransaction := dbxConn.BeginTransaction(1);
dbxCommand.Text := Format('INSERT OR REPLACE INTO Synced(FileName, Size, ModifyDate, Status) VALUES ("%s", %d, "%s", "%s")', [FileName, Size, MydifyDate, Status]);
dbxCommand.ExecuteQuery;
except
Result := False;
end;
finally
dbxConn.CommitFreeAndNil(dbxTransaction);
FreeAndNil (dbxCommand);
SQLConnection1.Connected := False;
end;
end;