sqldataprovider.vb

Job post Job post

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data

Namespace BigBridge.Modules.JobPost

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' SQL Server implementation of the abstract DataProvider class
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Class SqlDataProvider

        Inherits DataProvider

#Region "Private Members"

        Private Const ProviderType As String = "data"
        Private Const ModuleQualifier As String = ""

        Private _providerConfiguration As Framework.Providers.ProviderConfiguration = Framework.Providers.ProviderConfiguration.GetProviderConfiguration(ProviderType)
        Private _connectionString As String
        Private _providerPath As String
        Private _objectQualifier As String
        Private _databaseOwner As String

#End Region

#Region "Constructors"

        Public Sub New()

            ' Read the configuration specific information for this provider
            Dim objProvider As Framework.Providers.Provider = CType(_providerConfiguration.Providers(_providerConfiguration.DefaultProvider), Framework.Providers.Provider)

            ' Read the attributes for this provider
            If (Not objProvider.Attributes("connectionStringName") Is Nothing) AndAlso (Not objProvider.Attributes("connectionStringName").Equals(String.Empty)) AndAlso (Not ConfigurationManager.ConnectionStrings(objProvider.Attributes("connectionStringName")).ConnectionString.Equals(String.Empty)) Then
                _connectionString = ConfigurationManager.ConnectionStrings(objProvider.Attributes("connectionStringName")).ConnectionString
            Else
                _connectionString = objProvider.Attributes("connectionString")
            End If

            _providerPath = objProvider.Attributes("providerPath")

            _objectQualifier = objProvider.Attributes("objectQualifier")
            If _objectQualifier <> "" And _objectQualifier.EndsWith("_") = False Then
                _objectQualifier += "_"
            End If

            _databaseOwner = objProvider.Attributes("databaseOwner")
            If _databaseOwner <> "" And _databaseOwner.EndsWith(".") = False Then
                _databaseOwner += "."
            End If

        End Sub

#End Region

#Region "Properties"

        Public ReadOnly Property ConnectionString() As String
            Get
                Return _connectionString
            End Get
        End Property

        Public ReadOnly Property ProviderPath() As String
            Get
                Return _providerPath
            End Get
        End Property

        Public ReadOnly Property ObjectQualifier() As String
            Get
                Return _objectQualifier
            End Get
        End Property

        Public ReadOnly Property DatabaseOwner() As String
            Get
                Return _databaseOwner
            End Get
        End Property

#End Region

#Region "Private Methods"

        Private Function GetFullyQualifiedName(ByVal name As String) As String
            Return DatabaseOwner & ObjectQualifier & ModuleQualifier & name
        End Function

        Private Function GetNull(ByVal Field As Object) As Object
            Return DotNetNuke.Common.Utilities.Null.GetNull(Field, DBNull.Value)
        End Function

#End Region

#Region "Public Methods"

        Public Overrides Function GetJobPost(ByVal jobId As Integer) As IDataReader
            Return CType(SqlHelper.ExecuteReader(ConnectionString, GetFullyQualifiedName("JobPostGet"), jobId), IDataReader)
        End Function

        Public Overrides Function GetAllJobPosts() As IDataReader
            Return CType(SqlHelper.ExecuteReader(ConnectionString, GetFullyQualifiedName("JobPostGetAll")), IDataReader)
        End Function

        Public Overrides Function AddJobPost(ByVal code As string , ByVal shortDescription As string , ByVal description As String , ByVal status As Integer , ByVal sortNumber As Integer , ByVal dateCreated As DateTime , ByVal jobDate As string , ByVal title As string) As Integer
            Return CType(SqlHelper.ExecuteScalar(ConnectionString, GetFullyQualifiedName("JobPostAdd"), GetNull(code), GetNull(shortDescription), GetNull(description), GetNull(status), GetNull(sortNumber), GetNull(dateCreated), GetNull(jobDate), GetNull(title)), Integer)
        End Function

        Public Overrides Sub UpdateJobPost(ByVal jobId As Integer, ByVal code As string , ByVal shortDescription As string , ByVal description As String , ByVal status As Integer , ByVal sortNumber As Integer , ByVal dateCreated As DateTime , ByVal jobDate As string , ByVal title As string)
            SqlHelper.ExecuteNonQuery(ConnectionString, GetFullyQualifiedName("JobPostUpdate"), jobId, GetNull(code), GetNull(shortDescription), GetNull(description), GetNull(status), GetNull(sortNumber), GetNull(dateCreated), GetNull(jobDate), GetNull(title))
        End Sub

        Public Overrides Sub DeleteJobPost(ByVal jobId As Integer)
            SqlHelper.ExecuteNonQuery(ConnectionString, GetFullyQualifiedName("JobPostDelete"), jobId)
        End Sub

#End Region

    End Class

End Namespace