Sub Process_Globals
Private reqManager As DBRequestManager
Type DBResult (Tag As Object, columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
End Sub
Sub AppStart (Form1 As Form, Args() As String)
'test
reqManager.Initialize(Me, "http://localhost:17178/rdc")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ir"
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)
'work with result
Log(result.Rows.Size) 'returns correct number of rows
If result.columns = Null Then 'always null - why?
Log("Columns is null")
Return
End If
Dim sb As StringBuilder
sb.Initialize
For Each col In result.Columns.Keys
sb.Append(col).Append(TAB)
Next
Log(sb.ToString)
For Each row() As Object In result.Rows
Dim sb As StringBuilder
sb.Initialize
For Each record As Object In row
sb.Append(record).Append(TAB)
Next
Log(sb.ToString)
Next
End If
End If
Job.Release
End Sub