Spanish Consulta [jRDC2]

joseIsaac123

Member
Licensed User
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.

B4X:
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

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

B4X:
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

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

B4X:
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
 
Top