Android Example [B4X] PocketBase - Database CRUD

[B4X] PocketBase - Open Source backend in 1 file

PocketBase was created to assist building self-contained applications that can run on a single server without requiring to install anything in addition. The basic idea is that the common functionality like crud, auth, files upload, auto TLS, etc. are handled out of the box, allowing you to focus...

www.b4x.com

This is a very simple tutorial on how to use the CRUD options. A more detailed tutorial is coming soon.

CREATE

    Dim Insert As Pocketbase_DatabaseInsert = xPocketbase.Database.InsertData.Collection("dt_Task")
    Insert.Parameter_Fields("Task_Name,Task_CompletedAt")
    Dim InsertMap As Map = CreateMap("Task_UserId":xPocketbase.Auth.TokenInformations.Id,"Task_Name":"Task 06","Task_CompletedAt":Pocketbase_Functions.GetISO8601UTC(DateTime.Now))
    Wait For (Insert.Insert(InsertMap).Execute) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

You can also upload files directly if you have a file column:

    Dim Insert As Pocketbase_DatabaseInsert = xPocketbase.Database.InsertData.Collection("dt_Task")
    Insert.Parameter_Files(Array(Pocketbase_Functions.CreateMultipartFileData(File.DirAssets,"test.jpg","Task_Image","")))
    Dim InsertMap As Map = CreateMap("Task_UserId":xPocketbase.Auth.TokenInformations.Id,"Task_Name":"Task 98","Task_CompletedAt":Pocketbase_Functions.GetISO8601UTC(DateTime.Now))
    Wait For (Insert.Insert(InsertMap).Execute) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

READ
Various functions are available for retrieving data.

Returns paginated items list

    Wait For (xPocketbase.Database.SelectData.Collection("dt_Task").GetList(0,2,"")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

Returns single item by its ID

    Wait For (xPocketbase.Database.SelectData.Collection("dt_Task").GetOne("77avq8zn44ck37m")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

Returns the first found list item by the specified filter

    Wait For (xPocketbase.Database.SelectData.Collection("dt_Task").GetFirstListItem("","")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

Returns a list with all items batch fetched at once

    Wait For (xPocketbase.Database.SelectData.Collection("dt_Task").GetFullList("-Task_Name")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

Create your own query with all available filters.
Use the "Parameter_" properties

    Dim CustomQuery As Pocketbase_DatabaseSelect = xPocketbase.Database.SelectData.Collection("dt_Task")
    CustomQuery.Parameter_Page(0)
    CustomQuery.Parameter_PerPage(2)
    CustomQuery.Parameter_Fields("Task_Name,Task_CompletedAt")
    CustomQuery.Parameter_Sort("-Task_Name") 'DESC
    Wait For (CustomQuery.GetCustom) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

UPDATE

    Dim UpdateRecord As Pocketbase_DatabaseUpdate = xPocketbase.Database.UpdateData.Collection("dt_Task")
    UpdateRecord.Parameter_Fields("Task_Name,Task_CompletedAt")
    UpdateRecord.Update(CreateMap("Task_Name":"Task 02"))
    Wait For (UpdateRecord.Execute("77avq8zn44ck37m")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

You can also upload files directly if you have a file column:

    Dim UpdateRecord As Pocketbase_DatabaseUpdate = xPocketbase.Database.UpdateData.Collection("dt_Task")
    UpdateRecord.Parameter_Fields("Task_Name,Task_CompletedAt")
    UpdateRecord.Parameter_Files(Array(Pocketbase_Functions.CreateMultipartFileData(File.DirAssets,"test.jpg","Task_Image","")))
    UpdateRecord.Update(CreateMap("Task_Name":"Task 02"))
    Wait For (UpdateRecord.Execute("77avq8zn44ck37m")) Complete (DatabaseResult As PocketbaseDatabaseResult)
    xPocketbase.Database.PrintTable(DatabaseResult)

DELETE

Wait For (xPocketbase.Database.DeleteData.Collection("dt_Task").Execute("43r7071wtp30l5h")) Complete (Result As PocketbaseError)