Spanish [Solucionado] Problemas al instalar BD en android 6

File.Copy(File.DirAssets, "DbName.db", File.DirInternal, "DbName.db")

Sub Activity_Create(FirstTime As Boolean)
    Dim p As Phone
    Dim va As Int
    va = p.SdkVersion
    If va >= 23 Then
        FlagAndroid6oSuperior = True
    Else
        FlagAndroid6oSuperior = False
    End If
   
    If FlagAndroid6oSuperior And rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) = False Then
        Msgbox("Hola, Para poder iniciar la app debe autorizar permisos en el siguiente diálogo. con el fin de escribir en la memoria del equipo. Gracias", "Solicitud de Permisos")
        rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    End If
    'SI EXISTE MEMORIA EXTERNA
    If File.ExternalWritable Then
        ruta = File.DirDefaultExternal
    Else
        ruta = File.DirInternal
    End If
   
    If FirstTime Then
        server.Initialize(0, "")
        timer1.Initialize("Timer1", 3000)
        'SI EXISTE LA BASE DE DATOS EN EL MOVIL
        If File.Exists(ruta,"mascota.db") = False Then
            File.Copy(File.DirAssets,"mascota.db",ruta,"mascota.db")
        End If
        s.Initialize(ruta, "mascota.db",True)
    End If
   
    validar_inicio  ' VALIDAR QUE EL USUARIO EXISTE
    timer1.Enabled = False
    If p.SdkVersion >= 9 Then
           Dim r As Reflector
           r.Target = r.CreateObject("android.os.StrictMode$ThreadPolicy$Builder")
           r.Target = r.RunMethod("permitAll")
           r.Target = r.RunMethod("build")
           r.RunStaticMethod("android.os.StrictMode", "setThreadPolicy", _
           Array As Object(r.Target), Array As String("android.os.StrictMode$ThreadPolicy"))
    End If
   
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
   
    ' aqui no tengo nada
   
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)

    ' aqui pones lo que quieres hacer en caso de que result sea true.

End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    If rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) = True Then
        'SI EXISTE LA BASE DE DATOS EN EL MOVIL
        Try
            If File.Exists(ruta,"mascota.db") = False Then
                File.Copy(File.DirAssets,"mascota.db",ruta,"mascota.db")
            End If
        Catch
            Log(LastException)
        End Try
        s.Initialize(ruta, "mascota.db",True)
        validar_inicio  ' VALIDAR QUE EL USUARIO EXISTE
    Else
        Activity.Finish   
    End If
End Sub

Sub Activity_PermissionResult (Permission AsString, Result As Boolean)
  Dim Texto As String
  Texto = "Esta aplicación necesita permiso para trabajar con la base de datos" & CRLF & CRLF
  Texto = Texto & "La aplicación se cerrará al no haber concedido este permiso"

  If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE then
     if Result Then
       ' Hay permiso de escritura
       If File.Exists(ruta,"mascota.db") = False Then File.Copy(File.DirAssets,"mascota.db",ruta,"mascota.db")
     else
       ' NO hay permiso de escritura
       Msgbox(Texto,"Nombre aplicación")
       ExitApplication
    End If
  End If

android.permission.WRITE_EXTERNAL_STORAGE
android.permission.READ_EXTERNAL_STORAGE

If rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) = True Then
        'SI EXISTE MEMORIA EXTERNA
        'If File.ExternalWritable Then
            ruta = File.DirDefaultExternal
        'Else
        '    ruta = File.DirInternal
        'End If
        'SI EXISTE LA BASE DE DATOS EN EL MOVIL
        Try
            If File.Exists(ruta,"mascota.db") = False Then
                File.Copy(File.DirAssets,"mascota.db",ruta,"mascota.db")
            End If
        Catch
            ToastMessageShow(LastException,True)
        End Try
        s.Initialize(ruta, "mascota.db",True)
        validar_inicio  ' VALIDAR QUE EL USUARIO EXISTE
    Else
        ExitApplication
    End If