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!
