Private Sub B4XPage_Created (Root1 As B4XView)
Root=Root1
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for B4XPage_PermissionResult(Permision As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
If Starter.SQL1.IsInitialized =False Then
Starter.SQL1.Initialize(Starter.DBFilePath,Starter.DBFileName,True)
End If
Log("granted")
End If
Log("hi")
CreateTable
DisplayData
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
Dim sf As Object = xui.Msgbox2Async("Do you want to Exit ?", "Exit", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
' Starter.SQL1.Close
Return True
End If
Return False
End Sub