Android Question B4XTable

[Johan Schoeman]

How do one cycle through all rows in a B4XTable? This does not work as it seems to only rely on the size of the "visible table" and not the complete table (visible and not visible)

    For i = 1 To B4XTable1.Size - 2
        Dim m As Map = B4XTable1.GetRow(i)

It gives this error:

java.lang.IndexOutOfBoundsException: Index: 11, Size: 11

....that seems to be related to this line of code:

B4XTable1.MaximumRowsPerPage = 10

I have searched the forum but don't get a solution to the error. Anyone that can shed some light on this problem?

Thanks

JS

 

[LucaMs]

I think that for this it will need to add a getData function to the B4XTable library.

 

[Johan Schoeman]

I have a table with 200 odd records/rows and need to cycle through the whole table - not just the visible rows. I guess there must be some way to accomplish this...?

 

[LucaMs]

Looking at the properties and methods of B4XTable I would say that it is currently not possible, but it shouldn't be difficult to add a function (GetData) to get all the data so you can iterate through it.

 

[Erel]

It is of course possible.
The data is stored in the internal SQLite db and you can access it with table.sql1: https://www.b4x.com/android/forum/t...or-next-loop-on-a-b4xtable.110216/post-687985

 

[elsanto]

I am working with B4xTable and it is a solution to work with the internal sqlite that it generates, and directly working with it is very easy

 

[Johan Schoeman]

I am trying to "log" the data of each row with....

Sub Button1_Click
    

    For Each column As B4XTableColumn In B4XTable1.columns
        Log(column.Id)
        
    Next
    
    Dim numOfPages As Int = B4XTable1.Size / B4XTable1.RowsPerPage
    If B4XTable1.Size Mod B4XTable1.RowsPerPage > 0 Then
        numOfPages = numOfPages + 1
    End If
    Log("numOfPages = " & numOfPages)
    
    
    For j = 1 To numOfPages
        For i = 1 To B4XTable1.RowsPerPage
            Dim m As Map = B4XTable1.GetRow(i)
            Dim pnl As B4XView = FlagsColumn.CellsLayouts.Get(i) '+1 because the first cell is the header
            Dim iv As B4XView = pnl.GetView(1) 'ImageView will be the 2nd child of the panel. The built-in label is the first.
            Dim mbm As Bitmap = iv.GetBitmap
            ImageView1.Bitmap = mbm
            Log("m = " & m.Get("Flags"))
            Log("m = " & m.Get("Id"))
            Log("m = " & m.Get("Name"))
            Log("m = " & m.Get("Alpha2"))
            Log("m = " & m.Get("Alpha3"))
            Log("table size = " & B4XTable1.Size)
        Next
        B4XTable1.CurrentPage = j                'change the page to the next page
        
    Next
    
End Sub

......but it just logs the data of the first 10 rows in the table (B4XTable1.MaximumRowsPerPage = 10)

B4XTable1.CurrentPage = j -> it does not get the new page data in the above code. Any other way to do it other than having do dig into SQLite?

 

[LucaMs]

Your have to access the B4XTable internal SQLite DB, provided by the property:

B4XTable1.sql1

and work on it to retrieve records as you normally do.

 

[Erel]

No need to "dig into SQLite". You do need to get the data, without digging, from the database:

Dim o() As Object = B4XTable1.BuildQuery(False)
Dim rs As ResultSet = B4XTable1.sql1.ExecQuery2(o(0), o(1))
Do While rs.NextRow
    Dim Name As String = rs.GetString(NameColumn.SQLID)
    Log(Name)
Loop
rs.Close

 

[Erel]

Another option if you prefer working with Table.GetRow:

For Each rowid As Long In GetRowIds
    Dim m As Map = B4XTable1.GetRow(rowid)
    Log(m)
Next

GetRowIds:

Private Sub GetRowIds As List
    Dim res As List
    res.Initialize
    Dim rs As ResultSet = B4XTable1.sql1.ExecQuery2("SELECT rowid FROM data", Null)
    Do While rs.NextRow
        res.Add(rs.GetLong("rowid"))
    Loop
    rs.Close
    Return res
End Sub

If the data set is large then the previous code will probably be faster.

 

[LucaMs]

Dim Name As String = rs.GetString(NameColumn.SQLID)

Had to use:

Dim FieldValue As String = rs.GetString("c0")

 

[Erel]

Better to keep a global variable with the column object:

NameColumn = B4XTable1.AddColumn(...)

 

[LucaMs]

    For Each Column As B4XTableColumn In B4XTable1.Columns
        Log(Column.Id & tab & Column.SQLID)
    Next