Bind a database result to a grid

{
  "schemaVersion": 1,
  "projectId": "a1ccf2f1-8f80-45f6-9c3a-0a6e8f2ef8c8",
  "name": "DataGridSample",
  "kind": "DesktopApp",
  "language": {
    "dialect": "McBasic1",
    "requireExplicit": true,
    "compare": "Binary",
    "defaultArrayBase": 0
  },
  "application": {
    "bundleIdentifier": "com.mcbasic.samples.datagrid",
    "version": "0.1.0",
    "buildNumber": "1",
    "startupFormId": "form-main",
    "shutdownMode": "OnStartupFormClosed"
  },
  "forms": [
    {
      "id": "form-main",
      "typeName": "MainForm",
      "layout": "Forms/MainForm.form.json",
      "code": "Forms/MainForm.bas"
    }
  ],
  "modules": [],
  "classes": [],
  "tests": [],
  "references": [],
  "resources": [],
  "targets": [
    "osx-arm64"
  ],
  "capabilities": []
}

Private Async Sub Form_Shown()
    Dim migrations As MigrationSet
    Dim command As DbCommand
    Dim ignored As Variant

    lblStatus.Caption = "Opening SQLite database..."
    cmdQuit.Enabled = False
    Try
        Set mDb = Await Sqlite.OpenAsync(AppPaths.DataFile("datagrid.db"))
        Set migrations = Sqlite.CreateMigrationSet()
        migrations.Add 1, "CREATE TABLE IF NOT EXISTS Products (ID INTEGER PRIMARY KEY, Name TEXT NOT NULL, Stock INTEGER NOT NULL, Price REAL NOT NULL)"
        ignored = Await mDb.ApplyMigrationsAsync(migrations)
        Set command = mDb.CreateCommand("INSERT OR IGNORE INTO Products (ID, Name, Stock, Price) VALUES (1, 'Apple', 42, 1.25), (2, 'Apricot', 18, 2.10), (3, 'Banana', 73, 0.85), (4, 'Blueberry', 31, 3.40), (5, 'Cherry', 26, 4.15), (6, 'Grape', 64, 2.75), (7, 'Kiwi', 14, 1.90), (8, 'Mango', 22, 2.45), (9, 'Orange', 57, 1.15), (10, 'Pear', 39, 1.60), (11, 'Plum', 28, 2.05), (12, 'Raspberry', 16, 3.85)")
        ignored = Await command.ExecuteAsync()
        ignored = Await RefreshProducts()
        cmdQuit.Enabled = True
    Catch failure As McException
        lblStatus.Caption = "Database error " & CStr(failure.Number) & ": " & failure.Message
        cmdQuit.Enabled = True
    End Try
End Sub

Private Async Function RefreshProducts() As Boolean
    Dim command As DbCommand
    Dim rows As Recordset

    Try
        Set command = mDb.CreateCommand("SELECT ID, Name, Stock, Price FROM Products ORDER BY ID")
        Set rows = Await command.QueryAsync()
        Set mRows = rows.Bind()
        mRows.Require "Name"
        Set grdProducts.DataSource = mRows
        grdProducts.SelectedIndex = -1
        lblStatus.Caption = CStr(mRows.RowCount) & " products loaded"
        RefreshProducts = True
    Catch failure As McException
        lblStatus.Caption = "Database error " & CStr(failure.Number) & ": " & failure.Message
        RefreshProducts = False
    End Try
End Function

Private Sub grdProducts_SelectionChanged()
    Dim row As Long

    If mRows Is Nothing Then Exit Sub
    row = CInt(grdProducts.SelectedIndex)
    If row < 0 Or row >= mRows.RowCount Then Exit Sub
    lblStatus.Caption = "Selected product: " & CStr(mRows.Value(row, "Name"))
End Sub

Private Sub cmdQuit_Click()
    App.Quit
End Sub

Option Explicit

Private mDb As Database
Private mRows As BindingSource

Private Async Sub Form_Shown()
    Dim migrations As MigrationSet
    Dim command As DbCommand
    Dim ignored As Variant

    lblStatus.Caption = "Opening SQLite database..."
    cmdQuit.Enabled = False
    Try
        Set mDb = Await Sqlite.OpenAsync(AppPaths.DataFile("datagrid.db"))
        Set migrations = Sqlite.CreateMigrationSet()
        migrations.Add 1, "CREATE TABLE IF NOT EXISTS Products (ID INTEGER PRIMARY KEY, Name TEXT NOT NULL, Stock INTEGER NOT NULL, Price REAL NOT NULL)"
        ignored = Await mDb.ApplyMigrationsAsync(migrations)
        Set command = mDb.CreateCommand("INSERT OR IGNORE INTO Products (ID, Name, Stock, Price) VALUES (1, 'Apple', 42, 1.25), (2, 'Apricot', 18, 2.10), (3, 'Banana', 73, 0.85), (4, 'Blueberry', 31, 3.40), (5, 'Cherry', 26, 4.15), (6, 'Grape', 64, 2.75), (7, 'Kiwi', 14, 1.90), (8, 'Mango', 22, 2.45), (9, 'Orange', 57, 1.15), (10, 'Pear', 39, 1.60), (11, 'Plum', 28, 2.05), (12, 'Raspberry', 16, 3.85)")
        ignored = Await command.ExecuteAsync()
        ignored = Await RefreshProducts()
        cmdQuit.Enabled = True
    Catch failure As McException
        lblStatus.Caption = "Database error " & CStr(failure.Number) & ": " & failure.Message
        cmdQuit.Enabled = True
    End Try
End Sub

Private Async Function RefreshProducts() As Boolean
    Dim command As DbCommand
    Dim rows As Recordset

    Try
        Set command = mDb.CreateCommand("SELECT ID, Name, Stock, Price FROM Products ORDER BY ID")
        Set rows = Await command.QueryAsync()
        Set mRows = rows.Bind()
        mRows.Require "Name"
        Set grdProducts.DataSource = mRows
        grdProducts.SelectedIndex = -1
        lblStatus.Caption = CStr(mRows.RowCount) & " products loaded"
        RefreshProducts = True
    Catch failure As McException
        lblStatus.Caption = "Database error " & CStr(failure.Number) & ": " & failure.Message
        RefreshProducts = False
    End Try
End Function

Private Sub grdProducts_SelectionChanged()
    Dim row As Long

    If mRows Is Nothing Then Exit Sub
    row = CInt(grdProducts.SelectedIndex)
    If row < 0 Or row >= mRows.RowCount Then Exit Sub
    lblStatus.Caption = "Selected product: " & CStr(mRows.Value(row, "Name"))
End Sub

Private Sub cmdQuit_Click()
    App.Quit
End Sub