no hay error para mi. pero he cambiado tu cogido un poquito.
no entiendo por que' dices "rutabase" y "nombrebd" en algun
momento, y luego "xui.defaultfolder" y "basedatos.db" en otro.
mala idea. no han de representar las mismas cosas?
si, en algun momento, cambias rutabase sin cambiar xui.defaultfolder, puede haber
un problema. lo ves?
esto: '/data/user/0/mx.atest/files/data/user/0/mx.atest/files' no suena.
y creo que se debe a lo que digo arriba.
si, por algun motivo prefieres usar variantes, entonces usalas, como en el ejemplo
adjunto.
Log(xui.DefaultFolder)
Dim rutabase As String = xui.DefaultFolder
Dim nombrebd As String = "basedatos.db"
If FirstTime Then
If File.Exists(rutabase, nombrebd) = False Then
Log("aqui por que falso")
sql1.Initialize(rutabase, nombrebd, True)
sql1.ExecNonQuery("CREATE TABLE banco (ID INTEGER PRIMARY KEY , Nombre TEXT, MontoTotal DOUBLE, PagoSemanal DOUBLE, Semana INTEGER, Restante DOUBLE, Ahorro DOUBLE) ")
Else
Log("aqui por que NO falso")
sql1.Initialize(rutabase, nombrebd, True)
End If
End If
de todas formas asi veo la cosa. y como he dicho, no sale ningun error cuando ejecuto el codigo