Sub GetRecord (UseDb As String)
Dim req As DBRequestManager = CreateRequest(UseDb)
Dim cmd As DBCommand = CreateCommand("select_message", Null)
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
Sub CreateRequest (Db As String) As DBRequestManager
Dim Req As DBRequestManager
Req.Initialize(Me, rdcLink & "?DBName=" & Db)
Return Req
End Sub