'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.1.4322.573
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
<Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Diagnostics.DebuggerStepThrough(), _
System.ComponentModel.ToolboxItem(true)> _
Public Class DataSet1
Inherits DataSet
Private tableitem As itemDataTable
Private tableViewItems As ViewItemsDataTable
Private tablersssites As rsssitesDataTable
Public Sub New()
MyBase.New
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
MyBase.New
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)
If (Not (strSchema) Is Nothing) Then
Dim ds As DataSet = New DataSet
ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("item")) Is Nothing) Then
Me.Tables.Add(New itemDataTable(ds.Tables("item")))
End If
If (Not (ds.Tables("ViewItems")) Is Nothing) Then
Me.Tables.Add(New ViewItemsDataTable(ds.Tables("ViewItems")))
End If
If (Not (ds.Tables("rsssites")) Is Nothing) Then
Me.Tables.Add(New rsssitesDataTable(ds.Tables("rsssites")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.InitClass
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property item As itemDataTable
Get
Return Me.tableitem
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property ViewItems As ViewItemsDataTable
Get
Return Me.tableViewItems
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property rsssites As rsssitesDataTable
Get
Return Me.tablersssites
End Get
End Property
Public Overrides Function Clone() As DataSet
Dim cln As DataSet1 = CType(MyBase.Clone,DataSet1)
cln.InitVars
Return cln
End Function
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
Me.Reset
Dim ds As DataSet = New DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("item")) Is Nothing) Then
Me.Tables.Add(New itemDataTable(ds.Tables("item")))
End If
If (Not (ds.Tables("ViewItems")) Is Nothing) Then
Me.Tables.Add(New ViewItemsDataTable(ds.Tables("ViewItems")))
End If
If (Not (ds.Tables("rsssites")) Is Nothing) Then
Me.Tables.Add(New rsssitesDataTable(ds.Tables("rsssites")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
End Sub
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
End Function
Friend Sub InitVars()
Me.tableitem = CType(Me.Tables("item"),itemDataTable)
If (Not (Me.tableitem) Is Nothing) Then
Me.tableitem.InitVars
End If
Me.tableViewItems = CType(Me.Tables("ViewItems"),ViewItemsDataTable)
If (Not (Me.tableViewItems) Is Nothing) Then
Me.tableViewItems.InitVars
End If
Me.tablersssites = CType(Me.Tables("rsssites"),rsssitesDataTable)
If (Not (Me.tablersssites) Is Nothing) Then
Me.tablersssites.InitVars
End If
End Sub
Private Sub InitClass()
Me.DataSetName = "DataSet1"
Me.Prefix = ""
Me.Namespace = "http://www.tempuri.org/DataSet1.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = false
Me.EnforceConstraints = true
Me.tableitem = New itemDataTable
Me.Tables.Add(Me.tableitem)
Me.tableViewItems = New ViewItemsDataTable
Me.Tables.Add(Me.tableViewItems)
Me.tablersssites = New rsssitesDataTable
Me.Tables.Add(Me.tablersssites)
End Sub
Private Function ShouldSerializeitem() As Boolean
Return false
End Function
Private Function ShouldSerializeViewItems() As Boolean
Return false
End Function
Private Function ShouldSerializersssites() As Boolean
Return false
End Function
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
Public Delegate Sub itemRowChangeEventHandler(ByVal sender As Object, ByVal e As itemRowChangeEvent)
Public Delegate Sub ViewItemsRowChangeEventHandler(ByVal sender As Object, ByVal e As ViewItemsRowChangeEvent)
Public Delegate Sub rsssitesRowChangeEventHandler(ByVal sender As Object, ByVal e As rsssitesRowChangeEvent)
<System.Diagnostics.DebuggerStepThrough()> _
Public Class itemDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnauthor As DataColumn
Private columndescription As DataColumn
Private columnid As DataColumn
Private columnlink As DataColumn
Private columnpubdate As DataColumn
Private columntitle As DataColumn
Private columnView As DataColumn
Friend Sub New()
MyBase.New("item")
Me.InitClass
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(table.TableName)
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property authorColumn As DataColumn
Get
Return Me.columnauthor
End Get
End Property
Friend ReadOnly Property descriptionColumn As DataColumn
Get
Return Me.columndescription
End Get
End Property
Friend ReadOnly Property idColumn As DataColumn
Get
Return Me.columnid
End Get
End Property
Friend ReadOnly Property linkColumn As DataColumn
Get
Return Me.columnlink
End Get
End Property
Friend ReadOnly Property pubdateColumn As DataColumn
Get
Return Me.columnpubdate
End Get
End Property
Friend ReadOnly Property titleColumn As DataColumn
Get
Return Me.columntitle
End Get
End Property
Friend ReadOnly Property ViewColumn As DataColumn
Get
Return Me.columnView
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As itemRow
Get
Return CType(Me.Rows(index),itemRow)
End Get
End Property
Public Event itemRowChanged As itemRowChangeEventHandler
Public Event itemRowChanging As itemRowChangeEventHandler
Public Event itemRowDeleted As itemRowChangeEventHandler
Public Event itemRowDeleting As itemRowChangeEventHandler
Public Overloads Sub AdditemRow(ByVal row As itemRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AdditemRow(ByVal author As String, ByVal description As String, ByVal link As String, ByVal pubdate As Date, ByVal title As String, ByVal View As Boolean) As itemRow
Dim rowitemRow As itemRow = CType(Me.NewRow,itemRow)
rowitemRow.ItemArray = New Object() {author, description, Nothing, link, pubdate, title, View}
Me.Rows.Add(rowitemRow)
Return rowitemRow
End Function
Public Function FindByid(ByVal id As Integer) As itemRow
Return CType(Me.Rows.Find(New Object() {id}),itemRow)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As itemDataTable = CType(MyBase.Clone,itemDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New itemDataTable
End Function
Friend Sub InitVars()
Me.columnauthor = Me.Columns("author")
Me.columndescription = Me.Columns("description")
Me.columnid = Me.Columns("id")
Me.columnlink = Me.Columns("link")
Me.columnpubdate = Me.Columns("pubdate")
Me.columntitle = Me.Columns("title")
Me.columnView = Me.Columns("View")
End Sub
Private Sub InitClass()
Me.columnauthor = New DataColumn("author", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnauthor)
Me.columndescription = New DataColumn("description", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columndescription)
Me.columnid = New DataColumn("id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnid)
Me.columnlink = New DataColumn("link", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnlink)
Me.columnpubdate = New DataColumn("pubdate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnpubdate)
Me.columntitle = New DataColumn("title", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columntitle)
Me.columnView = New DataColumn("View", GetType(System.Boolean), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnView)
Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
End Sub
Public Function NewitemRow() As itemRow
Return CType(Me.NewRow,itemRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New itemRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(itemRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.itemRowChangedEvent) Is Nothing) Then
RaiseEvent itemRowChanged(Me, New itemRowChangeEvent(CType(e.Row,itemRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.itemRowChangingEvent) Is Nothing) Then
RaiseEvent itemRowChanging(Me, New itemRowChangeEvent(CType(e.Row,itemRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.itemRowDeletedEvent) Is Nothing) Then
RaiseEvent itemRowDeleted(Me, New itemRowChangeEvent(CType(e.Row,itemRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.itemRowDeletingEvent) Is Nothing) Then
RaiseEvent itemRowDeleting(Me, New itemRowChangeEvent(CType(e.Row,itemRow), e.Action))
End If
End Sub
Public Sub RemoveitemRow(ByVal row As itemRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class itemRow
Inherits DataRow
Private tableitem As itemDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableitem = CType(Me.Table,itemDataTable)
End Sub
Public Property author As String
Get
Try
Return CType(Me(Me.tableitem.authorColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.authorColumn) = value
End Set
End Property
Public Property description As String
Get
Try
Return CType(Me(Me.tableitem.descriptionColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.descriptionColumn) = value
End Set
End Property
Public Property id As Integer
Get
Return CType(Me(Me.tableitem.idColumn),Integer)
End Get
Set
Me(Me.tableitem.idColumn) = value
End Set
End Property
Public Property link As String
Get
Try
Return CType(Me(Me.tableitem.linkColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.linkColumn) = value
End Set
End Property
Public Property pubdate As Date
Get
Try
Return CType(Me(Me.tableitem.pubdateColumn),Date)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.pubdateColumn) = value
End Set
End Property
Public Property title As String
Get
Try
Return CType(Me(Me.tableitem.titleColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.titleColumn) = value
End Set
End Property
Public Property View As Boolean
Get
Try
Return CType(Me(Me.tableitem.ViewColumn),Boolean)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableitem.ViewColumn) = value
End Set
End Property
Public Function IsauthorNull() As Boolean
Return Me.IsNull(Me.tableitem.authorColumn)
End Function
Public Sub SetauthorNull()
Me(Me.tableitem.authorColumn) = System.Convert.DBNull
End Sub
Public Function IsdescriptionNull() As Boolean
Return Me.IsNull(Me.tableitem.descriptionColumn)
End Function
Public Sub SetdescriptionNull()
Me(Me.tableitem.descriptionColumn) = System.Convert.DBNull
End Sub
Public Function IslinkNull() As Boolean
Return Me.IsNull(Me.tableitem.linkColumn)
End Function
Public Sub SetlinkNull()
Me(Me.tableitem.linkColumn) = System.Convert.DBNull
End Sub
Public Function IspubdateNull() As Boolean
Return Me.IsNull(Me.tableitem.pubdateColumn)
End Function
Public Sub SetpubdateNull()
Me(Me.tableitem.pubdateColumn) = System.Convert.DBNull
End Sub
Public Function IstitleNull() As Boolean
Return Me.IsNull(Me.tableitem.titleColumn)
End Function
Public Sub SettitleNull()
Me(Me.tableitem.titleColumn) = System.Convert.DBNull
End Sub
Public Function IsViewNull() As Boolean
Return Me.IsNull(Me.tableitem.ViewColumn)
End Function
Public Sub SetViewNull()
Me(Me.tableitem.ViewColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class itemRowChangeEvent
Inherits EventArgs
Private eventRow As itemRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As itemRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As itemRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ViewItemsDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnlink As DataColumn
Friend Sub New()
MyBase.New("ViewItems")
Me.InitClass
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(table.TableName)
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property linkColumn As DataColumn
Get
Return Me.columnlink
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As ViewItemsRow
Get
Return CType(Me.Rows(index),ViewItemsRow)
End Get
End Property
Public Event ViewItemsRowChanged As ViewItemsRowChangeEventHandler
Public Event ViewItemsRowChanging As ViewItemsRowChangeEventHandler
Public Event ViewItemsRowDeleted As ViewItemsRowChangeEventHandler
Public Event ViewItemsRowDeleting As ViewItemsRowChangeEventHandler
Public Overloads Sub AddViewItemsRow(ByVal row As ViewItemsRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddViewItemsRow(ByVal link As String) As ViewItemsRow
Dim rowViewItemsRow As ViewItemsRow = CType(Me.NewRow,ViewItemsRow)
rowViewItemsRow.ItemArray = New Object() {link}
Me.Rows.Add(rowViewItemsRow)
Return rowViewItemsRow
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As ViewItemsDataTable = CType(MyBase.Clone,ViewItemsDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New ViewItemsDataTable
End Function
Friend Sub InitVars()
Me.columnlink = Me.Columns("link")
End Sub
Private Sub InitClass()
Me.columnlink = New DataColumn("link", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnlink)
End Sub
Public Function NewViewItemsRow() As ViewItemsRow
Return CType(Me.NewRow,ViewItemsRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New ViewItemsRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(ViewItemsRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ViewItemsRowChangedEvent) Is Nothing) Then
RaiseEvent ViewItemsRowChanged(Me, New ViewItemsRowChangeEvent(CType(e.Row,ViewItemsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.ViewItemsRowChangingEvent) Is Nothing) Then
RaiseEvent ViewItemsRowChanging(Me, New ViewItemsRowChangeEvent(CType(e.Row,ViewItemsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.ViewItemsRowDeletedEvent) Is Nothing) Then
RaiseEvent ViewItemsRowDeleted(Me, New ViewItemsRowChangeEvent(CType(e.Row,ViewItemsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.ViewItemsRowDeletingEvent) Is Nothing) Then
RaiseEvent ViewItemsRowDeleting(Me, New ViewItemsRowChangeEvent(CType(e.Row,ViewItemsRow), e.Action))
End If
End Sub
Public Sub RemoveViewItemsRow(ByVal row As ViewItemsRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ViewItemsRow
Inherits DataRow
Private tableViewItems As ViewItemsDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableViewItems = CType(Me.Table,ViewItemsDataTable)
End Sub
Public Property link As String
Get
Try
Return CType(Me(Me.tableViewItems.linkColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableViewItems.linkColumn) = value
End Set
End Property
Public Function IslinkNull() As Boolean
Return Me.IsNull(Me.tableViewItems.linkColumn)
End Function
Public Sub SetlinkNull()
Me(Me.tableViewItems.linkColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ViewItemsRowChangeEvent
Inherits EventArgs
Private eventRow As ViewItemsRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As ViewItemsRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As ViewItemsRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class rsssitesDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnid As DataColumn
Private columnSiteName As DataColumn
Private columnView As DataColumn
Private columnXMLURL As DataColumn
Private columnDescription As DataColumn
Friend Sub New()
MyBase.New("rsssites")
Me.InitClass
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(table.TableName)
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property idColumn As DataColumn
Get
Return Me.columnid
End Get
End Property
Friend ReadOnly Property SiteNameColumn As DataColumn
Get
Return Me.columnSiteName
End Get
End Property
Friend ReadOnly Property ViewColumn As DataColumn
Get
Return Me.columnView
End Get
End Property
Friend ReadOnly Property XMLURLColumn As DataColumn
Get
Return Me.columnXMLURL
End Get
End Property
Friend ReadOnly Property DescriptionColumn As DataColumn
Get
Return Me.columnDescription
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As rsssitesRow
Get
Return CType(Me.Rows(index),rsssitesRow)
End Get
End Property
Public Event rsssitesRowChanged As rsssitesRowChangeEventHandler
Public Event rsssitesRowChanging As rsssitesRowChangeEventHandler
Public Event rsssitesRowDeleted As rsssitesRowChangeEventHandler
Public Event rsssitesRowDeleting As rsssitesRowChangeEventHandler
Public Overloads Sub AddrsssitesRow(ByVal row As rsssitesRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddrsssitesRow(ByVal SiteName As String, ByVal View As Boolean, ByVal XMLURL As String, ByVal Description As String) As rsssitesRow
Dim rowrsssitesRow As rsssitesRow = CType(Me.NewRow,rsssitesRow)
rowrsssitesRow.ItemArray = New Object() {Nothing, SiteName, View, XMLURL, Description}
Me.Rows.Add(rowrsssitesRow)
Return rowrsssitesRow
End Function
Public Function FindByid(ByVal id As Integer) As rsssitesRow
Return CType(Me.Rows.Find(New Object() {id}),rsssitesRow)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As rsssitesDataTable = CType(MyBase.Clone,rsssitesDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New rsssitesDataTable
End Function
Friend Sub InitVars()
Me.columnid = Me.Columns("id")
Me.columnSiteName = Me.Columns("SiteName")
Me.columnView = Me.Columns("View")
Me.columnXMLURL = Me.Columns("XMLURL")
Me.columnDescription = Me.Columns("Description")
End Sub
Private Sub InitClass()
Me.columnid = New DataColumn("id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnid)
Me.columnSiteName = New DataColumn("SiteName", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnSiteName)
Me.columnView = New DataColumn("View", GetType(System.Boolean), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnView)
Me.columnXMLURL = New DataColumn("XMLURL", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnXMLURL)
Me.columnDescription = New DataColumn("Description", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnDescription)
Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
End Sub
Public Function NewrsssitesRow() As rsssitesRow
Return CType(Me.NewRow,rsssitesRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New rsssitesRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(rsssitesRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.rsssitesRowChangedEvent) Is Nothing) Then
RaiseEvent rsssitesRowChanged(Me, New rsssitesRowChangeEvent(CType(e.Row,rsssitesRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.rsssitesRowChangingEvent) Is Nothing) Then
RaiseEvent rsssitesRowChanging(Me, New rsssitesRowChangeEvent(CType(e.Row,rsssitesRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.rsssitesRowDeletedEvent) Is Nothing) Then
RaiseEvent rsssitesRowDeleted(Me, New rsssitesRowChangeEvent(CType(e.Row,rsssitesRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.rsssitesRowDeletingEvent) Is Nothing) Then
RaiseEvent rsssitesRowDeleting(Me, New rsssitesRowChangeEvent(CType(e.Row,rsssitesRow), e.Action))
End If
End Sub
Public Sub RemoversssitesRow(ByVal row As rsssitesRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class rsssitesRow
Inherits DataRow
Private tablersssites As rsssitesDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tablersssites = CType(Me.Table,rsssitesDataTable)
End Sub
Public Property id As Integer
Get
Return CType(Me(Me.tablersssites.idColumn),Integer)
End Get
Set
Me(Me.tablersssites.idColumn) = value
End Set
End Property
Public Property SiteName As String
Get
Try
Return CType(Me(Me.tablersssites.SiteNameColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tablersssites.SiteNameColumn) = value
End Set
End Property
Public Property View As Boolean
Get
Try
Return CType(Me(Me.tablersssites.ViewColumn),Boolean)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tablersssites.ViewColumn) = value
End Set
End Property
Public Property XMLURL As String
Get
Try
Return CType(Me(Me.tablersssites.XMLURLColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tablersssites.XMLURLColumn) = value
End Set
End Property
Public Property Description As String
Get
Try
Return CType(Me(Me.tablersssites.DescriptionColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tablersssites.DescriptionColumn) = value
End Set
End Property
Public Function IsSiteNameNull() As Boolean
Return Me.IsNull(Me.tablersssites.SiteNameColumn)
End Function
Public Sub SetSiteNameNull()
Me(Me.tablersssites.SiteNameColumn) = System.Convert.DBNull
End Sub
Public Function IsViewNull() As Boolean
Return Me.IsNull(Me.tablersssites.ViewColumn)
End Function
Public Sub SetViewNull()
Me(Me.tablersssites.ViewColumn) = System.Convert.DBNull
End Sub
Public Function IsXMLURLNull() As Boolean
Return Me.IsNull(Me.tablersssites.XMLURLColumn)
End Function
Public Sub SetXMLURLNull()
Me(Me.tablersssites.XMLURLColumn) = System.Convert.DBNull
End Sub
Public Function IsDescriptionNull() As Boolean
Return Me.IsNull(Me.tablersssites.DescriptionColumn)
End Function
Public Sub SetDescriptionNull()
Me(Me.tablersssites.DescriptionColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class rsssitesRowChangeEvent
Inherits EventArgs
Private eventRow As rsssitesRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As rsssitesRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As rsssitesRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class