使用SQLite的錯誤ATTACH - Delphi中的DETACH

Question

我使用Delphi（Firedac）在SQLite中遇到了一個對我來說無法解決的ATTACH和DETACH問題。

我有連接的一個數據庫文件和附加的第二個具有：

FDConnection1.ExecSQL('ATTACH DATABASE "' + Import_DB_filename + '" AS IMPORTDB;'); 

其中，變量「Import_DB_filename」包含數據庫文件的完整路徑和文件名。

這工作正常，我可以通過FireDac查詢訪問連接中的兩個數據庫，並且可以毫無問題地完成我的編碼。 然而，事情出錯時拆下：

FDConnection1.ExecSQL('DETACH DATABASE IMPORTDB;'); 

在調試模式下，我總是得到錯誤：

Debugger Exception Notification
E Project My_Program.EXE raised exception class $C0000005 with message 'access violation at 0x00405d7b: read of address 0x00000000'.

顯然出了差錯與內存分配，因爲調試器中（裝配停止）功能SysFreeMem(P:Pointer): Integer;在GETMEM.INC。

無論我嘗試什麼，錯誤都會持續存在，並會導致內存泄漏，最終導致編譯器（Delphi Seattle Enterprise）崩潰。

即使連接並隨後分離數據庫而不傳遞任何代碼也會導致相同的錯誤。

（FDconnection：鎖定模式= lmNormal; JournalMode = jmOff或jmWALL或jmdelete）

我真希望你能幫助我在這持久的問題。

Answer 1

如果您運行下面的項目，你會發現，：

• 您可以訪問兩個SQLite數據庫很樂意使用單獨的FDConnections和FDTables。

• 您可以使用FireDAC FDDataMove組件將數據從一個數據庫中的表移動到另一個數據庫中的同名表中。

代碼：

unit BatchMoveu; 

interface 

[...] 

type 
    TForm3 = class(TForm) 
    FDConnection1: TFDConnection; 
    DBGrid1: TDBGrid; 
    DataSource1: TDataSource; 
    DBNavigator1: TDBNavigator; 
    FDGUIxWaitCursor1: TFDGUIxWaitCursor; 
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink; 
    Button1: TButton; 
    FDTable1: TFDTable; 
    FDConnection2: TFDConnection; 
    DataSource2: TDataSource; 
    DBGrid2: TDBGrid; 
    btnBatchMove: TButton; 
    FDDataMove1: TFDDataMove; 
    FDTable2: TFDTable; 
    procedure btnBatchMoveClick(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    private 
    procedure PopulateTable1; 
    procedure TestDataMove; 
    public 
    procedure CreateDatabase(DBName : String; FDConnection : TFDConnection; 
     FDTable : TFDTable); 
    end; 

var 
    Form3: TForm3; 

implementation 

{$R *.dfm} 

const 
    DBName1 = 'd:\delphi\code\sqlite\db1.sqlite'; 
    DBName2 = 'd:\delphi\code\sqlite\db2.sqlite'; 

procedure TForm3.Button1Click(Sender: TObject); 
begin 
    CreateDatabase(DBName1, FDConnection1, FDTable1); 
    CreateDatabase(DBName2, FDConnection2, FDTable2); 

    PopulateTable1; 

    FDTable2.Open; 

end; 

procedure TForm3.CreateDatabase(DBName : String; FDConnection : TFDConnection; 
    FDTable : TFDTable); 
var 
    AField : TField; 
    i : Integer; 
begin 
    if FileExists(DBName) then 
    DeleteFile(DBName); 

    AField := TLargeIntField.Create(Self); 
    AField.FieldName := 'ID'; 
    AField.DataSet := FDTable; 
    AField.Name := AField.DataSet.Name + 'IDField'; 

    AField := TWideStringField.Create(Self); 
    AField.Size := 80; 
    AField.FieldName := 'Name'; 
    AField.DataSet := FDTable; 
    AField.Name := AField.DataSet.Name + 'NameField'; 

    FDConnection.Params.Values['database'] := DBName; 
    FDConnection.Connected:= True; 
    FDTable.CreateTable(False, [tpTable]); 
end; 

procedure TForm3.PopulateTable1; 
var 
    i : Integer; 
begin 
    FDTable1.Open; 

    for i:= 1 to 1000 do begin 
    FDTable1.InsertRecord([i, 'Row ' + IntToStr(i)]); 
    end; 
    FDTable1.Close; 
    //FDConnection1.Commit; 

    FDTable1.Open; 
end; 

procedure TForm3.TestDataMove; 
var 
    Item : TFdMappingItem; 
begin 
    Item := FDDataMove1.Mappings.Add; 
    Item.SourceFieldName := 'ID'; 
    Item.DestinationFieldName := 'ID'; 

    Item := FDDataMove1.Mappings.Add; 
    Item.SourceFieldName := 'Name'; 
    Item.DestinationFieldName := 'Name'; 

    FDDataMove1.Source := FDTable1; 
    FDDataMove1.Destination := FDTable2; 
    FDDataMove1.Options := FDDataMove1.Options - [poOptimiseSrc]; 
    FDDataMove1.Execute; 

    FDConnection2.Connected := False; 
    FDTable2.Open; 
end; 
procedure TForm3.btnBatchMoveClick(Sender: TObject); 
begin 
    TestDataMove; 
end; 

procedure TForm3.FormDestroy(Sender: TObject); 
begin 
    FDConnection1.Close; 
end; 

end.