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

[dhernandez]

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]

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

 

[dhernandez]

ya lo resolvi, guarde directamente en el spinner... es bien sencillo y yo partiendome el coco

 

[josete]

ya lo resolvi, guarde directamente en el spinner... es bien sencillo y yo partiendome el coco

Podrias postear la solucion por si puede ayudar a alguien.

 

[IdasI4A]

Creo que lo buscas se resuelve con Type

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]

ohhh rayos,.. yo opte por ponerlos en un Spinner.

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]

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

'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]

Excelente muchas gracias eso es bastante bueno.