Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
xSupabase.Initialize("https://qualcosa.supabase.co","miapassword")
xSupabase.InitializeEvents(Me,"Supabase")
End Sub
Private Sub bttLogin_Click
Log("1")
Dim sUserid As String = sdIconTxtUserId.Text
Log("2")
Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
Log("3")
Query.Columns("*").From("users")
Log("4")
Query.Filter_Equal(CreateMap("userid":sUserid))
Log("5")
Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
Log("6")
xSupabase.Database.PrintTable(DatabaseResult)
Log("7")
For Each Row As Map In DatabaseResult.Rows
Log("8")
Log(Row.Get("mail"))
Log("9")
Next
End Sub