I am playing with a very simple family tree program and wanted to clean up the database after all the updating.
I thought I could just use the SQL Vacuum command, but it does not work?
Here is the cut down code I am using, it is all that is needed to access the Database.
Code: Select all
function setup() ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ db = assert_userdata( sqlite3.open(Dir$.."FamilyData.sql") ) endfunction function closedown() ; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ assert_number( db:close() ) endfunction function assert_number(f) ; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ if gettype(f) <> #number then debugprint("Assertion failed") return(f) endfunction function assert_userdata(f) ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ if gettype(f) <> #userdata then debugprint("Assertion failed") return(f) endfunction function vacuum() ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ assert_number(db:exec("VACUUM")) endfunction setup() vacuum() closedown()
Thanks and Happy New Year to all.