Programando con Lista de Objetos


Lectura de una Entidad con lista de Objetos en una Aplicación de Consola…

Private lobeUsuario As New List(Of beUsuario)
Private obrUsuario As New brUsuario
Dim obeUsuario As beUsuario
lobeUsuario = obrUsuario.Listar(strcon.ToString)
If lobeUsuario Is Nothing OrElse lobeUsuario.Count = 0 Then
Console.Write("No se cargaron los datos.")
Else
Console.WriteLine(New String("=", 40))
For i As Integer = 0 To lobeUsuario.Count - 1
obeUsuario = New beUsuario
With obeUsuario
.Apellido = lobeUsuario(i).Apellido
.Clave = Encriptar(lobeUsuario(i).Clave)
.Codigo = lobeUsuario(i).Codigo
.Estado = lobeUsuario(i).Estado
.Login = lobeUsuario(i).Login
.Nombres = lobeUsuario(i).Nombres
.Tipo = lobeUsuario(i).Tipo
Console.WriteLine("{0}{1}{2}{3}", .Login.PadRight(15), .Nombres.PadRight(20), .Apellido.PadRight(20), .Clave)
End With
Next
End If

Aqui solo mostramos los datos, previo a esto se crearon los BusinnessEntity, DataAccess, BusinnessRules.

Mas adelante mostraremos en un proyecto completo como trabajar con Lista de Objetos

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s