Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Dim SQL1 As SQL
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
If File.Exists(xui.DefaultFolder, "Data.db") = False Then
File.Copy(File.DirAssets, "Data.db", xui.DefaultFolder , "Data.db")
End If
SQL1.Initialize(xui.DefaultFolder, "Data.db", True)
Dim Cursor1 As ResultSet = SQL1.ExecQuery("SELECT FirstName FROM Cungcap")
Do While Cursor1.NextRow
Log("************************")
Log(Cursor1.GetString("FirstName"))
Loop
Cursor1.Close
End Sub