Llenar DataGrid con SP SQL

[Marvin]

Holas,

Estoy tratando de llenar un datagrid con informacion de un procedimiento almacenado pero la verdad ya me gano esto.

Código:

            'Llamada a procedimiento almacenado
            Dim sql As New SqlCommand
            sql.Connection = Conn
            sql.CommandType = Data.CommandType.StoredProcedure

            'Seleccion de procedimiento segun variable
            sql.CommandText = "saca" & aListar

            'Adaptador de Datos
            Dim miDA = New SqlDataAdapter(sql)

            'Llenamos el DataSet
            miDA.Fill(miListado)

            'Cerramos la conexión
            Conn.Close()

Si luego de esto pongo MiGrid.DataSource = miListado no funciona, pero no se si realmente estoy accediendo bien.

Gracias por la lectura!

[programadorvip]

Iniciado por Marvin

Holas,

Estoy tratando de llenar un datagrid con informacion de un procedimiento almacenado pero la verdad ya me gano esto.

Código:

            'Llamada a procedimiento almacenado
            Dim sql As New SqlCommand
            sql.Connection = Conn
            sql.CommandType = Data.CommandType.StoredProcedure

            'Seleccion de procedimiento segun variable
            sql.CommandText = "saca" & aListar

            'Adaptador de Datos
            Dim miDA = New SqlDataAdapter(sql)

            'Llenamos el DataSet
            miDA.Fill(miListado)

            'Cerramos la conexión
            Conn.Close()

Si luego de esto pongo MiGrid.DataSource = miListado no funciona, pero no se si realmente estoy accediendo bien.

Gracias por la lectura!

y colocaste el DataBind

MiGrid.DataSource = miListado
MiGrid.DataBind()

[Marvin]

No es solo por eso... aca pongo el codigo que finalmente funciono:

Funcion

Código:

    Public Function Listado() As DataSet
        'Creamos el DataSet
        Dim miListado As New DataSet

        Try
            'Conexion a la base de datos
            Dim Conn As New SqlClient.SqlConnection
            Conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DB.mdf;Integrated Security=True;User Instance=True"
            Conn.Open()

            'Llamada a procedimiento almacenado
            Dim sql As New SqlDataAdapter("extraeLista", Conn)

            'Llenamos el DataSet con la informacion de SQL
            sql.Fill(miListado)

            'Cerramos la conexión
            Conn.Close()

            'Enviamos el DataSet
            Return miListado
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
            Return miListado
        End Try
    End Function

Llamada a la funcion

Código:

        Dim capaDatos As New CapaDatos

        'Agregar los datos en el Grid
        ElGrid.DataSource = capaDatos.Listado()
        ElGrid.DataBind()

Suerte!