Algo asi...
Código vb:
Ver originalCapaD
Public Funcion ListarEmpleados() AS List(OF EntidadesEmpleados.Empleado)
''aqui va la conexion y los query que ejecutas
despues lleno un dataset y lo recorro agregandolos a un arrego o la capa de entidades.
dim Empleado as new CapaEntidades.Empleado
Dim LEmpleado as new List(of CapaEntidades.Empleado)
for each dtr as datarow in ds.tables(0).rows
Empleado = new capaentidades.empleado
Empleado.codigo = dtr("Codigo")
LEmpleado.add(Empleado)
return LEmpleado
next
''Capa Entidades
Public Class Empleado
private _Empleado as string
public property Empleado as string
get
return _empleado
end get
set (Byval value as string)
if not string.isnullorempty(value) then
_empleado = value
end if
end get
end property
Capa Logicas
Public Class LogicEmpleado as list(of CapaEntidades.Empleados)
public Funcion GetEmpleados
dim CDatos as new capaDatos.Empleados
return cdatos.ListarEmpleados
''algo asi