Untitled

Imports SqlToolBox
Imports System.Data.SqlClient

Public Class RSSFEEDS

#Region "Private Local Fields"
    Private _RSSID As Integer
    Private _URL As String
    Private _Name As String
    Private _isNew As Boolean
#End Region

#Region "Constructors"
    Public Sub New()
        Me._isNew = True
    End Sub

    Public Sub New(ByVal iRSSID)
        Me._RSSID = iRSSID
        load()
        Me._isNew = False
    End Sub
#End Region

#Region "Private Methods"
    Private Sub load()
        Dim d As Database = New Database()
        Dim dataReader As SqlDataReader = Nothing
        Dim prams() As SqlParameter = New SqlParameter() {d.MakeInParam("@p_rssid", SqlDbType.Int, 4, Me._RSSID)}

        Try
            d.RunProc("sps_rssfeeds_getbyid", prams, dataReader)
        Catch ex As Exception
            ' Database threw an error, bubble it up.
            dataReader.Close()
            Throw New Exception(ex.ToString(), ex)
        End Try

        ' Check to see if sp returned a record.
        If (dataReader.Read()) Then
            setProperties(dataReader)
            dataReader.Close()
        Else
            ' No record was returned by the sp.
            dataReader.Close()
            Throw New Exception("RSS Feed not Found.")
        End If
    End Sub

    Private Sub setProperties(ByVal dataReader As SqlDataReader)
        Me._RSSID = Convert.ToInt32(dataReader.GetInt32(dataReader.GetOrdinal("RSSID")))
        Me._URL = Convert.ToString(dataReader.GetString(dataReader.GetOrdinal("URL")))
        Me._Name = Convert.ToString(dataReader.GetString(dataReader.GetOrdinal("Name")))
    End Sub

#End Region

#Region "Public Methods"

    Public Sub Delete()
        Dim data As Database = New Database()
        Dim dataReader As SqlDataReader = Nothing
        Dim prams() As SqlParameter = { _
            data.MakeInParam("@p_rssid", SqlDbType.Int, 4, Me._RSSID) _
        }
        Try
            ' Run Stored Procedure.
            data.RunProc("sps_rssfeeds_delete", prams, dataReader)
        Catch ex As Exception
            ' Database threw an error, bubble it up.
            dataReader.Close()
            Throw New Exception(ex.ToString(), ex)
        End Try
    End Sub

    Public Sub Save()
        If Me._isNew Then
            Insert()
        Else
            Update()
        End If
    End Sub

    Public Sub Insert()
        Dim data As Database = New Database()
        Dim prams() As SqlParameter = New SqlParameter() { _
            data.MakeOutParam("@p_rssid", SqlDbType.Int, 4), _
            data.MakeInParam("@p_url", SqlDbType.VarChar, 1024, Me._URL), _
            data.MakeInParam("@p_name", SqlDbType.VarChar, 50, Me._Name) _
        }

        Try
            data.RunProc("sps_rssfeeds_insert", prams)
            Dim o As Object = prams(0).Value
            Me._RSSID = CType(o, Integer)
            Me._isNew = False
        Catch ex As Exception
            Throw New Exception(ex.ToString(), ex)
        End Try
    End Sub

    Public Sub Update()
        Dim data As Database = New Database()
        Dim prams() As SqlParameter = New SqlParameter() { _
            data.MakeInParam("@p_rssid", SqlDbType.Int, 4, Me._RSSID), _
            data.MakeInParam("@p_url", SqlDbType.VarChar, 1024, Me._URL), _
            data.MakeInParam("@p_name", SqlDbType.VarChar, 50, Me._Name) _
        }

        Try
            data.RunProc("sps_rssfeeds_update", prams)
            Me._isNew = False
        Catch ex As Exception
            Throw New Exception(ex.ToString(), ex)
        End Try
    End Sub

#End Region

#Region "Public Properties"

    Public Property RSSID() As String
        Get
            Return Me._RSSID
        End Get
        Set(ByVal value As String)
            Me._RSSID = value
        End Set
    End Property

    Public Property URL() As String
        Get
            Return Me._URL
        End Get
        Set(ByVal value As String)
            Me._URL = value
        End Set
    End Property

    Public Property Name() As String
        Get
            Return Me._Name
        End Get
        Set(ByVal value As String)
            Me._Name = value
        End Set
    End Property

#End Region

End Class