Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Public Class _baseDataAccess

    Private _connectionString As String
    Private _objConn As SqlConnection

    ''' <summary>
    ''' ottiene la connectionstring
    ''' </summary>
    Public ReadOnly Property ConnectionString() As String
        Get
            Return Me._connectionString
        End Get
    End Property

    ''' <summary>
    ''' costruttore
    ''' </summary>
    Public Sub New()
        ' leggo il valore dal web.config
        Me._connectionString = ConfigurationManager.ConnectionStrings("NomeConnectionString").ConnectionString
        Me._objConn = New SqlConnection(Me._connectionString)
    End Sub

    ''' <summary>
    ''' apre e ritorna una connessione aperta
    ''' </summary>
    Public Function OpenConnection() As SqlConnection

        ' apro la connessione coi parametri di connectionstring da web.config
        Me._objConn.Open()
        Return Me._objConn

    End Function

    ''' <summary>
    ''' ritorna un commanda dalla connessione
    ''' </summary>
    Public Function GetCommand() As SqlCommand

        Return Me._objConn.CreateCommand()

    End Function

    ''' <summary>
    ''' chiude la connessione e disalloca la memoria
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub CloseConnection()

        If Me._objConn.State = ConnectionState.Open Then
            Me._objConn.Close()
            Me._objConn.Dispose()
        End If

    End Sub

End Class