Sub CargarDatosPart
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("cargar_datos",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)
Log(res.Columns)
Spinner1.Clear
For Each row() As Object In res.Rows //Aqui es la parte donde muestro los datos, pero solo muestra 1
Spinner1.GetItem(row(0))
Next
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub