Pasar resultado de una columna a variables

[german_martin]

Si este SELECT

Código:

SELECT     TECNICO, COUNT(TECNICO) AS Cantidad
FROM         PRINCIPAL
GROUP BY TECNICO

me devuelve esto

TECNICO Cantidad
Pepefel 4
JoseMar 6
Ronaldo 3
Marcelo 1

¿Como hago para guardar en cuatro variables diferentes el resultado de cada valor de la columna Cantidad?

O sea

Var1 = "4"
Var2 = "6"
Var3 = "3"
Var4 = "1"

[dwaks]

Como los valores devuelto por la consulta son dinámicos y nunca vienen una cantidad fija entonces puedes usar ArrayList ó List<>

Si usas Visual Studio 2005 puedes usar ArrayList, el asunto aquí es que en mi caso yo lo que haría es un Dictionary ó HashTable que me guarde como key el TECNICO y Value la cantidad, así siempre tendré acceso a todo eso.

Si usas Visual Studio 2008 yo me crearía una clase TECNICO con 2 propiedades: Nombre y Cantidad, y las tengo en un List<Tecnico> cuando necesito algo especifico le tiro LINQ y traigo solo el objeto que quiero usar.

Todo depende a lo que estes haciendo, quizas profundices más porque si nos dices que haces posible te damos otras ideas de como desarrollarlo porque quizas buscas la vía que no es la adecuada y gracias a eso estas estancado buscando una solución no posible.

Saludos,

[dargorsv]

tengo un codigo por aqui utilizando arraylist como te sugerian anteriormente ojala te sirva. Es una clase llamada Usuarios.

Código:

Imports System.Data.OleDb

Public Class Usuarios
    Public codUsuario As String
    Public nombre As String
    Public apellido As String
    Public servicio As String
    Public precio As String
    Public descripcion As String

    Private conexionConBD As OleDbConnection
    Private orden As OleDbCommand
    Private lector As OleDbDataReader
    Public strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                    "Data Source=H:\BaseDeDatosLaboratorio\basededatos.mdb;"

 Public Function getTodosLosUsuarios() As ArrayList

        Dim lista As ArrayList
        lista = New ArrayList

        conexionConBD = New OleDbConnection(strConexion)
        conexionConBD.Open()

        Dim consulta As String = "select  codigo, nombre, apellido, servicio, precio, descripcion  from tblservicios order by codigo asc"
        orden = New OleDbCommand(consulta, conexionConBD)

        lector = orden.ExecuteReader()

        While lector.Read
            Dim a As New Usuarios
            a.codUsuario = lector.GetInt32(0).ToString
            a.nombre = lector.GetString(1)
            a.apellido = lector.GetString(2)
            a.servicio = lector.GetString(3)
            a.precio = lector.GetString(4)
            a.descripcion = lector.GetString(5)
            lista.Add(a)
        End While
        lector.Close()
        conexionConBD.Close()
        Return lista
     End Function
End Class

[german_martin]

Gracias Gragorsv pero no me sirvio... en tu ejemplo me mostras como ir leyendo el valor de cada columna por columna. Yo en realidad tengo dos columnas y necesito ir leyendo fila por fila.
Las filas son estaticas, no se van a agregar ni a quitar ninguna.

Si alguien me puede ayudar
GRACIAS!!
Ojo: soy novato

[dargorsv]

pues no se si lo probaste, pero justamente ese es el objetivo ir leyendo cada fila que hay en la base de datos, la condicion "while lector.read" traducido seria como: leer hasta que ya no hayan filas. La unica diferencia que de los tantos campos que yo leo, tu solo leerias uno que es la cuenta de las cantidades, y al final todo lo va guardando en un array para despues llamarlo desde donde necesites mostrar los datos.

[german_martin]

Gracias chicos!!
Me dieron una idea de como hacerlo y buscando buscando en internet logre armar una funcion asi:

Public Function getTodo(ByVal strConexion As String) As ArrayList

Dim lista = New ArrayList
Dim arr(1) As String
Dim db = New ADODB.Connection
db.Open(strConexion)

Dim rs = New Recordset

rs.Open("SELECT Grupo, Total FROM dbo.BHInv_Treev_ALL", db)

rs.MoveFirst()
While Not rs.EOF

arr(0) = rs("Grupo").Value
arr(1) = rs("Total").Value

lista.Add(arr)

