Good afternoon, in my attempt to read the records of a table created in Supabase, I get the following error.
This is the code...
This is the code...
B4XMainPage:
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private xSupabase As Supabase
Private KEY As String
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")
KEY = "XXXXXXXXXXXXXXX.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6ImFqdnRiYXN3eXdvenRqbWFqZWNiIiwicm9sZSI6InNlcnZpY2Vfcm9sZSIsImlhdCI6MTY5NDY3MjY5MSwiZXhwIjoyMDEwMjQ4NjkxfQ.1D9pOcghLoGnLQl0KhjWP3jbUM_lYxF0DcLGwNpvRN0"
xSupabase.Initialize("https://XXXXXXXXXXX.supabase.co", KEY)' I rechecked anon key again.It is correct'
xSupabase.InitializeEvents(Me,"Supabase")
If xSupabase.IsInitialized = True Then
xSupabase.Auth.RefreshToken
End If
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
Query.Columns("*").From("hidrantes")
Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
xSupabase.Database.PrintTable(DatabaseResult)
End Sub
