Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
reqManager.Initialize(Me, "http://192.168.0.180:54025/rdc")
End If
Activity.LoadLayout("1")
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "create_table"
' reqManager.ExecuteCommand(cmd,"create")
End Sub
Sub btnSelect_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_animal"
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
reqManager.HandleJobAsync(Job, "ReqManager")
End If
End If
Job.Release
End Sub
Sub ReqManager_Result(result As DBResult)
reqManager.PrintTable(result)
End Sub