Código:
Ya que voy a crear mas metodos para mantenimiento y demas, y no quiero estar declarando cada rato esa cadena conexion. Imports Taller.BE Imports System.Data.SqlClient Imports System.Configuration Public Class ProductoDO Public Function ListarProd() As List(Of ProductoBE) Dim listaProductos As New List(Of ProductoBE) Dim procedimiento As String = "ListarProductos" Dim cadenaConexion As String = "server=CASA-PC;database=SICVAST;integrated security=SSPI" ' "data source=.; initial catalog=northwind; user id=sa; password=alumno;" Dim conexion As New SqlConnection(cadenaConexion) Dim comando As New SqlCommand(procedimiento, conexion) comando.CommandType = CommandType.StoredProcedure Using conexion conexion.Open() Dim reader As SqlDataReader = comando.ExecuteReader() While reader.Read Dim producto As New ProductoBE producto.Codigo = reader.GetString(reader.GetOrdinal("Codigo")) producto.Descripcion = reader.GetString(reader.GetOrdinal("Descripcion")) producto.Categoria = reader.GetString(reader.GetOrdinal("Categoria")) producto.UnidMedida = reader.GetString(reader.GetOrdinal("Unidad de Medida")) listaProductos.Add(producto) End While End Using Return listaProductos End Function End Class