Please use timo's version and not the one attached below!
Attachments
Last edited:
Dim SQL2 As SQL
Dim DB2target As String : DB2target= File.DirInternal
Dim DB2 As String : DB2 = "normalhiscore.db"
If FirstTime Then
installDB
SQL1.Initialize(DBtarget, DB, True)
SQL2.Initialize(DB2target, DB2, True)
End If
.....
If FirstTime Then
installDB(DB)
installDB(DB2)
SQL1.Initialize(DBtarget, DB, True)
SQL2.Initialize(DBtarget, DB2, True)
End If
.....MODIFIED:
Sub installDB (dataBase As String)
If File.Exists(DBtarget, dataBase) = False Then
File.Copy(File.DirAssets, dataBase, DBtarget, dataBase)
End If
End Sub
Cursor = SQL1.ExecQuery("SELECT * FROM scores ORDER BY score DESC LIMIT 5")
***EDIT***
It appears that for whatever reason I had to open the db file in SQLite Browser and rename the table...then rename it in the code and all worked fine. Any idea of why this made it work?