Spanish [Solucionado]Almacenar mas de 1 dato en una variable

dhernandez

Active Member
Licensed User
Buenos días a todos, de nuevo acudo a los grandes para preguntarles algo que bien es sencillo, pero no hallo la manera de hacerlo sin ayuda de ustedes.
Quiero Almacenar mas de 1 valor en una variable, como lo hago?

Normalmente hago la consulta a la base de datos para sacar un solo dato(Nombre, pasword, año, etc.) Pero lo que quiero es coger todos los registros de un elemento que tiene varios atribitos y guardarlos en una variable para luego utilizarla...
Probablemente no se pueda, pero quiero saber su respuesta..

Gracias
 

dhernandez

Active Member
Licensed User
O en su defecto, guardar los datos directamente en un Spinner, Sin tener que pasar por la variable.
 

dhernandez

Active Member
Licensed User
ya lo resolvi, guarde directamente en el spinner... :) es bien sencillo y yo partiendome el coco
 

IdasI4A

Active Member
Licensed User
Creo que lo buscas se resuelve con Type
B4X:
Type Resgistro(Codigo as int, Nombre as string, Anyo as int, PassWord as string, FechaNacimiento as Long)

' para usarlo
Dim R1 as Registro
R1.inizialice
R1.Codigo=1
R1.Nombre="Pepe Lopez"
'...

'...
l=R1.Codigo
Con type te puedes definir una variable con los 'atributos' que te hagan falta.
 

dhernandez

Active Member
Licensed User
ohhh rayos,.. yo opte por ponerlos en un Spinner.
B4X:
Sub ObtenerParametros
    CURSOR1=SQL1.ExecQuery2("SELECT DISTINCT extintor_param, valor FROM t_extintor_det WHERE empresa=? AND folio=?", Array As String(Variables.EXT_EMPRESA, Variables.EXTIT_folio))
    For i=0 To CURSOR1.RowCount -1
        CURSOR1.Position=i
        Variables.EP_VALOR=CURSOR1.GetString("valor")
        ListaLista.Add(CURSOR1.GetString("extintor_param"))
    Next
End Sub
Intentare lo que me sugieren, lo que quiero es simplificar todo

Gracias por su ayuda
 

dar2o3

Active Member
Licensed User
Hola un poco tarde pero yo lo que suelo hacer es usar un map para ese tipo de cosas, como muestra un botón.

B4X:
'creo la variable mapa
dim settings as map
'en este caso la relleno con un archivo de texto
settings = File.ReadMap(File.DirApp, "settings.txt")
' el archivo de texto contiene algo asi como
'usuario=pepe
'contraseña=secreta
'lo que quieras
si traes los datos desde una bd, despues de crear el map lo vas rellenado com nombremap.put("loquequieras=" & rs.GetString("email"))
Por ejemplo.
 

dhernandez

Active Member
Licensed User
Excelente muchas gracias eso es bastante bueno.
 
Top