Ejemplo de diseño en 3 capas vb.net

[noah_242]

Hola a todos¡
Alguien tiene algun codigo de ejemplo que me muestre como hacer una aplicacion en capas accediendo a una base datos sqlserver?O un manual o algo,me hace falta y no encuentro nada sencillo que me lo explique.Muchas gracias a todos¡

Saludos¡

[chcma]

Capa Presentacion:

Dim objNegocio as new CapaNegocio()
Dim tbAlumnos as DataTable

if not objNegocio.insertaAlumno(txtnombre.text, txtapellidos.text) then
msgbox("Fallo al insertar datos")
exit sub
end if

if tbAlumnos not is nothing then
tbAlumnos.Dispose
end if
tbalumnos = new DataTable 'Asi siempre krearemos uno nuevo.
if not objNegocio.dameAlumnos(tbAlumnos) then
msgbox("Fallo al recuperar datos")
exit sub
end if


************************************************
Capa Negocio

public function insertaAlumno(ByVal nombre as String, ByVal Apellidos as String) as Boolean

'Metemos los parametros en una coleccion, Campo - Valor(La llamaremos objColeccion)
Dim objBD as new CapaAccesoBD("cadena conexion")
if not objBD.insertaDatos("talumnos", objColeccion) then
return false
end if

end function


public function dameAlumnos(ByRef tbDatos as DataTable) as boolean

'Creamos los campos que iran en el datatable y q recibiremos de la sentencia select
tbDatos.add(New Column("nombre", "tipo de dato"))
tbDatos.add(New Column("nombre", "tipo de dato"))

if not objDatos.dameSelect(tbTabla, "talumnos", "*", "") then
return false
end if

end function



************************************************** ***********
Capa AccesoADatos:

public function insertaDatos(ByVal tablaBD as String, ByVal CollecionCampos as Collection) as boolean

'Creamos una sentencia insert comun para cualquier tabla.
'Si la ejecucion de esa tabla es verdadera, devolvemos true

end function


public function dameSelect(ByRef tbDatos as DataTable, tablaBD as string, Campos as String, Optional Condicion = "") as boolean

Hacemos un select y metemos los valroes en el dataTable, al haber sido pasado por referencia, este se llenará automáticamente con los datos en la capa de presentación, para asi poder mostrarlso trankilamente.

end function



Ya podrían haberme puesto a mi esta respuesta cuando lo pregunte en su momento. Espero que te sirva. Saludos.

[Rony J.]

Checa este enlace que tambien te puede servir de ayuda:
http://www.microsoft.com/spanish/msd...ces/art140.asp

Por cierto, si quieres apurar o facilitar un poco el desarrollo de la aplicación una opción es que utilices los Applications Blocks de MS para la parte de accceso a datos, manejo de excepciones, entre otros.. además puedes ver el código y modificarlo si lo deseas.

Saludos

[noah_242]

HEy gracias chcma y Rony J.¡
Me aveis ayudado aa entender un poco esto,de todas formas creo que tendre que practicar mucho para cogerle el truco a esto,de nuevo gracias por vuestra inestimable ayuda¡Saludos¡

[roger1187]

Tengo una gran duda ...yo ahora estoy trabajando con visual 2008

mi problema es que las carpetas donde grabo las librerias son dentro del app_code verdad ??

en el ejemplo veo que llaman a la capa negocio ... lo que tengo de duda es como la llaman ... en una carpeta n una libreria de clases ... donde guardan los codigos de cada capa esa es mi duda

[obernalmy]

Personalmente yo creo un proyecto para cada capa, y los dll's de la capa de negocio y datos los meto en la carpeta bin de la aplicacion web y creo las referencias necesarias.