Android Question jRDC2 Client

DIM colIdx as Int = res.Columns.Get("CheckOutId") ' Get column position of needed data
DIM rowIdx as Int = 0 ' Were going to access the first row
DIM row() as Object = res.Rows.Get(rowIdx) ' Let's get the first row of the returned query
DIM Value as Int = row(colIdx) ' Let's fetch the data were looking for

'Column map keys are case sensitive. Use this to allow for case insensitive match.
Public Sub GetColumnObject(res As DBResult, rowIdx As Int, colName As String) As Object
'   If res = Null Or res.IsInitialized = False Then Return Null
'   If rowIdx < 0 Or res.Rows.Size < rowIdx Then Return Null
   Dim colIdx As Int = -1
   Dim columns As Map = res.Columns
   For Each key As String In columns.Keys
       If key.EqualsIgnoreCase(colName) Then
           colIdx = columns.Get(key)
           Exit
       End If
   Next
   If colIdx = -1 Then Return Null
   Dim row() As Object = res.Rows.Get(rowIdx)
   Return row(colIdx)
End Sub

Dim Value As Int = GetColumnObject(res, 0, "checkoutid")

  For Each key As String In columns.Keys
       If key.EqualsIgnoreCase(colName) Then
           colIdx = columns.Get(key)
           Exit
       End If
   Next

If cnt > 0 Then
  Dim row() As Object = res.Rows.Get(0)
  Dim value As Int = row(0)
End If

For Each row() As Object In res.Rows
 'get value for Column1
 Dim ColumnIndex As Int = res.Columns.Get("Column1")
 Dim value As Object = row(ColumnIndex)
 'Or in a single line
 Dim value As Object = row(res.Columns.Get("Column1"))
Next