Untraceable access violation when opening a sqlite db the 2nd time

[dietmar]

Hi,

I am using this code to open a sqlite DB:

Code: Pascal  [Select][+][-]

1. function TDBHelper.OpenDB(fn: String): Boolean;
2. var s: String;
3. begin
4.     SQLite3Connection.DatabaseName := fn;
5.     try
6.       SQLite3Connection.Open;
7.       if SQLite3Connection.Connected then
8.       begin
9.         SQLTransaction.Active := True;
10.       end
11. ...
12.  

Then I am executing SELECT statements on it which works fine.

Then, after closing the DB via SQLite3Connection.Close; I am running into access violations when I try to (re)open the database.

What am I doing wrong?

Thx,
--Dietmar

[MarkMLl]

What am I doing wrong?

Not attaching a complete program that people can use to duplicate your problem.

MarkMLl

[marcov]

I never used sqllite with transaction, but maybe close transaction first ?

Maybe the transaction component is left in some indefinite state.

[dietmar]

Attached is my small test project, but unfortunately, that even throws an error before the "interesting part": Access violation reading... in line 46 of tdbhelper. Don't know, what's going wrong here, it works in my main program.

If it runs, you should be able to reproduce the error by "open" -> "close" -> "open" buttons...

--Dietmar

[balazsszekely]

Hi dietmar,

Attached is my small test project, but unfortunately, that even throws an error before the "interesting part": Access violation reading... in line 46 of tdbhelper. Don't know, what's going wrong here, it works in my main program.

Form DBHelper is nil. You have to choices:
    1. Add DBHelper to the auto-create forms(project options)
    2. Create the form before calling method OpenDB:

Code: Pascal  [Select][+][-]

1.  
2.   dbHelper := TdbHelper.Create(Application);  //this line
3.   if (DBHelper.OpenDB(ExtractFilePath(Application.Location) + 'test.db')) then begin
4.     Query := TSQLQuery.Create(nil);
5.     try
6.       Query := DBHelper.SelectQuery('SELECT * FROM Owner LIMIT 1;');
7.       StaticText1.Caption := Query.FieldByName('Wiz_Name').AsString;
8.     finally
9.       Query.Free;
10.     end;
11.   end;

[dietmar]

Ok, after adding the form the the loadings, one can start testing with the real problem/error... thx, GetMem.

--Dietmar

[balazsszekely]

@dietmar

Ok, after adding the form the the loadings, one can start testing with the real problem/error... thx, GetMem.

See attached project. Instead of TdbHelper(TForm), please use a TDataModule.

[dietmar]

Thanks a lot for your efforts!
And I will start to read into TDataModule now...

--Dietmar