Android Question Supabase - get value stored in a table column

PoppaBart said:

I want to get the value in the last row in the table

Click to expand...

    Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
    Query.Columns("*").From("dt_Tasks")
    Query.OrderBy("Tasks_Id.desc")
    Query.Limit(1)
    Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
    xSupabase.Database.PrintTable(DatabaseResult)

Alexander Stolte said:

Supabase V1.13+
use order by + limit to get the last row in a table

B4X:

    Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
    Query.Columns("*").From("dt_Tasks")
    Query.OrderBy("Tasks_Id.desc")
    Query.Limit(1)
    Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
    xSupabase.Database.PrintTable(DatabaseResult)

Click to expand...

PoppaBart said:

Is it possible to get the values stored in the row and put them into variables so they can be shown in a label.

Click to expand...

    Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
    Query.Columns("*").From("dt_Rooms")
    Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
    
    For Each Row As Map In  DatabaseResult.Rows
        
        Dim xpnl As B4XView = xui.CreatePanel("")
        xpnl.SetLayoutAnimated(0,0,0,Root.Width,50dip)
        xpnl.LoadLayout("frm_RoomItem1")
        
        Dim xlbl_RoomName As B4XView = xpnl.GetView(0)
        xlbl_RoomName.Text = Row.Get("name") 'Fill the Room Name to the Label
        
        xclv_ChatRooms.Add(xpnl,Row.Get("id")) 'Gets the Room Id
        
    Next

Alexander Stolte said:

Yes, the same way as with jRDC2.

B4X:

    Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
    Query.Columns("*").From("dt_Rooms")
    Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
   
    For Each Row As Map In  DatabaseResult.Rows
       
        Dim xpnl As B4XView = xui.CreatePanel("")
        xpnl.SetLayoutAnimated(0,0,0,Root.Width,50dip)
        xpnl.LoadLayout("frm_RoomItem1")
       
        Dim xlbl_RoomName As B4XView = xpnl.GetView(0)
        xlbl_RoomName.Text = Row.Get("name") 'Fill the Room Name to the Label
       
        xclv_ChatRooms.Add(xpnl,Row.Get("id")) 'Gets the Room Id
       
    Next

Click to expand...