Hola, esperando que todos esten bien y las cosas marchen de lo mejor!
En este ejemplo tomado del foro y adaptado con un query determinado, los valores retornados se usan para rellenar una tabla.
Cosa de todos los dias supongo.
Pero cuando quieres hacer un select que te retorna lo especificado en el Type DBResult (Tag As Object, Columns As Map, Rows As List) de que manera se puede accesar el tercer elemento de la lista Rows, entendiendo que el contenido de dicha lista son los valores de los campos indicados en Columns... ?
Jajaja, nada mas falta que nunca haya captado lo esencial en esta operacion.
El For Each row() As Object In res.Rows crea un objeto de cada renglon del recordset, verdad? y se obtiene los elementos anidados con otro objeto, Dim ROWTSC(7) As Object pero no puedo ir directamente a un elemento del unico renglon que retorna un query?
Saludos y gracias anticipadas.
PD. Por cierto, usar CODE y negritas dentro del bloque no funciona bien. =)
Uso clasico de:
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("select_alltsce", 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)
If res.Rows.Size = 0 Then
Else
Dim Data As List
Data.Initialize
[B][B]For Each row() As Object In res.Rows[/B][/B]
' PCN CURP NOMBRE TELEFONO OCUPACION DIRECCION ID
Dim ROWTSC(7) As Object
ROWTSC(0) = [B]row(1) [/B]' PCN
ROWTSC(1) = row(6) ' CURP
ROWTSC(2) = row(3) ' NOMBRE
ROWTSC(3) = row(5) ' TELEFONO
ROWTSC(4) = row(7) ' OCUPACION
ROWTSC(5) = row(4) ' DIRECCION
ROWTSC(6) = row(0) ' Id del PCN / CURP
If chkAllPend.Checked = False Then
If row(1) = "0" Then
Data.Add(ROWTSC)
End If
Else
Data.Add(ROWTSC)
End If
Next
[I][I]b4xTabFolios.SetData(Data)[/I][/I]
End If
Else
Log("Error en el acceso al server")'
End If
j.Release
End Sub
En este ejemplo tomado del foro y adaptado con un query determinado, los valores retornados se usan para rellenar una tabla.
Cosa de todos los dias supongo.
Pero cuando quieres hacer un select que te retorna lo especificado en el Type DBResult (Tag As Object, Columns As Map, Rows As List) de que manera se puede accesar el tercer elemento de la lista Rows, entendiendo que el contenido de dicha lista son los valores de los campos indicados en Columns... ?
Jajaja, nada mas falta que nunca haya captado lo esencial en esta operacion.
El For Each row() As Object In res.Rows crea un objeto de cada renglon del recordset, verdad? y se obtiene los elementos anidados con otro objeto, Dim ROWTSC(7) As Object pero no puedo ir directamente a un elemento del unico renglon que retorna un query?
Saludos y gracias anticipadas.
PD. Por cierto, usar CODE y negritas dentro del bloque no funciona bien. =)