Multicapas

Vaya de aquí a un tiempo, me doy un poquitín de espacio para poder compartir con Ud’s más ejemplos sobre programación multicapas, es bastante sencillo pero bien efectivo y fácil de comprender para todos aquellos que están iniciándose en el mundo de la programación. Claro hay una infinidad de ejemplos en muchos sitios pero a ver cómo les va este ejemplo… Bien, eh en el gráfico de abajo podemos ver mediante el explorador de soluciones como está distribuido las tres capas que es lo que comúnmente se implementa en un programa de escritorio, como podemos apreciar se creó un proyecto de consola para llevar a cabo este ejemplo.

 

 

 

 

 

 

 

 

 

En la capa de acceso a datos (AccesoBD) creamos la clase BaseDatos.vb escribimos el siguiente código:

Imports System.Data
Imports System.Data.SqlClient

Public Class BaseDatos
    Private conexion As String = "Data Source=(local);Initial Catalog=BD;Integrated Security=true"
    Private cn As SqlClient.SqlConnection
    Private cmd As SqlCommand

    Public Sub Conectar()
        Try
            cn = New SqlConnection(conexion)
            cn.Open()
            Console.WriteLine("Conexion exitosa")
        Catch ex As SqlException
            Console.WriteLine(ex.Message, "Fallo la conexion")
        End Try
    End Sub
    Public Sub desconectar()
        Try
            cn.Close()
            Console.WriteLine("BD sin conexion")
        Catch ex As Exception
            Console.WriteLine(ex.Message, "Fallo la operacion")
        End Try
    End Sub
    Public Sub CrearComando(ByVal strSQL As String)
        cmd = New SqlCommand(strSQL)

        cmd.Connection = cn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSQL

    End Sub
    Public Function EjecutarConsulta() As SqlDataReader
        Return cmd.ExecuteReader()
    End Function
End Class

Sigue leyendo

Anuncios