Android Question RDC Question

Sub Process_Globals
    Dim reqManager As DBRequestManager
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        reqManager.Initialize(Me, "http://10.28.96.18:17178")
    End If
End Sub

Sub Activity_Click
    GetAnimal("1")
End Sub

Sub GetAnimal(Name As String)
    Dim cmd As DBCommand
    cmd.Initialize
    cmd.Name = "select_user"
    cmd.Parameters = Array As Object(Name)
    reqManager.ExecuteQuery(cmd, 0, Null)
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        Log("Error: " & Job.ErrorMessage)
    Else
        If Job.JobName = "DBRequest" Then
            Dim result As DBResult = reqManager.HandleJob(Job)
            reqManager.PrintTable(result)
        End If
    End If
    Job.Release
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

For Each Row() As Object In result.Rows
 Dim RowS(Row.Length) As String
 For i = 0 To Row.Length - 1
   RowS(i) = Row(i)
 Next
 Table1.AddRow(RowS)
Next