Private Sub InitDB
Private rp As RuntimePermissions
Private dbDir As String
dbDir = rp.GetSafeDirDefaultExternal("testing") & "/"
Log("DBDir is : " & dbDir)
If SQL1.IsInitialized = False Then
Try
SQL1.Initialize(dbDir, "imagedb.db", False)
Catch
If File.Exists(File.DirAssets,"imagedb.db") = True Then
File.Copy(File.DirAssets,"imagedb.db",dbDir,"imagedb.db")
SQL1.Initialize(dbDir, "imagedb.db", False)
End If
End Try
End If
End Sub