[Lazarus] SQLite Vacuum & Error Cannot rollback - no transaction is active

[K. P.]

As the error message indicates, do:

    SQLite3Connection.ExecuteDirect('Begin Transaction');    
 
after the vacuum and you should be fine. Works for me.     
 
From: mulcamd at hotmail.com
To: lazarus at lists.lazarus.freepascal.org
Date: Mon, 25 Nov 2013 09:31:24 +0100
Subject: [Lazarus] SQLite Vacuum & Error Cannot rollback - no transaction is	active

At the end of some database maintenance where I drop several tables I want to Vacuum the SQLite database. I use the code below and this works fine, however when I close the program I get the error:“Project project1 raised exception class ‘EDatabaseError’ with message:Cannot rollback – no transaction is active. Question: how can I Vacuum the database and close the program without errors? The code (which gives no error when run):procedure TForm1.VacuumButtonClick(Sender: TObject);begin                SQLite3Connection.DatabaseName:='A.db';                SQLTransaction1.Database:=SQLite3Connection;                SQLite3Connection.Open;                 // Statement below must be issued, otherwise I get error “cannot VACUUM from within a transaction”                SQLite3Connection.ExecuteDirect('End Transaction');  // End the transaction started by SQLdb                SQLite3Connection.ExecuteDirect('Vacuum');end; Exit procedure which give the error message.procedure TForm1.ExitMenuItemClick(Sender: TObject);begin     Application.terminate;end; BTW, when hitting the “break” button the cursor jumps to line 4828 “  inherited Destroy;” within the  “destructor TControl.Destroy;” in “control.inc”.I run on Windows 7 32 bits and use Lazarus 1.0.12 and FPC 2.6.2
--
_______________________________________________
Lazarus mailing list
Lazarus at lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20131126/e18faa60/attachment-0003.html>