Sqlite Close
lazarus / 16-Databases

----------------------------------------------------------------------
michoux · 2021-02-03 14:57

Hi,

I am working with some sqlite databases and I have issues that when I
finish my procedure, another app, can not get to database.


var:
 AConnection  : TSQLConnection;
 ATransaction : TSQLTransaction;
 Query        : TSQLQuery;    


Opening the database and query

AConnection := TSQLite3Connection.Create(nil);
 ATransaction := TSQLTransaction.Create(AConnection);
AConnection.Transaction := ATransaction;
AConnection.DatabaseName :='Online.scdb';
Query := TSQLQuery.Create(nil);
Query.SQL.Text := 'select C_VALUE from TPARAMETERS where
C_PARAM="EVENT"';
Query.Database := AConnection;
Query.Open;                                         

Here I get some data ....

Closing the connections:

Query.Close;
 AConnection.Close;
 Query.Free;
 ATransaction.Free;
 AConnection.Free;         


Am I forgetting to close something at the end?

----------------------------------------------------------------------
mangakissa · 2021-02-03 15:13

Do you think you miss something?
Use try.. finally when your'e using constructor.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
foo;var: AConnection  : TSQLConnection; ATransaction :
TSQLTransaction; Query        : TSQLQuery;     begin   //Opening the
database and query  Query := TSQLQuery.Create(nil);  AConnection :=
TSQLite3Connection.Create(nil);  ATransaction :=
TSQLTransaction.Create(AConnection);  try    AConnection.Transaction
:= ATransaction;      AConnection.DatabaseName :='Online.scdb';   
Query.SQL.Text := 'select C_VALUE from TPARAMETERS where
C_PARAM="EVENT"';    Query.Database := AConnection;    Query.Open;   
                                         // Here I get some data
....     Closing the connections:     Query.Close;   
AConnection.Close; finally   Query.Free;   // ATransaction.Free;
(aConection frees aTransaction)   AConnection.Free;           end;end;