Code: Select all
command databaseOpen
debugIt 3, ("databaseOpen: " & theDatabasePath)
repeat for each item thisConnection in revOpenDatabases() // close all open database connections
debugIt 4, ("closing all open databases...")
revCloseDatabase(thisConnection)
end repeat
if there is not a file theDatabasePath then debugIt 2, ("Warning: No Database File Found at " & theDatabasePath)
put revOpenDatabase("sqlite", theDatabasePath, , , , ) into theDatabaseID // Open the database, create it if it doesn't exist
debugIt 3, ("databaseOpen: setting database ID to " & theDatabaseID)
if "Error" is in theDatabaseID then debugIt 1, ("Database Error: " & theDatabaseID)
if revDatabaseConnectResult(theDatabaseID) is not empty then debugIt 1, ("Database Error: " & the result)
//initDatabase
end databaseOpen
and the following output for mobile failure:databaseOpen: D:/Program Files (x86)/RunRev/LiveCode 6.1/database.sqlite
Warning: No Database File Found at D:/Program Files (x86)/RunRev/LiveCode 6.1/database.sqlite
databaseOpen: setting database ID to 1
databaseOpen: data/data/org.myapp.appname/files/database.sqlite