Spanish Consulta [jRDC2]

[joseIsaac123]

Buenas, estoy usando B4J como servidor para una aplicacion de B4A y estaba siguiendo un ejemplo donde se realiza un SELECT campo1,campo2,campo3 FROM tabla, la consulta esta me gustaria mostrarla en un spinner, pero no se como hacer para que en una sola linea me ponga los tres campos, en si no se si se pueda hacer eso con un spinner, no se si alguien me pueda orientar en como hacerlo, de antemano GRACIAS.

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

 

[OliverA]

Si te entiendo correctamente (a través de Google Translate), quizás esto

Spinner1.Clear
Dim x As Int
Dim lastIndex as Int
Dim sb As StringBuilder
For Each row() as Object In res.Rows
   lastIndex = row.Length -1
   sb.Initialize
   For x = 0 To lastIndex
      sb.Append(row(x))
      If x < lastIndex Then sb.Append(" | ")
   Next
   If row.Size > 0 Then Spinner1.Add(sb.ToString)
Next

 

[Vania Contreras]

No soy un experto, pero creo que esto tal vez te funcione

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.add(row(0) & "|" & row(1) & "|" & row(2))
  Next

    Else
        Log("ERROR: " & j.ErrorMessage)
    End If
    j.Release
End Sub