Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
CopyDBIfNeeded("base.db")
Connection.mySQL.Initialize(File.DirInternal, "base.db", False)
End If
end sub
Sub CopyDBIfNeeded (Filename As String)
If File.Exists(File.DirInternal, Filename) = False Then
File.Copy(File.DirAssets, Filename, File.DirInternal, Filename)
End If
End Sub