B4J Library [B4X] MiniORMUtils

Dim Info As ConnectionInfo
Info.Initialize
info.DBType = "SQLite"
Info.DBFile = "data.db"

Dim Conn As ORMConnector
Conn.Initialize(Info)

Dim DBFound As Boolean = Conn.DBExist
If DBFound = False Then
    LogColor($"${Conn.DBType} database not found!"$, COLOR_RED)
    CreateDatabase
End If

Private Sub CreateDatabase
    Dim Success As Boolean = Conn.DBCreate
    If Success = False Then
        Log("Database creation failed!")
        Return
    End If
    ' The rest of code for creating tables
End Sub

Dim DB As MiniORM
DB.Initialize(DBType, DBOpen)
DB.QueryAddToBatch = True

DB.Table = "tbl_category"
DB.Columns.Add(DB.CreateColumn2(CreateMap("Name": "category_name")))
DB.Create

DB.Columns = Array("category_name")
DB.Insert2(Array("Hardwares"))
DB.Insert2(Array("Toys"))

Wait For (DB.ExecuteBatch) Complete (Success As Boolean)
If Success Then
    Log("Database is created successfully!")
Else
    Log("Database creation failed!")
End If
DB.Close

DB.Table = "tbl_category"
DB.Query
Dim Items As List = DB.Results

DB.Table = "tbl_products"
DB.Columns = Array("category_id", "product_code", "product_name", "product_price")
DB.Id = 2
DB.Save2(Array(Category_Id, Product_Code, Product_Name, Product_Price))