Class, property y function

Algo asi entonces:

Sub Pruebo()

Console.WriteLine(Data.Productos(10).Nombre)

End Sub

Public Class Producto

Private _nombre As String
Private _precio As Decimal

Public Sub New(ByVal nombre As String, ByVal precio As Decimal)
_nombre = nombre
_precio = precio
End Sub

Public ReadOnly Property Nombre() As String
Get
Return _nombre
End Get
End Property

Public ReadOnly Property Precio() As Decimal
Get
Return _precio
End Get
End Property

End Class

Public NotInheritable Class Data

Public Shared Function Productos(ByVal codigo As Integer) As Producto

Dim producto As Producto

' Aqui codigo para ejecutar comando
' que devuelve un data reader

producto = New Producto(reader.GetString("nombre"),
reader.GetDecimal("precio"))

Return producto

End Function

End Class

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Muchas gracias por todo!!! ^^

"Eduardo A. Morcillo [MS MVP VB]" <emorcillo .AT. mvps.org> wrote in message
news:
Mostrar la cita

Algo asi entonces:

Sub Pruebo()

Console.WriteLine(Data.Productos(10).Nombre)

End Sub

Public Class Producto

Private _nombre As String
Private _precio As Decimal

Public Sub New(ByVal nombre As String, ByVal precio As Decimal)
_nombre = nombre
_precio = precio
End Sub

Public ReadOnly Property Nombre() As String
Get
Return _nombre
End Get
End Property

Public ReadOnly Property Precio() As Decimal
Get
Return _precio
End Get
End Property

End Class

Public NotInheritable Class Data

Public Shared Function Productos(ByVal codigo As Integer) As Producto

Dim producto As Producto

' Aqui codigo para ejecutar comando
' que devuelve un data reader

producto = New Producto(reader.GetString("nombre"),
reader.GetDecimal("precio"))

Return producto

End Function

End Class

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Bueno, la verdad Eduardo que me funciono mejor de lo que esperaba ya que me
simplifica muchas cosas el poder armarlo como me lo mostraste. Ademas
entendi por el camino como funcionan algunas cosas que no entendia.
Muchisimas gracias!

Te hago una consulta, a ver si tenes idea... esa manera de trabajar, cuando
lo que devuelve depende de un SQL, carga mucho al SQL o queda cacheado de
alguna manera el dataset original?

"Eduardo A. Morcillo [MS MVP VB]" <emorcillo .AT. mvps.org> wrote in message
news:
Mostrar la cita

Algo asi entonces:

Sub Pruebo()

Console.WriteLine(Data.Productos(10).Nombre)

End Sub

Public Class Producto

Private _nombre As String
Private _precio As Decimal

Public Sub New(ByVal nombre As String, ByVal precio As Decimal)
_nombre = nombre
_precio = precio
End Sub

Public ReadOnly Property Nombre() As String
Get
Return _nombre
End Get
End Property

Public ReadOnly Property Precio() As Decimal
Get
Return _precio
End Get
End Property

End Class

Public NotInheritable Class Data

Public Shared Function Productos(ByVal codigo As Integer) As Producto

Dim producto As Producto

' Aqui codigo para ejecutar comando
' que devuelve un data reader

producto = New Producto(reader.GetString("nombre"),
reader.GetDecimal("precio"))

Return producto

End Function

End Class

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

De la ultima forma en que lo hice cada vez que llames a la propiedad se
ejecutara la sentencia en el servidor. Si no quieres que se ejecute siempre
la version anterior seria mas indicada.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C