rs.MoveNext()

End While

rs.Close()
db.Close()

Return lista
End Function



Pero el problema es que me pisa el valor anterior. QUe estoy diciendo?
Si mi tabla es:
TECNICO Cantidad
Pepefel 4
JoseMar 6
Ronaldo 3
Marcelo 1

Y cuando ejecuto la funcion haciendo por ej, lista = getTodo(str)
Lo guardado en la matriz es:
Marcelo 1
Marcelo 1
Marcelo 1
Marcelo 1

Es como que los valores que va leyendo pisan a todos los anteriores


En que me estoy equivocando?

[mdavila]

german eso que estas usando es viejo.....

Usa lo que te paso dargorsv.

[german_martin]

Entonces seguiré tu consejo...
ahora disculpa mi gran ignorancia pero estoy tratando de entender como levantar los datos del Arraylist "lista"

[dargorsv]

En mi caso de uso, en mi formulario tengo un boton que desencadena la accion, y los datos los pongo en un listbox, ahi depende el control que tu quieras utilizar para mostrar tus datos.

Código:

Private Sub btMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMostrar.Click
        Dim p As New Usuarios
        Dim listaUsuarios As ArrayList
        listaUsuarios = p.getTodosLosUsuarios

        Dim UsuarioEnLaLista As Usuarios
        ListBox1.Items.Clear()

        For Each UsuarioEnLaLista In listaUsuarios
            ListBox1.Items.Add(UsuarioEnLaLista.codUsuario & " - " & UsuarioEnLaLista.nombre & " " & UsuarioEnLaLista.apellido & " - " & UsuarioEnLaLista.servicio)
        Next
    End Sub

[german_martin]

Gracias amigos, ya tengo un poco mas claras las cosas, jamas habia usado arraylist
mi ultima inquietud para cerrar el tema y no molestarlos mas es

¿como podria reemplazar el For Each

For Each UsuarioEnLaLista In listaUsuarios
ListBox1.Items.Add(UsuarioEnLaLista.codUsuario)
Next

para que en vez de dejarmelos datos en un un ListBox me los deje en variables?
var1="datotal"
var2="datoblabla"
etc

[pyroCL]

Vé este código...

Clase Servicio...

Código VB.Net:

Public Class Servicio
    Dim nombre As String
    Dim horaInicio As String
    Dim horaFin As String
    Public Sub constructor(ByVal n As String, ByVal i As String, ByVal f As String)
        nombre = n
        horaInicio = i
        horaFin = f
    End Sub
    Public Function getIni() As String
        getIni = horaInicio
    End Function
    Public Function getfin() As String
        getfin = horaFin
    End Function
    Public Function getNombre() As String
        getNombre = nombre
    End Function
End Class
 

Ahora, desde la BD rescato todos los valores que estén en la tabla HA_SERVICES_H, los cuales son nombre, hora inicio y hora fin...
Cada uno de estos los guardo en una lista (en vez de listas pordrías usar variables string o cosas así, pero al hacer eso sólo tienes que tener un valor por variable), es decir debes dar una condición al SELECT, que puede ser WHERE Nombre='"nombre1"'

Código vb.net:

Dim servicio As New Servicio
        SQL = "select * from HA_SERVICES_H order by INICIO"
        'en el metodo conectar está el string de conexion a la base de datos
        Comando.Connection = conectar()
        Comando.CommandText = SQL
        Dim lista As New Collection
        Dim lista2 As New Collection
        Dim lista3 As New Collection
        rs = Comando.ExecuteReader()
        While rs.Read
            servicio.constructor(rs("SERVICIO"), rs("INICIO"), rs("FIN"))
            lista.Add(servicio.getNombre)
            lista2.Add(servicio.getIni)
            lista3.Add(servicio.getfin)
        End While
        Comando.Connection.Close()
 

Espero te sirva.
Saludos.

[pyroCL]

Si no quieres trabajar con clases puede hacer lo siguiente en el while...

Creas las variables necesarias...

Dim nombre As String
Dim inicio As String
Dim fin As Stirng

Código vb.net:

While rs.Read
          nombre = rs("SERVICIO")
          inicio = rs("INICIO")
          fin = rs("FIN")
End While
 

las variables usadas en el post anterior son

Código vb.net:

Dim Comando As New SqlCommand
Dim rs As SqlDataReader
Dim SQL As String
 

Saludos.-