none
VB 2012 Dividir codigo una clase en dos partes (Conexion a Datos) RRS feed

  • Pregunta

  • Hola amigos: tengo el siguiente codigo:

    Imports System.Data
    Imports System.Data.SqlClient

    Public Class CConexion
        Private _cadena As String
        Private _conexion As SqlConnection
        Private _tabla As DataTable = New DataTable
        Private _adaptador As SqlDataAdapter = New SqlDataAdapter

        Public Function conexion()
            _cadena = "Data Source=localhost;Initial Catalog=SCVP_DataBase;Integrated Security=True"
            _conexion = New SqlConnection(_cadena)
            Return True
        End Function

        Private Sub cerrar()
            _conexion.Close()
        End Sub

        Public Function CONSULTAR_TODOS() As Boolean
            Dim estado As Boolean = True
            Try
                conexion()
                _adaptador.SelectCommand = New SqlCommand("select * from tbl_Pabellones", _conexion)
                _adaptador.Fill(_tabla)
            Catch ex As SqlException
                estado = False
            Finally
                cerrar()
            End Try
            Return estado
        End Function

        Public ReadOnly Property tabla As DataTable
            Get
                Return _tabla
            End Get
        End Property


        Public Function insertar_Datos(ByVal datos As cDatos) As Boolean
            Dim estado As Boolean = True
            Try
                conexion()
                _adaptador.InsertCommand = New SqlCommand("sp_InsUpd_tbl_Pabellones", _conexion)
                _adaptador.InsertCommand.Parameters.Add("@ID_Pabellon", SqlDbType.Int).Value = datos.iddatos
                _adaptador.InsertCommand.Parameters.Add("@str_Pabellon", SqlDbType.VarChar, 40).Value = datos.nombre
                _adaptador.InsertCommand.Parameters.Add("@str_AbreviacionDePabellon", SqlDbType.VarChar, 15).Value = datos.email
                _conexion.Open()
                _adaptador.InsertCommand.Connection = _conexion
                _adaptador.InsertCommand.ExecuteNonQuery()
            Catch ex As Exception
                estado = False
            Finally
                cerrar()
            End Try
            Return estado
        End Function
    End Class

    Deseo poner dividir todo este codigo en dos partes, me explico: una clase para conexion a la base de datos y otra clase con el resto de codigo; el motivo es que deseo aprender hacer proyectos en tres capas, por ello quiero dividir la conexion separado de la logica...gracias.

    su amigo y servidor..

    lunes, 30 de septiembre de 2013 16:26