Wait For(jRDC.GetRecord("selectdados", Parametros)) Complete (Answer As Map)
If Answer.Get("Success") Then
Dim l As List
Dim rs As DBResult
rs = Answer.Get("Data")
l = rs.Rows
If l.Size > 0 Then 'We get a result
For Each row() As Object In l
Dim HORA, MINUTO As Int
HORA = DateTime.GetHour(row(10))
MINUTO = DateTime.GetMinute(row(10))
If Answer.Get("Success") Then
Dim l As List
Dim rs As DBResult
rs = Answer.Get("Data")
l = rs.Rows
If l.Size > 0 Then 'We get a result
For Each row() As Object In l
Dim HORA, MINUTO As Int
HORA = DateTime.GetHour(row(10))
MINUTO = DateTime.GetMinute(row(10))