Public Sub GetRecord (Command As String, id As Int)As ResumableSub
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand(Command, Array(id))
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
req.PrintTable(res)
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub
Public Sub GetRecord2 (Command As String, parameters() As String) As ResumableSub
Dim Answer As Map
Answer.Initialize
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand(Command, parameters)
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
Answer.Put("ResultadoOK", j.Success)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(Res As DBResult)
'work with result
req.PrintTable(Res)
Answer.Put("Message","Data have been read successfully")
Else
Log("ERROR: " & j.ErrorMessage)
Answer.Put("Error", j.ErrorMessage)
End If
j.Release
Answer.Put("Datos",Res)
'req.PrintTable(Res)
Return Answer
End Sub