[SOLUCIONADO] crear una tabla dependiendo de los resultados de un select

[maialenlopez]

Hola,

Estoy programando en vb.net y necesito crear una tabla depensiendo de lo que me devuelva una query.

Yo tengo un selet el cual me puede devolver, un valor, dos, n valores. Quiero ir creando una tabla dependiendo de los valores que me devuelva.

¿Alguien me puede ayudar?

Gracias,

[Malenko]

Actualmente como tienes creada la tabla? Te refieres a un datagrid o una tabla HTML? Puedes recorrer los datos mediante la función Read del SqlDataReader

[maialenlopez]

Iniciado por Malenko

Actualmente como tienes creada la tabla? Te refieres a un datagrid o una tabla HTML? Puedes recorrer los datos mediante la función Read del SqlDataReader

Actualmente la tabla no la tengo creada. Quiero que vaya recorriendo los datos y me vaya creando las row de la tabla dependiendo de lo que recorra. La cell siempre va a ser 2 ya que solo quiero mostrar el id y la fecha.

[capixi]

Pero estás usando Windows Form o WPF u otro lenguaje de .Net?

Yo por ejemplo en WPF con linQ tengo el siguiente código para que no se me autogeneren las columnas y mostrar únicamente 2.

Código:

 
<DataGrid Name="gridEqui" Height="500" VerticalAlignment="Top" HorizontalAlignment="Left" AutoGenerateColumns="False" VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Auto" MouseDoubleClick="gridCiclis_MouseDoubleClick" ItemsSource="{Binding}" Loaded="gridEqui_Loaded_1">
            <DataGrid.Columns>
                <DataGridTextColumn Binding="{Binding nom}" Header="nombre equipo"/>
                <DataGridTextColumn Binding="{Binding director}" Header="nombre director"/>
            </DataGrid.Columns>
        </DataGrid>

Y luego para cargar los datos de la base de datos uso este método:

Código:

     
       //Cargo el formulario
        private void WgridEqui_Loaded(object sender, RoutedEventArgs e)
        {
            seleccionado = null;
            //Cargo los datos del contexto.
            //actualizo el datagrid
            gridEqui.DataContext = objeto.MostrarTodosLosEquipos();
        }

Mostrar todos los equipos es un servicio que creé:

Código:

        //Obtiene toda la información de los equipos
        public List<equips> MostrarTodosLosEquipos()
        {
            List<equips> listaEquipos = (from equipo in contexto.equips select equipo).ToList();
            return listaEquipos;
        }

Pero claro está recuerda que esto es, con WPF y con Linq, mostrando los datos en un datagrid.

[Malenko]

Iniciado por maialenlopez

Actualmente la tabla no la tengo creada. Quiero que vaya recorriendo los datos y me vaya creando las row de la tabla dependiendo de lo que recorra. La cell siempre va a ser 2 ya que solo quiero mostrar el id y la fecha.

Tendrias que hacer algo similar a esto (no suelo programar en VB.NET así que puede que se cuele algún errror):

Código:

Dim command As New SqlCommand(SQLquery, connection)
connection.Open()

Dim dr As SqlDataReader = command.ExecuteReader()

' Creamos la tabla con la cabecera
' ...

While dr.Read()
   ' Agregamos la columna a la tabla
EndWhile

En el tema de crear las filas en la tabla no te puedo ayudar más porque no sé que tipo de objeto tabla estas intentando usar (DataTable, DataGrid,...). Pero la lógica del "rellenado" tendría que seguir ese código. Según el objeto que quieras rellenar puede simplificarse y optimizarse muchisimo haciendo el binding al DataSet directamente.

[maialenlopez]

Iniciado por Malenko

Tendrias que hacer algo similar a esto (no suelo programar en VB.NET así que puede que se cuele algún errror):

Código:

Dim command As New SqlCommand(SQLquery, connection)
connection.Open()

Dim dr As SqlDataReader = command.ExecuteReader()

' Creamos la tabla con la cabecera
' ...

While dr.Read()
   ' Agregamos la columna a la tabla
EndWhile

En el tema de crear las filas en la tabla no te puedo ayudar más porque no sé que tipo de objeto tabla estas intentando usar (DataTable, DataGrid,...). Pero la lógica del "rellenado" tendría que seguir ese código. Según el objeto que quieras rellenar puede simplificarse y optimizarse muchisimo haciendo el binding al DataSet directamente.

Algo asíi habia pensado hacer pero el problema es que no se como decirle que me cree la tabla ni me vaya creando las columnas.

[capixi]

Si no te importa pega aquí tu trozo de código y dinos donde no sabes como continuar para que te podamos ayudar mejor.
Saludos.

[maialenlopez]

Ya he solucionado el tema. Pongo aquí el código por si a alguien le hace falta:

Código vb.net:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim fechaActual As Date
        Dim nombre, email, mesAnterior, fechacompro, anoActual As String
        Dim mesActual As Integer
        'Dim i, j, cuanto As Integer
        'Dim numcells As Integer = 2
        'i = 0
 
        fechaActual = Now.Date
        mesActual = Month(fechaActual)
        anoActual = Year(fechaActual)
 
        If mesActual = 1 Then
            mesAnterior = 12
        Else
            mesAnterior = mesActual - 2
            'mesAnterior = mesActual
        End If
 
        If mesAnterior < 10 Then
            mesAnterior = "0" + mesAnterior
        End If
 
        fechacompro = anoActual + "-" + mesAnterior + "-"
 
        Dim conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("conexionDesa").ConnectionString)
        'Dim comm1 As SqlCommand = New SqlCommand("SELECT COUNT(DISTINCT(email)) " & _
        '                                        "FROM dbo.temp_datosComunesConceptos " & _
        '                                        "WHERE fecha LIKE '" & fechacompro & "%'", conn)
        'Dim reader1 As SqlDataReader
        Dim comm2 As SqlCommand = New SqlCommand("SELECT DISTINCT(email), nombreApellidos " & _
                                                "FROM dbo.temp_datosComunesConceptos " & _
                                                "WHERE fecha LIKE '" & fechacompro & "%'" & _
                                                "ORDER BY nombreApellidos", conn)
        Dim reader2 As SqlDataReader
 
        Try
 
            Using conn
 
                'conn.Open()
                'With comm1
                '    reader1 = .ExecuteReader()
                '    While reader1.Read()
                '        cuanto = reader1.GetValue(0)
                '    End While
                '    .Dispose()
                'End With
                'If conn.State = ConnectionState.Open Then
 
                '    conn.Close()
                'End If
 
                conn.Open()
                With comm2
                    reader2 = .ExecuteReader()
                    While reader2.Read()
                        'For i = 0 To cuanto - 1
                        Dim objRow As New TableRow()
 
                        email = reader2.GetValue(0)
                        nombre = reader2.GetValue(1)
 
                        'For j = 0 To numcells - 1
                        Dim objCell1 As New TableCell()
                        Dim objCell2 As New TableCell()
 
                        objCell1.Controls.Add(New LiteralControl(nombre))
                        objCell2.Controls.Add(New LiteralControl(email))
                        objRow.Cells.Add(objCell1)
                        objRow.Cells.Add(objCell2)
                        'Next
                        Table1.Rows.Add(objRow)
                        'Next
                    End While
                    .Dispose()
                End With
            End Using
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
            'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
    End Sub
 

Gracias a todos por vuestra ayuda.

[capixi]

Me alegro que lo solucionases. Gracias por el código.