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


