NEA/NEADataSet.Designer.vb

   1 '------------------------------------------------------------------------------
   2 ' <auto-generated>
   3 '     This code was generated by a tool.
   4 '     Runtime Version:4.0.30319.42000
   5 '
   6 '     Changes to this file may cause incorrect behavior and will be lost if
   7 '     the code is regenerated.
   8 ' </auto-generated>
   9 '------------------------------------------------------------------------------
  10
  11 Option Strict Off
  12 Option Explicit On
  13
  14
  15
  16 '''<summary>
  17 '''Represents a strongly typed in-memory cache of data.
  18 '''</summary>
  19 <Global.System.Serializable(),  _
  20  Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
  21  Global.System.ComponentModel.ToolboxItem(true),  _
  22  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"),  _
  23  Global.System.Xml.Serialization.XmlRootAttribute("NEADataSet"),  _
  24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _
  25 Partial Public Class NEADataSet
  26     Inherits Global.System.Data.DataSet
  27
  28     Private tableAchievement As AchievementDataTable
  29
  30     Private tableDOW As DOWDataTable
  31
  32     Private tableFriends As FriendsDataTable
  33
  34     Private tableGames As GamesDataTable
  35
  36     Private tablePurchased As PurchasedDataTable
  37
  38     Private tableReviews As ReviewsDataTable
  39
  40     Private tableTags As TagsDataTable
  41
  42     Private tableUser_Details As User_DetailsDataTable
  43
  44     Private tableUsers As UsersDataTable
  45
  46     Private tableWishlist As WishlistDataTable
  47
  48     Private relationGamesAchievement As Global.System.Data.DataRelation
  49
  50     Private relationGamesDOW As Global.System.Data.DataRelation
  51
  52     Private relationGamesPurchased As Global.System.Data.DataRelation
  53
  54     Private relationGamesReviews As Global.System.Data.DataRelation
  55
  56     Private relationUser_DetailsUsers As Global.System.Data.DataRelation
  57
  58     Private relationGamesWishlist As Global.System.Data.DataRelation
  59
  60     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  61
  62     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  63      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
  64     Public Sub New()
  65         MyBase.New
  66         Me.BeginInit
  67         Me.InitClass
  68         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  69         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  70         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
  71         Me.EndInit
  72     End Sub
  73
  74     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  75      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
  76     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  77         MyBase.New(info, context, false)
  78         If (Me.IsBinarySerialized(info, context) = true) Then
  79             Me.InitVars(false)
  80             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  81             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
  82             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
  83             Return
  84         End If
  85         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
  86         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  87             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  88             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  89             If (Not (ds.Tables("Achievement")) Is Nothing) Then
  90                 MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
  91             End If
  92             If (Not (ds.Tables("DOW")) Is Nothing) Then
  93                 MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
  94             End If
  95             If (Not (ds.Tables("Friends")) Is Nothing) Then
  96                 MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
  97             End If
  98             If (Not (ds.Tables("Games")) Is Nothing) Then
  99                 MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
 100             End If
 101             If (Not (ds.Tables("Purchased")) Is Nothing) Then
 102                 MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
 103             End If
 104             If (Not (ds.Tables("Reviews")) Is Nothing) Then
 105                 MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
 106             End If
 107             If (Not (ds.Tables("Tags")) Is Nothing) Then
 108                 MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
 109             End If
 110             If (Not (ds.Tables("User_Details")) Is Nothing) Then
 111                 MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
 112             End If
 113             If (Not (ds.Tables("Users")) Is Nothing) Then
 114                 MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
 115             End If
 116             If (Not (ds.Tables("Wishlist")) Is Nothing) Then
 117                 MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
 118             End If
 119             Me.DataSetName = ds.DataSetName
 120             Me.Prefix = ds.Prefix
 121             Me.Namespace = ds.Namespace
 122             Me.Locale = ds.Locale
 123             Me.CaseSensitive = ds.CaseSensitive
 124             Me.EnforceConstraints = ds.EnforceConstraints
 125             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 126             Me.InitVars
 127         Else
 128             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
 129         End If
 130         Me.GetSerializationData(info, context)
 131         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
 132         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
 133         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
 134     End Sub
 135
 136     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 137      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 138      Global.System.ComponentModel.Browsable(false),  _
 139      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 140     Public ReadOnly Property Achievement() As AchievementDataTable
 141         Get
 142             Return Me.tableAchievement
 143         End Get
 144     End Property
 145
 146     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 147      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 148      Global.System.ComponentModel.Browsable(false),  _
 149      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 150     Public ReadOnly Property DOW() As DOWDataTable
 151         Get
 152             Return Me.tableDOW
 153         End Get
 154     End Property
 155
 156     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 157      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 158      Global.System.ComponentModel.Browsable(false),  _
 159      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 160     Public ReadOnly Property Friends() As FriendsDataTable
 161         Get
 162             Return Me.tableFriends
 163         End Get
 164     End Property
 165
 166     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 167      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 168      Global.System.ComponentModel.Browsable(false),  _
 169      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 170     Public ReadOnly Property Games() As GamesDataTable
 171         Get
 172             Return Me.tableGames
 173         End Get
 174     End Property
 175
 176     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 177      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 178      Global.System.ComponentModel.Browsable(false),  _
 179      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 180     Public ReadOnly Property Purchased() As PurchasedDataTable
 181         Get
 182             Return Me.tablePurchased
 183         End Get
 184     End Property
 185
 186     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 187      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 188      Global.System.ComponentModel.Browsable(false),  _
 189      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 190     Public ReadOnly Property Reviews() As ReviewsDataTable
 191         Get
 192             Return Me.tableReviews
 193         End Get
 194     End Property
 195
 196     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 197      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 198      Global.System.ComponentModel.Browsable(false),  _
 199      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 200     Public ReadOnly Property Tags() As TagsDataTable
 201         Get
 202             Return Me.tableTags
 203         End Get
 204     End Property
 205
 206     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 207      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 208      Global.System.ComponentModel.Browsable(false),  _
 209      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 210     Public ReadOnly Property User_Details() As User_DetailsDataTable
 211         Get
 212             Return Me.tableUser_Details
 213         End Get
 214     End Property
 215
 216     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 217      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 218      Global.System.ComponentModel.Browsable(false),  _
 219      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 220     Public ReadOnly Property Users() As UsersDataTable
 221         Get
 222             Return Me.tableUsers
 223         End Get
 224     End Property
 225
 226     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 227      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 228      Global.System.ComponentModel.Browsable(false),  _
 229      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 230     Public ReadOnly Property Wishlist() As WishlistDataTable
 231         Get
 232             Return Me.tableWishlist
 233         End Get
 234     End Property
 235
 236     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 237      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 238      Global.System.ComponentModel.BrowsableAttribute(true),  _
 239      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
 240     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
 241         Get
 242             Return Me._schemaSerializationMode
 243         End Get
 244         Set
 245             Me._schemaSerializationMode = value
 246         End Set
 247     End Property
 248
 249     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 250      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 251      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 252     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
 253         Get
 254             Return MyBase.Tables
 255         End Get
 256     End Property
 257
 258     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 259      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 260      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 261     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
 262         Get
 263             Return MyBase.Relations
 264         End Get
 265     End Property
 266
 267     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 268      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 269     Protected Overrides Sub InitializeDerivedDataSet()
 270         Me.BeginInit
 271         Me.InitClass
 272         Me.EndInit
 273     End Sub
 274
 275     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 276      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 277     Public Overrides Function Clone() As Global.System.Data.DataSet
 278         Dim cln As NEADataSet = CType(MyBase.Clone,NEADataSet)
 279         cln.InitVars
 280         cln.SchemaSerializationMode = Me.SchemaSerializationMode
 281         Return cln
 282     End Function
 283
 284     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 285      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 286     Protected Overrides Function ShouldSerializeTables() As Boolean
 287         Return false
 288     End Function
 289
 290     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 291      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 292     Protected Overrides Function ShouldSerializeRelations() As Boolean
 293         Return false
 294     End Function
 295
 296     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 297      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 298     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
 299         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
 300             Me.Reset
 301             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
 302             ds.ReadXml(reader)
 303             If (Not (ds.Tables("Achievement")) Is Nothing) Then
 304                 MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
 305             End If
 306             If (Not (ds.Tables("DOW")) Is Nothing) Then
 307                 MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
 308             End If
 309             If (Not (ds.Tables("Friends")) Is Nothing) Then
 310                 MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
 311             End If
 312             If (Not (ds.Tables("Games")) Is Nothing) Then
 313                 MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
 314             End If
 315             If (Not (ds.Tables("Purchased")) Is Nothing) Then
 316                 MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
 317             End If
 318             If (Not (ds.Tables("Reviews")) Is Nothing) Then
 319                 MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
 320             End If
 321             If (Not (ds.Tables("Tags")) Is Nothing) Then
 322                 MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
 323             End If
 324             If (Not (ds.Tables("User_Details")) Is Nothing) Then
 325                 MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
 326             End If
 327             If (Not (ds.Tables("Users")) Is Nothing) Then
 328                 MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
 329             End If
 330             If (Not (ds.Tables("Wishlist")) Is Nothing) Then
 331                 MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
 332             End If
 333             Me.DataSetName = ds.DataSetName
 334             Me.Prefix = ds.Prefix
 335             Me.Namespace = ds.Namespace
 336             Me.Locale = ds.Locale
 337             Me.CaseSensitive = ds.CaseSensitive
 338             Me.EnforceConstraints = ds.EnforceConstraints
 339             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 340             Me.InitVars
 341         Else
 342             Me.ReadXml(reader)
 343             Me.InitVars
 344         End If
 345     End Sub
 346
 347     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 348      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 349     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
 350         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 351         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
 352         stream.Position = 0
 353         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
 354     End Function
 355
 356     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 357      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 358     Friend Overloads Sub InitVars()
 359         Me.InitVars(true)
 360     End Sub
 361
 362     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 363      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 364     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
 365         Me.tableAchievement = CType(MyBase.Tables("Achievement"),AchievementDataTable)
 366         If (initTable = true) Then
 367             If (Not (Me.tableAchievement) Is Nothing) Then
 368                 Me.tableAchievement.InitVars
 369             End If
 370         End If
 371         Me.tableDOW = CType(MyBase.Tables("DOW"),DOWDataTable)
 372         If (initTable = true) Then
 373             If (Not (Me.tableDOW) Is Nothing) Then
 374                 Me.tableDOW.InitVars
 375             End If
 376         End If
 377         Me.tableFriends = CType(MyBase.Tables("Friends"),FriendsDataTable)
 378         If (initTable = true) Then
 379             If (Not (Me.tableFriends) Is Nothing) Then
 380                 Me.tableFriends.InitVars
 381             End If
 382         End If
 383         Me.tableGames = CType(MyBase.Tables("Games"),GamesDataTable)
 384         If (initTable = true) Then
 385             If (Not (Me.tableGames) Is Nothing) Then
 386                 Me.tableGames.InitVars
 387             End If
 388         End If
 389         Me.tablePurchased = CType(MyBase.Tables("Purchased"),PurchasedDataTable)
 390         If (initTable = true) Then
 391             If (Not (Me.tablePurchased) Is Nothing) Then
 392                 Me.tablePurchased.InitVars
 393             End If
 394         End If
 395         Me.tableReviews = CType(MyBase.Tables("Reviews"),ReviewsDataTable)
 396         If (initTable = true) Then
 397             If (Not (Me.tableReviews) Is Nothing) Then
 398                 Me.tableReviews.InitVars
 399             End If
 400         End If
 401         Me.tableTags = CType(MyBase.Tables("Tags"),TagsDataTable)
 402         If (initTable = true) Then
 403             If (Not (Me.tableTags) Is Nothing) Then
 404                 Me.tableTags.InitVars
 405             End If
 406         End If
 407         Me.tableUser_Details = CType(MyBase.Tables("User_Details"),User_DetailsDataTable)
 408         If (initTable = true) Then
 409             If (Not (Me.tableUser_Details) Is Nothing) Then
 410                 Me.tableUser_Details.InitVars
 411             End If
 412         End If
 413         Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable)
 414         If (initTable = true) Then
 415             If (Not (Me.tableUsers) Is Nothing) Then
 416                 Me.tableUsers.InitVars
 417             End If
 418         End If
 419         Me.tableWishlist = CType(MyBase.Tables("Wishlist"),WishlistDataTable)
 420         If (initTable = true) Then
 421             If (Not (Me.tableWishlist) Is Nothing) Then
 422                 Me.tableWishlist.InitVars
 423             End If
 424         End If
 425         Me.relationGamesAchievement = Me.Relations("GamesAchievement")
 426         Me.relationGamesDOW = Me.Relations("GamesDOW")
 427         Me.relationGamesPurchased = Me.Relations("GamesPurchased")
 428         Me.relationGamesReviews = Me.Relations("GamesReviews")
 429         Me.relationUser_DetailsUsers = Me.Relations("User_DetailsUsers")
 430         Me.relationGamesWishlist = Me.Relations("GamesWishlist")
 431     End Sub
 432
 433     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 434      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 435     Private Sub InitClass()
 436         Me.DataSetName = "NEADataSet"
 437         Me.Prefix = ""
 438         Me.Namespace = "http://tempuri.org/NEADataSet.xsd"
 439         Me.EnforceConstraints = true
 440         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
 441         Me.tableAchievement = New AchievementDataTable()
 442         MyBase.Tables.Add(Me.tableAchievement)
 443         Me.tableDOW = New DOWDataTable()
 444         MyBase.Tables.Add(Me.tableDOW)
 445         Me.tableFriends = New FriendsDataTable()
 446         MyBase.Tables.Add(Me.tableFriends)
 447         Me.tableGames = New GamesDataTable()
 448         MyBase.Tables.Add(Me.tableGames)
 449         Me.tablePurchased = New PurchasedDataTable()
 450         MyBase.Tables.Add(Me.tablePurchased)
 451         Me.tableReviews = New ReviewsDataTable()
 452         MyBase.Tables.Add(Me.tableReviews)
 453         Me.tableTags = New TagsDataTable()
 454         MyBase.Tables.Add(Me.tableTags)
 455         Me.tableUser_Details = New User_DetailsDataTable()
 456         MyBase.Tables.Add(Me.tableUser_Details)
 457         Me.tableUsers = New UsersDataTable()
 458         MyBase.Tables.Add(Me.tableUsers)
 459         Me.tableWishlist = New WishlistDataTable()
 460         MyBase.Tables.Add(Me.tableWishlist)
 461         Me.relationGamesAchievement = New Global.System.Data.DataRelation("GamesAchievement", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableAchievement.GameIDColumn}, false)
 462         Me.Relations.Add(Me.relationGamesAchievement)
 463         Me.relationGamesDOW = New Global.System.Data.DataRelation("GamesDOW", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableDOW.GameIDColumn}, false)
 464         Me.Relations.Add(Me.relationGamesDOW)
 465         Me.relationGamesPurchased = New Global.System.Data.DataRelation("GamesPurchased", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tablePurchased.GameIDColumn}, false)
 466         Me.Relations.Add(Me.relationGamesPurchased)
 467         Me.relationGamesReviews = New Global.System.Data.DataRelation("GamesReviews", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableReviews.GameIDColumn}, false)
 468         Me.Relations.Add(Me.relationGamesReviews)
 469         Me.relationUser_DetailsUsers = New Global.System.Data.DataRelation("User_DetailsUsers", New Global.System.Data.DataColumn() {Me.tableUser_Details.UserDetailsIDColumn}, New Global.System.Data.DataColumn() {Me.tableUsers.User_DetailsIDColumn}, false)
 470         Me.Relations.Add(Me.relationUser_DetailsUsers)
 471         Me.relationGamesWishlist = New Global.System.Data.DataRelation("GamesWishlist", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableWishlist.GameIDColumn}, false)
 472         Me.Relations.Add(Me.relationGamesWishlist)
 473     End Sub
 474
 475     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 476      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 477     Private Function ShouldSerializeAchievement() As Boolean
 478         Return false
 479     End Function
 480
 481     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 482      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 483     Private Function ShouldSerializeDOW() As Boolean
 484         Return false
 485     End Function
 486
 487     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 488      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 489     Private Function ShouldSerializeFriends() As Boolean
 490         Return false
 491     End Function
 492
 493     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 494      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 495     Private Function ShouldSerializeGames() As Boolean
 496         Return false
 497     End Function
 498
 499     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 500      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 501     Private Function ShouldSerializePurchased() As Boolean
 502         Return false
 503     End Function
 504
 505     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 506      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 507     Private Function ShouldSerializeReviews() As Boolean
 508         Return false
 509     End Function
 510
 511     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 512      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 513     Private Function ShouldSerializeTags() As Boolean
 514         Return false
 515     End Function
 516
 517     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 518      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 519     Private Function ShouldSerializeUser_Details() As Boolean
 520         Return false
 521     End Function
 522
 523     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 524      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 525     Private Function ShouldSerializeUsers() As Boolean
 526         Return false
 527     End Function
 528
 529     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 530      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 531     Private Function ShouldSerializeWishlist() As Boolean
 532         Return false
 533     End Function
 534
 535     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 536      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 537     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
 538         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
 539             Me.InitVars
 540         End If
 541     End Sub
 542
 543     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 544      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 545     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 546         Dim ds As NEADataSet = New NEADataSet()
 547         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
 548         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
 549         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 550         any.Namespace = ds.Namespace
 551         sequence.Items.Add(any)
 552         type.Particle = sequence
 553         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 554         If xs.Contains(dsSchema.TargetNamespace) Then
 555             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 556             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 557             Try
 558                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 559                 dsSchema.Write(s1)
 560                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 561                 Do While schemas.MoveNext
 562                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 563                     s2.SetLength(0)
 564                     schema.Write(s2)
 565                     If (s1.Length = s2.Length) Then
 566                         s1.Position = 0
 567                         s2.Position = 0
 568
 569                         Do While ((s1.Position <> s1.Length)  _
 570                                     AndAlso (s1.ReadByte = s2.ReadByte))
 571
 572
 573                         Loop
 574                         If (s1.Position = s1.Length) Then
 575                             Return type
 576                         End If
 577                     End If
 578
 579                 Loop
 580             Finally
 581                 If (Not (s1) Is Nothing) Then
 582                     s1.Close
 583                 End If
 584                 If (Not (s2) Is Nothing) Then
 585                     s2.Close
 586                 End If
 587             End Try
 588         End If
 589         xs.Add(dsSchema)
 590         Return type
 591     End Function
 592
 593     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 594     Public Delegate Sub AchievementRowChangeEventHandler(ByVal sender As Object, ByVal e As AchievementRowChangeEvent)
 595
 596     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 597     Public Delegate Sub DOWRowChangeEventHandler(ByVal sender As Object, ByVal e As DOWRowChangeEvent)
 598
 599     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 600     Public Delegate Sub FriendsRowChangeEventHandler(ByVal sender As Object, ByVal e As FriendsRowChangeEvent)
 601
 602     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 603     Public Delegate Sub GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As GamesRowChangeEvent)
 604
 605     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 606     Public Delegate Sub PurchasedRowChangeEventHandler(ByVal sender As Object, ByVal e As PurchasedRowChangeEvent)
 607
 608     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 609     Public Delegate Sub ReviewsRowChangeEventHandler(ByVal sender As Object, ByVal e As ReviewsRowChangeEvent)
 610
 611     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 612     Public Delegate Sub TagsRowChangeEventHandler(ByVal sender As Object, ByVal e As TagsRowChangeEvent)
 613
 614     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 615     Public Delegate Sub User_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As User_DetailsRowChangeEvent)
 616
 617     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 618     Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
 619
 620     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 621     Public Delegate Sub WishlistRowChangeEventHandler(ByVal sender As Object, ByVal e As WishlistRowChangeEvent)
 622
 623     '''<summary>
 624     '''Represents the strongly named DataTable class.
 625     '''</summary>
 626     <Global.System.Serializable(),  _
 627      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
 628     Partial Public Class AchievementDataTable
 629         Inherits Global.System.Data.TypedTableBase(Of AchievementRow)
 630
 631         Private columnAchievementID As Global.System.Data.DataColumn
 632
 633         Private columnGameID As Global.System.Data.DataColumn
 634
 635         Private columnUserID As Global.System.Data.DataColumn
 636
 637         Private columnAchievment_1 As Global.System.Data.DataColumn
 638
 639         Private columnAchievment_2 As Global.System.Data.DataColumn
 640
 641         Private columnAchievment_3 As Global.System.Data.DataColumn
 642
 643         Private columnAchievment_4 As Global.System.Data.DataColumn
 644
 645         Private columnAchievment_5 As Global.System.Data.DataColumn
 646
 647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 649         Public Sub New()
 650             MyBase.New
 651             Me.TableName = "Achievement"
 652             Me.BeginInit
 653             Me.InitClass
 654             Me.EndInit
 655         End Sub
 656
 657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 659         Friend Sub New(ByVal table As Global.System.Data.DataTable)
 660             MyBase.New
 661             Me.TableName = table.TableName
 662             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
 663                 Me.CaseSensitive = table.CaseSensitive
 664             End If
 665             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
 666                 Me.Locale = table.Locale
 667             End If
 668             If (table.Namespace <> table.DataSet.Namespace) Then
 669                 Me.Namespace = table.Namespace
 670             End If
 671             Me.Prefix = table.Prefix
 672             Me.MinimumCapacity = table.MinimumCapacity
 673         End Sub
 674
 675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 677         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
 678             MyBase.New(info, context)
 679             Me.InitVars
 680         End Sub
 681
 682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 684         Public ReadOnly Property AchievementIDColumn() As Global.System.Data.DataColumn
 685             Get
 686                 Return Me.columnAchievementID
 687             End Get
 688         End Property
 689
 690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 692         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
 693             Get
 694                 Return Me.columnGameID
 695             End Get
 696         End Property
 697
 698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 700         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
 701             Get
 702                 Return Me.columnUserID
 703             End Get
 704         End Property
 705
 706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 708         Public ReadOnly Property Achievment_1Column() As Global.System.Data.DataColumn
 709             Get
 710                 Return Me.columnAchievment_1
 711             End Get
 712         End Property
 713
 714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 716         Public ReadOnly Property Achievment_2Column() As Global.System.Data.DataColumn
 717             Get
 718                 Return Me.columnAchievment_2
 719             End Get
 720         End Property
 721
 722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 724         Public ReadOnly Property Achievment_3Column() As Global.System.Data.DataColumn
 725             Get
 726                 Return Me.columnAchievment_3
 727             End Get
 728         End Property
 729
 730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 732         Public ReadOnly Property Achievment_4Column() As Global.System.Data.DataColumn
 733             Get
 734                 Return Me.columnAchievment_4
 735             End Get
 736         End Property
 737
 738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 740         Public ReadOnly Property Achievment_5Column() As Global.System.Data.DataColumn
 741             Get
 742                 Return Me.columnAchievment_5
 743             End Get
 744         End Property
 745
 746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 748          Global.System.ComponentModel.Browsable(false)>  _
 749         Public ReadOnly Property Count() As Integer
 750             Get
 751                 Return Me.Rows.Count
 752             End Get
 753         End Property
 754
 755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 757         Public Default ReadOnly Property Item(ByVal index As Integer) As AchievementRow
 758             Get
 759                 Return CType(Me.Rows(index),AchievementRow)
 760             End Get
 761         End Property
 762
 763         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 764         Public Event AchievementRowChanging As AchievementRowChangeEventHandler
 765
 766         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 767         Public Event AchievementRowChanged As AchievementRowChangeEventHandler
 768
 769         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 770         Public Event AchievementRowDeleting As AchievementRowChangeEventHandler
 771
 772         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 773         Public Event AchievementRowDeleted As AchievementRowChangeEventHandler
 774
 775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 777         Public Overloads Sub AddAchievementRow(ByVal row As AchievementRow)
 778             Me.Rows.Add(row)
 779         End Sub
 780
 781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 783         Public Overloads Function AddAchievementRow(ByVal parentGamesRowByGamesAchievement As GamesRow, ByVal UserID As Integer, ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String) As AchievementRow
 784             Dim rowAchievementRow As AchievementRow = CType(Me.NewRow,AchievementRow)
 785             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, UserID, Achievment_1, Achievment_2, Achievment_3, Achievment_4, Achievment_5}
 786             If (Not (parentGamesRowByGamesAchievement) Is Nothing) Then
 787                 columnValuesArray(1) = parentGamesRowByGamesAchievement(0)
 788             End If
 789             rowAchievementRow.ItemArray = columnValuesArray
 790             Me.Rows.Add(rowAchievementRow)
 791             Return rowAchievementRow
 792         End Function
 793
 794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 796         Public Function FindByAchievementID(ByVal AchievementID As Integer) As AchievementRow
 797             Return CType(Me.Rows.Find(New Object() {AchievementID}),AchievementRow)
 798         End Function
 799
 800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 802         Public Overrides Function Clone() As Global.System.Data.DataTable
 803             Dim cln As AchievementDataTable = CType(MyBase.Clone,AchievementDataTable)
 804             cln.InitVars
 805             Return cln
 806         End Function
 807
 808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 810         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
 811             Return New AchievementDataTable()
 812         End Function
 813
 814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 816         Friend Sub InitVars()
 817             Me.columnAchievementID = MyBase.Columns("AchievementID")
 818             Me.columnGameID = MyBase.Columns("GameID")
 819             Me.columnUserID = MyBase.Columns("UserID")
 820             Me.columnAchievment_1 = MyBase.Columns("Achievment 1")
 821             Me.columnAchievment_2 = MyBase.Columns("Achievment 2")
 822             Me.columnAchievment_3 = MyBase.Columns("Achievment 3")
 823             Me.columnAchievment_4 = MyBase.Columns("Achievment 4")
 824             Me.columnAchievment_5 = MyBase.Columns("Achievment 5")
 825         End Sub
 826
 827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 829         Private Sub InitClass()
 830             Me.columnAchievementID = New Global.System.Data.DataColumn("AchievementID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 831             MyBase.Columns.Add(Me.columnAchievementID)
 832             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 833             MyBase.Columns.Add(Me.columnGameID)
 834             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 835             MyBase.Columns.Add(Me.columnUserID)
 836             Me.columnAchievment_1 = New Global.System.Data.DataColumn("Achievment 1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 837             MyBase.Columns.Add(Me.columnAchievment_1)
 838             Me.columnAchievment_2 = New Global.System.Data.DataColumn("Achievment 2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 839             MyBase.Columns.Add(Me.columnAchievment_2)
 840             Me.columnAchievment_3 = New Global.System.Data.DataColumn("Achievment 3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 841             MyBase.Columns.Add(Me.columnAchievment_3)
 842             Me.columnAchievment_4 = New Global.System.Data.DataColumn("Achievment 4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 843             MyBase.Columns.Add(Me.columnAchievment_4)
 844             Me.columnAchievment_5 = New Global.System.Data.DataColumn("Achievment 5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 845             MyBase.Columns.Add(Me.columnAchievment_5)
 846             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAchievementID}, true))
 847             Me.columnAchievementID.AutoIncrement = true
 848             Me.columnAchievementID.AutoIncrementSeed = -1
 849             Me.columnAchievementID.AutoIncrementStep = -1
 850             Me.columnAchievementID.AllowDBNull = false
 851             Me.columnAchievementID.Unique = true
 852             Me.columnAchievment_1.MaxLength = 536870910
 853             Me.columnAchievment_2.MaxLength = 536870910
 854             Me.columnAchievment_3.MaxLength = 536870910
 855             Me.columnAchievment_4.MaxLength = 536870910
 856             Me.columnAchievment_5.MaxLength = 536870910
 857         End Sub
 858
 859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 861         Public Function NewAchievementRow() As AchievementRow
 862             Return CType(Me.NewRow,AchievementRow)
 863         End Function
 864
 865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 867         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
 868             Return New AchievementRow(builder)
 869         End Function
 870
 871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 873         Protected Overrides Function GetRowType() As Global.System.Type
 874             Return GetType(AchievementRow)
 875         End Function
 876
 877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 879         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 880             MyBase.OnRowChanged(e)
 881             If (Not (Me.AchievementRowChangedEvent) Is Nothing) Then
 882                 RaiseEvent AchievementRowChanged(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 883             End If
 884         End Sub
 885
 886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 888         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 889             MyBase.OnRowChanging(e)
 890             If (Not (Me.AchievementRowChangingEvent) Is Nothing) Then
 891                 RaiseEvent AchievementRowChanging(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 892             End If
 893         End Sub
 894
 895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 897         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 898             MyBase.OnRowDeleted(e)
 899             If (Not (Me.AchievementRowDeletedEvent) Is Nothing) Then
 900                 RaiseEvent AchievementRowDeleted(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 901             End If
 902         End Sub
 903
 904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 906         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 907             MyBase.OnRowDeleting(e)
 908             If (Not (Me.AchievementRowDeletingEvent) Is Nothing) Then
 909                 RaiseEvent AchievementRowDeleting(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 910             End If
 911         End Sub
 912
 913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 915         Public Sub RemoveAchievementRow(ByVal row As AchievementRow)
 916             Me.Rows.Remove(row)
 917         End Sub
 918
 919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 921         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 922             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
 923             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
 924             Dim ds As NEADataSet = New NEADataSet()
 925             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 926             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
 927             any1.MinOccurs = New Decimal(0)
 928             any1.MaxOccurs = Decimal.MaxValue
 929             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 930             sequence.Items.Add(any1)
 931             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 932             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
 933             any2.MinOccurs = New Decimal(1)
 934             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 935             sequence.Items.Add(any2)
 936             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
 937             attribute1.Name = "namespace"
 938             attribute1.FixedValue = ds.Namespace
 939             type.Attributes.Add(attribute1)
 940             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
 941             attribute2.Name = "tableTypeName"
 942             attribute2.FixedValue = "AchievementDataTable"
 943             type.Attributes.Add(attribute2)
 944             type.Particle = sequence
 945             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 946             If xs.Contains(dsSchema.TargetNamespace) Then
 947                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 948                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 949                 Try
 950                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 951                     dsSchema.Write(s1)
 952                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 953                     Do While schemas.MoveNext
 954                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 955                         s2.SetLength(0)
 956                         schema.Write(s2)
 957                         If (s1.Length = s2.Length) Then
 958                             s1.Position = 0
 959                             s2.Position = 0
 960
 961                             Do While ((s1.Position <> s1.Length)  _
 962                                         AndAlso (s1.ReadByte = s2.ReadByte))
 963
 964
 965                             Loop
 966                             If (s1.Position = s1.Length) Then
 967                                 Return type
 968                             End If
 969                         End If
 970
 971                     Loop
 972                 Finally
 973                     If (Not (s1) Is Nothing) Then
 974                         s1.Close
 975                     End If
 976                     If (Not (s2) Is Nothing) Then
 977                         s2.Close
 978                     End If
 979                 End Try
 980             End If
 981             xs.Add(dsSchema)
 982             Return type
 983         End Function
 984     End Class
 985
 986     '''<summary>
 987     '''Represents the strongly named DataTable class.
 988     '''</summary>
 989     <Global.System.Serializable(),  _
 990      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
 991     Partial Public Class DOWDataTable
 992         Inherits Global.System.Data.TypedTableBase(Of DOWRow)
 993
 994         Private columnDOWID As Global.System.Data.DataColumn
 995
 996         Private columnStart As Global.System.Data.DataColumn
 997
 998         Private columnEnd As Global.System.Data.DataColumn
 999
1000         Private columnGameID As Global.System.Data.DataColumn
1001
1002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1004         Public Sub New()
1005             MyBase.New
1006             Me.TableName = "DOW"
1007             Me.BeginInit
1008             Me.InitClass
1009             Me.EndInit
1010         End Sub
1011
1012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1014         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1015             MyBase.New
1016             Me.TableName = table.TableName
1017             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1018                 Me.CaseSensitive = table.CaseSensitive
1019             End If
1020             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1021                 Me.Locale = table.Locale
1022             End If
1023             If (table.Namespace <> table.DataSet.Namespace) Then
1024                 Me.Namespace = table.Namespace
1025             End If
1026             Me.Prefix = table.Prefix
1027             Me.MinimumCapacity = table.MinimumCapacity
1028         End Sub
1029
1030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1032         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1033             MyBase.New(info, context)
1034             Me.InitVars
1035         End Sub
1036
1037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1039         Public ReadOnly Property DOWIDColumn() As Global.System.Data.DataColumn
1040             Get
1041                 Return Me.columnDOWID
1042             End Get
1043         End Property
1044
1045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1047         Public ReadOnly Property StartColumn() As Global.System.Data.DataColumn
1048             Get
1049                 Return Me.columnStart
1050             End Get
1051         End Property
1052
1053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1055         Public ReadOnly Property EndColumn() As Global.System.Data.DataColumn
1056             Get
1057                 Return Me.columnEnd
1058             End Get
1059         End Property
1060
1061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1063         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
1064             Get
1065                 Return Me.columnGameID
1066             End Get
1067         End Property
1068
1069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1071          Global.System.ComponentModel.Browsable(false)>  _
1072         Public ReadOnly Property Count() As Integer
1073             Get
1074                 Return Me.Rows.Count
1075             End Get
1076         End Property
1077
1078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1080         Public Default ReadOnly Property Item(ByVal index As Integer) As DOWRow
1081             Get
1082                 Return CType(Me.Rows(index),DOWRow)
1083             End Get
1084         End Property
1085
1086         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1087         Public Event DOWRowChanging As DOWRowChangeEventHandler
1088
1089         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1090         Public Event DOWRowChanged As DOWRowChangeEventHandler
1091
1092         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1093         Public Event DOWRowDeleting As DOWRowChangeEventHandler
1094
1095         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1096         Public Event DOWRowDeleted As DOWRowChangeEventHandler
1097
1098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1100         Public Overloads Sub AddDOWRow(ByVal row As DOWRow)
1101             Me.Rows.Add(row)
1102         End Sub
1103
1104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1106         Public Overloads Function AddDOWRow(ByVal Start As Date, ByVal _End As Date, ByVal parentGamesRowByGamesDOW As GamesRow) As DOWRow
1107             Dim rowDOWRow As DOWRow = CType(Me.NewRow,DOWRow)
1108             Dim columnValuesArray() As Object = New Object() {Nothing, Start, _End, Nothing}
1109             If (Not (parentGamesRowByGamesDOW) Is Nothing) Then
1110                 columnValuesArray(3) = parentGamesRowByGamesDOW(0)
1111             End If
1112             rowDOWRow.ItemArray = columnValuesArray
1113             Me.Rows.Add(rowDOWRow)
1114             Return rowDOWRow
1115         End Function
1116
1117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1119         Public Function FindByDOWID(ByVal DOWID As Integer) As DOWRow
1120             Return CType(Me.Rows.Find(New Object() {DOWID}),DOWRow)
1121         End Function
1122
1123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1125         Public Overrides Function Clone() As Global.System.Data.DataTable
1126             Dim cln As DOWDataTable = CType(MyBase.Clone,DOWDataTable)
1127             cln.InitVars
1128             Return cln
1129         End Function
1130
1131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1133         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1134             Return New DOWDataTable()
1135         End Function
1136
1137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1139         Friend Sub InitVars()
1140             Me.columnDOWID = MyBase.Columns("DOWID")
1141             Me.columnStart = MyBase.Columns("Start")
1142             Me.columnEnd = MyBase.Columns("End")
1143             Me.columnGameID = MyBase.Columns("GameID")
1144         End Sub
1145
1146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1148         Private Sub InitClass()
1149             Me.columnDOWID = New Global.System.Data.DataColumn("DOWID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1150             MyBase.Columns.Add(Me.columnDOWID)
1151             Me.columnStart = New Global.System.Data.DataColumn("Start", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1152             MyBase.Columns.Add(Me.columnStart)
1153             Me.columnEnd = New Global.System.Data.DataColumn("End", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1154             Me.columnEnd.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "EndColumn")
1155             Me.columnEnd.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnEnd")
1156             Me.columnEnd.ExtendedProperties.Add("Generator_UserColumnName", "End")
1157             MyBase.Columns.Add(Me.columnEnd)
1158             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1159             MyBase.Columns.Add(Me.columnGameID)
1160             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOWID}, true))
1161             Me.columnDOWID.AutoIncrement = true
1162             Me.columnDOWID.AutoIncrementSeed = -1
1163             Me.columnDOWID.AutoIncrementStep = -1
1164             Me.columnDOWID.AllowDBNull = false
1165             Me.columnDOWID.Unique = true
1166         End Sub
1167
1168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1170         Public Function NewDOWRow() As DOWRow
1171             Return CType(Me.NewRow,DOWRow)
1172         End Function
1173
1174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1176         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1177             Return New DOWRow(builder)
1178         End Function
1179
1180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1182         Protected Overrides Function GetRowType() As Global.System.Type
1183             Return GetType(DOWRow)
1184         End Function
1185
1186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1188         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1189             MyBase.OnRowChanged(e)
1190             If (Not (Me.DOWRowChangedEvent) Is Nothing) Then
1191                 RaiseEvent DOWRowChanged(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1192             End If
1193         End Sub
1194
1195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1197         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1198             MyBase.OnRowChanging(e)
1199             If (Not (Me.DOWRowChangingEvent) Is Nothing) Then
1200                 RaiseEvent DOWRowChanging(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1201             End If
1202         End Sub
1203
1204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1206         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1207             MyBase.OnRowDeleted(e)
1208             If (Not (Me.DOWRowDeletedEvent) Is Nothing) Then
1209                 RaiseEvent DOWRowDeleted(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1210             End If
1211         End Sub
1212
1213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1215         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1216             MyBase.OnRowDeleting(e)
1217             If (Not (Me.DOWRowDeletingEvent) Is Nothing) Then
1218                 RaiseEvent DOWRowDeleting(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1219             End If
1220         End Sub
1221
1222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1224         Public Sub RemoveDOWRow(ByVal row As DOWRow)
1225             Me.Rows.Remove(row)
1226         End Sub
1227
1228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1230         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1231             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1232             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1233             Dim ds As NEADataSet = New NEADataSet()
1234             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1235             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1236             any1.MinOccurs = New Decimal(0)
1237             any1.MaxOccurs = Decimal.MaxValue
1238             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1239             sequence.Items.Add(any1)
1240             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1241             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1242             any2.MinOccurs = New Decimal(1)
1243             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1244             sequence.Items.Add(any2)
1245             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1246             attribute1.Name = "namespace"
1247             attribute1.FixedValue = ds.Namespace
1248             type.Attributes.Add(attribute1)
1249             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1250             attribute2.Name = "tableTypeName"
1251             attribute2.FixedValue = "DOWDataTable"
1252             type.Attributes.Add(attribute2)
1253             type.Particle = sequence
1254             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1255             If xs.Contains(dsSchema.TargetNamespace) Then
1256                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1257                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1258                 Try
1259                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1260                     dsSchema.Write(s1)
1261                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1262                     Do While schemas.MoveNext
1263                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1264                         s2.SetLength(0)
1265                         schema.Write(s2)
1266                         If (s1.Length = s2.Length) Then
1267                             s1.Position = 0
1268                             s2.Position = 0
1269
1270                             Do While ((s1.Position <> s1.Length)  _
1271                                         AndAlso (s1.ReadByte = s2.ReadByte))
1272
1273
1274                             Loop
1275                             If (s1.Position = s1.Length) Then
1276                                 Return type
1277                             End If
1278                         End If
1279
1280                     Loop
1281                 Finally
1282                     If (Not (s1) Is Nothing) Then
1283                         s1.Close
1284                     End If
1285                     If (Not (s2) Is Nothing) Then
1286                         s2.Close
1287                     End If
1288                 End Try
1289             End If
1290             xs.Add(dsSchema)
1291             Return type
1292         End Function
1293     End Class
1294
1295     '''<summary>
1296     '''Represents the strongly named DataTable class.
1297     '''</summary>
1298     <Global.System.Serializable(),  _
1299      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1300     Partial Public Class FriendsDataTable
1301         Inherits Global.System.Data.TypedTableBase(Of FriendsRow)
1302
1303         Private columnID As Global.System.Data.DataColumn
1304
1305         Private columnFriendID As Global.System.Data.DataColumn
1306
1307         Private columnUserID As Global.System.Data.DataColumn
1308
1309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1311         Public Sub New()
1312             MyBase.New
1313             Me.TableName = "Friends"
1314             Me.BeginInit
1315             Me.InitClass
1316             Me.EndInit
1317         End Sub
1318
1319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1321         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1322             MyBase.New
1323             Me.TableName = table.TableName
1324             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1325                 Me.CaseSensitive = table.CaseSensitive
1326             End If
1327             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1328                 Me.Locale = table.Locale
1329             End If
1330             If (table.Namespace <> table.DataSet.Namespace) Then
1331                 Me.Namespace = table.Namespace
1332             End If
1333             Me.Prefix = table.Prefix
1334             Me.MinimumCapacity = table.MinimumCapacity
1335         End Sub
1336
1337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1339         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1340             MyBase.New(info, context)
1341             Me.InitVars
1342         End Sub
1343
1344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1346         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1347             Get
1348                 Return Me.columnID
1349             End Get
1350         End Property
1351
1352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1354         Public ReadOnly Property FriendIDColumn() As Global.System.Data.DataColumn
1355             Get
1356                 Return Me.columnFriendID
1357             End Get
1358         End Property
1359
1360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1362         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
1363             Get
1364                 Return Me.columnUserID
1365             End Get
1366         End Property
1367
1368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1370          Global.System.ComponentModel.Browsable(false)>  _
1371         Public ReadOnly Property Count() As Integer
1372             Get
1373                 Return Me.Rows.Count
1374             End Get
1375         End Property
1376
1377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1379         Public Default ReadOnly Property Item(ByVal index As Integer) As FriendsRow
1380             Get
1381                 Return CType(Me.Rows(index),FriendsRow)
1382             End Get
1383         End Property
1384
1385         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1386         Public Event FriendsRowChanging As FriendsRowChangeEventHandler
1387
1388         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1389         Public Event FriendsRowChanged As FriendsRowChangeEventHandler
1390
1391         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1392         Public Event FriendsRowDeleting As FriendsRowChangeEventHandler
1393
1394         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1395         Public Event FriendsRowDeleted As FriendsRowChangeEventHandler
1396
1397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1399         Public Overloads Sub AddFriendsRow(ByVal row As FriendsRow)
1400             Me.Rows.Add(row)
1401         End Sub
1402
1403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1405         Public Overloads Function AddFriendsRow(ByVal FriendID As Integer, ByVal UserID As Integer) As FriendsRow
1406             Dim rowFriendsRow As FriendsRow = CType(Me.NewRow,FriendsRow)
1407             Dim columnValuesArray() As Object = New Object() {Nothing, FriendID, UserID}
1408             rowFriendsRow.ItemArray = columnValuesArray
1409             Me.Rows.Add(rowFriendsRow)
1410             Return rowFriendsRow
1411         End Function
1412
1413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1415         Public Function FindByID(ByVal ID As Integer) As FriendsRow
1416             Return CType(Me.Rows.Find(New Object() {ID}),FriendsRow)
1417         End Function
1418
1419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1421         Public Overrides Function Clone() As Global.System.Data.DataTable
1422             Dim cln As FriendsDataTable = CType(MyBase.Clone,FriendsDataTable)
1423             cln.InitVars
1424             Return cln
1425         End Function
1426
1427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1429         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1430             Return New FriendsDataTable()
1431         End Function
1432
1433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1435         Friend Sub InitVars()
1436             Me.columnID = MyBase.Columns("ID")
1437             Me.columnFriendID = MyBase.Columns("FriendID")
1438             Me.columnUserID = MyBase.Columns("UserID")
1439         End Sub
1440
1441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1443         Private Sub InitClass()
1444             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1445             MyBase.Columns.Add(Me.columnID)
1446             Me.columnFriendID = New Global.System.Data.DataColumn("FriendID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1447             MyBase.Columns.Add(Me.columnFriendID)
1448             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1449             MyBase.Columns.Add(Me.columnUserID)
1450             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1451             Me.columnID.AutoIncrement = true
1452             Me.columnID.AutoIncrementSeed = -1
1453             Me.columnID.AutoIncrementStep = -1
1454             Me.columnID.AllowDBNull = false
1455             Me.columnID.Unique = true
1456         End Sub
1457
1458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1460         Public Function NewFriendsRow() As FriendsRow
1461             Return CType(Me.NewRow,FriendsRow)
1462         End Function
1463
1464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1466         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1467             Return New FriendsRow(builder)
1468         End Function
1469
1470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1472         Protected Overrides Function GetRowType() As Global.System.Type
1473             Return GetType(FriendsRow)
1474         End Function
1475
1476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1478         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1479             MyBase.OnRowChanged(e)
1480             If (Not (Me.FriendsRowChangedEvent) Is Nothing) Then
1481                 RaiseEvent FriendsRowChanged(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1482             End If
1483         End Sub
1484
1485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1487         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1488             MyBase.OnRowChanging(e)
1489             If (Not (Me.FriendsRowChangingEvent) Is Nothing) Then
1490                 RaiseEvent FriendsRowChanging(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1491             End If
1492         End Sub
1493
1494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1496         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1497             MyBase.OnRowDeleted(e)
1498             If (Not (Me.FriendsRowDeletedEvent) Is Nothing) Then
1499                 RaiseEvent FriendsRowDeleted(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1500             End If
1501         End Sub
1502
1503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1505         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1506             MyBase.OnRowDeleting(e)
1507             If (Not (Me.FriendsRowDeletingEvent) Is Nothing) Then
1508                 RaiseEvent FriendsRowDeleting(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1509             End If
1510         End Sub
1511
1512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1514         Public Sub RemoveFriendsRow(ByVal row As FriendsRow)
1515             Me.Rows.Remove(row)
1516         End Sub
1517
1518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1520         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1521             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1522             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1523             Dim ds As NEADataSet = New NEADataSet()
1524             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1525             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1526             any1.MinOccurs = New Decimal(0)
1527             any1.MaxOccurs = Decimal.MaxValue
1528             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1529             sequence.Items.Add(any1)
1530             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1531             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1532             any2.MinOccurs = New Decimal(1)
1533             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1534             sequence.Items.Add(any2)
1535             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1536             attribute1.Name = "namespace"
1537             attribute1.FixedValue = ds.Namespace
1538             type.Attributes.Add(attribute1)
1539             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1540             attribute2.Name = "tableTypeName"
1541             attribute2.FixedValue = "FriendsDataTable"
1542             type.Attributes.Add(attribute2)
1543             type.Particle = sequence
1544             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1545             If xs.Contains(dsSchema.TargetNamespace) Then
1546                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1547                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1548                 Try
1549                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1550                     dsSchema.Write(s1)
1551                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1552                     Do While schemas.MoveNext
1553                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1554                         s2.SetLength(0)
1555                         schema.Write(s2)
1556                         If (s1.Length = s2.Length) Then
1557                             s1.Position = 0
1558                             s2.Position = 0
1559
1560                             Do While ((s1.Position <> s1.Length)  _
1561                                         AndAlso (s1.ReadByte = s2.ReadByte))
1562
1563
1564                             Loop
1565                             If (s1.Position = s1.Length) Then
1566                                 Return type
1567                             End If
1568                         End If
1569
1570                     Loop
1571                 Finally
1572                     If (Not (s1) Is Nothing) Then
1573                         s1.Close
1574                     End If
1575                     If (Not (s2) Is Nothing) Then
1576                         s2.Close
1577                     End If
1578                 End Try
1579             End If
1580             xs.Add(dsSchema)
1581             Return type
1582         End Function
1583     End Class
1584
1585     '''<summary>
1586     '''Represents the strongly named DataTable class.
1587     '''</summary>
1588     <Global.System.Serializable(),  _
1589      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1590     Partial Public Class GamesDataTable
1591         Inherits Global.System.Data.TypedTableBase(Of GamesRow)
1592
1593         Private columnGameID As Global.System.Data.DataColumn
1594
1595         Private columnName As Global.System.Data.DataColumn
1596
1597         Private columnPrice As Global.System.Data.DataColumn
1598
1599         Private columnRating As Global.System.Data.DataColumn
1600
1601         Private columnCertificate As Global.System.Data.DataColumn
1602
1603         Private columnDev As Global.System.Data.DataColumn
1604
1605         Private columnPublisher As Global.System.Data.DataColumn
1606
1607         Private columnTags As Global.System.Data.DataColumn
1608
1609         Private columnTheme_Colour As Global.System.Data.DataColumn
1610
1611         Private columnIcon As Global.System.Data.DataColumn
1612
1613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1615         Public Sub New()
1616             MyBase.New
1617             Me.TableName = "Games"
1618             Me.BeginInit
1619             Me.InitClass
1620             Me.EndInit
1621         End Sub
1622
1623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1625         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1626             MyBase.New
1627             Me.TableName = table.TableName
1628             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1629                 Me.CaseSensitive = table.CaseSensitive
1630             End If
1631             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1632                 Me.Locale = table.Locale
1633             End If
1634             If (table.Namespace <> table.DataSet.Namespace) Then
1635                 Me.Namespace = table.Namespace
1636             End If
1637             Me.Prefix = table.Prefix
1638             Me.MinimumCapacity = table.MinimumCapacity
1639         End Sub
1640
1641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1643         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1644             MyBase.New(info, context)
1645             Me.InitVars
1646         End Sub
1647
1648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1650         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
1651             Get
1652                 Return Me.columnGameID
1653             End Get
1654         End Property
1655
1656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1658         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
1659             Get
1660                 Return Me.columnName
1661             End Get
1662         End Property
1663
1664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1666         Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
1667             Get
1668                 Return Me.columnPrice
1669             End Get
1670         End Property
1671
1672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1674         Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn
1675             Get
1676                 Return Me.columnRating
1677             End Get
1678         End Property
1679
1680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1682         Public ReadOnly Property CertificateColumn() As Global.System.Data.DataColumn
1683             Get
1684                 Return Me.columnCertificate
1685             End Get
1686         End Property
1687
1688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1690         Public ReadOnly Property DevColumn() As Global.System.Data.DataColumn
1691             Get
1692                 Return Me.columnDev
1693             End Get
1694         End Property
1695
1696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1698         Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn
1699             Get
1700                 Return Me.columnPublisher
1701             End Get
1702         End Property
1703
1704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1706         Public ReadOnly Property TagsColumn() As Global.System.Data.DataColumn
1707             Get
1708                 Return Me.columnTags
1709             End Get
1710         End Property
1711
1712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1714         Public ReadOnly Property Theme_ColourColumn() As Global.System.Data.DataColumn
1715             Get
1716                 Return Me.columnTheme_Colour
1717             End Get
1718         End Property
1719
1720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1722         Public ReadOnly Property IconColumn() As Global.System.Data.DataColumn
1723             Get
1724                 Return Me.columnIcon
1725             End Get
1726         End Property
1727
1728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1730          Global.System.ComponentModel.Browsable(false)>  _
1731         Public ReadOnly Property Count() As Integer
1732             Get
1733                 Return Me.Rows.Count
1734             End Get
1735         End Property
1736
1737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1739         Public Default ReadOnly Property Item(ByVal index As Integer) As GamesRow
1740             Get
1741                 Return CType(Me.Rows(index),GamesRow)
1742             End Get
1743         End Property
1744
1745         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1746         Public Event GamesRowChanging As GamesRowChangeEventHandler
1747
1748         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1749         Public Event GamesRowChanged As GamesRowChangeEventHandler
1750
1751         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1752         Public Event GamesRowDeleting As GamesRowChangeEventHandler
1753
1754         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1755         Public Event GamesRowDeleted As GamesRowChangeEventHandler
1756
1757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1759         Public Overloads Sub AddGamesRow(ByVal row As GamesRow)
1760             Me.Rows.Add(row)
1761         End Sub
1762
1763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1765         Public Overloads Function AddGamesRow(ByVal Name As String, ByVal Price As Decimal, ByVal Rating As Integer, ByVal Certificate As Integer, ByVal Dev As String, ByVal Publisher As String, ByVal Tags As String, ByVal Theme_Colour As Integer, ByVal Icon() As Byte) As GamesRow
1766             Dim rowGamesRow As GamesRow = CType(Me.NewRow,GamesRow)
1767             Dim columnValuesArray() As Object = New Object() {Nothing, Name, Price, Rating, Certificate, Dev, Publisher, Tags, Theme_Colour, Icon}
1768             rowGamesRow.ItemArray = columnValuesArray
1769             Me.Rows.Add(rowGamesRow)
1770             Return rowGamesRow
1771         End Function
1772
1773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1775         Public Function FindByGameID(ByVal GameID As Integer) As GamesRow
1776             Return CType(Me.Rows.Find(New Object() {GameID}),GamesRow)
1777         End Function
1778
1779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1781         Public Overrides Function Clone() As Global.System.Data.DataTable
1782             Dim cln As GamesDataTable = CType(MyBase.Clone,GamesDataTable)
1783             cln.InitVars
1784             Return cln
1785         End Function
1786
1787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1789         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1790             Return New GamesDataTable()
1791         End Function
1792
1793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1795         Friend Sub InitVars()
1796             Me.columnGameID = MyBase.Columns("GameID")
1797             Me.columnName = MyBase.Columns("Name")
1798             Me.columnPrice = MyBase.Columns("Price")
1799             Me.columnRating = MyBase.Columns("Rating")
1800             Me.columnCertificate = MyBase.Columns("Certificate")
1801             Me.columnDev = MyBase.Columns("Dev")
1802             Me.columnPublisher = MyBase.Columns("Publisher")
1803             Me.columnTags = MyBase.Columns("Tags")
1804             Me.columnTheme_Colour = MyBase.Columns("Theme Colour")
1805             Me.columnIcon = MyBase.Columns("Icon")
1806         End Sub
1807
1808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1810         Private Sub InitClass()
1811             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1812             MyBase.Columns.Add(Me.columnGameID)
1813             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1814             MyBase.Columns.Add(Me.columnName)
1815             Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1816             MyBase.Columns.Add(Me.columnPrice)
1817             Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1818             MyBase.Columns.Add(Me.columnRating)
1819             Me.columnCertificate = New Global.System.Data.DataColumn("Certificate", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1820             MyBase.Columns.Add(Me.columnCertificate)
1821             Me.columnDev = New Global.System.Data.DataColumn("Dev", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1822             MyBase.Columns.Add(Me.columnDev)
1823             Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1824             MyBase.Columns.Add(Me.columnPublisher)
1825             Me.columnTags = New Global.System.Data.DataColumn("Tags", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1826             MyBase.Columns.Add(Me.columnTags)
1827             Me.columnTheme_Colour = New Global.System.Data.DataColumn("Theme Colour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1828             MyBase.Columns.Add(Me.columnTheme_Colour)
1829             Me.columnIcon = New Global.System.Data.DataColumn("Icon", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
1830             MyBase.Columns.Add(Me.columnIcon)
1831             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGameID}, true))
1832             Me.columnGameID.AutoIncrement = true
1833             Me.columnGameID.AutoIncrementSeed = -1
1834             Me.columnGameID.AutoIncrementStep = -1
1835             Me.columnGameID.AllowDBNull = false
1836             Me.columnGameID.Unique = true
1837             Me.columnName.MaxLength = 536870910
1838             Me.columnDev.MaxLength = 536870910
1839             Me.columnPublisher.MaxLength = 536870910
1840             Me.columnTags.MaxLength = 536870910
1841         End Sub
1842
1843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1845         Public Function NewGamesRow() As GamesRow
1846             Return CType(Me.NewRow,GamesRow)
1847         End Function
1848
1849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1851         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1852             Return New GamesRow(builder)
1853         End Function
1854
1855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1857         Protected Overrides Function GetRowType() As Global.System.Type
1858             Return GetType(GamesRow)
1859         End Function
1860
1861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1863         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1864             MyBase.OnRowChanged(e)
1865             If (Not (Me.GamesRowChangedEvent) Is Nothing) Then
1866                 RaiseEvent GamesRowChanged(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1867             End If
1868         End Sub
1869
1870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1872         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1873             MyBase.OnRowChanging(e)
1874             If (Not (Me.GamesRowChangingEvent) Is Nothing) Then
1875                 RaiseEvent GamesRowChanging(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1876             End If
1877         End Sub
1878
1879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1881         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1882             MyBase.OnRowDeleted(e)
1883             If (Not (Me.GamesRowDeletedEvent) Is Nothing) Then
1884                 RaiseEvent GamesRowDeleted(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1885             End If
1886         End Sub
1887
1888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1890         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1891             MyBase.OnRowDeleting(e)
1892             If (Not (Me.GamesRowDeletingEvent) Is Nothing) Then
1893                 RaiseEvent GamesRowDeleting(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1894             End If
1895         End Sub
1896
1897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1899         Public Sub RemoveGamesRow(ByVal row As GamesRow)
1900             Me.Rows.Remove(row)
1901         End Sub
1902
1903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1905         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1906             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1907             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1908             Dim ds As NEADataSet = New NEADataSet()
1909             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1910             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1911             any1.MinOccurs = New Decimal(0)
1912             any1.MaxOccurs = Decimal.MaxValue
1913             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1914             sequence.Items.Add(any1)
1915             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1916             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1917             any2.MinOccurs = New Decimal(1)
1918             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1919             sequence.Items.Add(any2)
1920             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1921             attribute1.Name = "namespace"
1922             attribute1.FixedValue = ds.Namespace
1923             type.Attributes.Add(attribute1)
1924             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1925             attribute2.Name = "tableTypeName"
1926             attribute2.FixedValue = "GamesDataTable"
1927             type.Attributes.Add(attribute2)
1928             type.Particle = sequence
1929             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1930             If xs.Contains(dsSchema.TargetNamespace) Then
1931                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1932                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1933                 Try
1934                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1935                     dsSchema.Write(s1)
1936                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1937                     Do While schemas.MoveNext
1938                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1939                         s2.SetLength(0)
1940                         schema.Write(s2)
1941                         If (s1.Length = s2.Length) Then
1942                             s1.Position = 0
1943                             s2.Position = 0
1944
1945                             Do While ((s1.Position <> s1.Length)  _
1946                                         AndAlso (s1.ReadByte = s2.ReadByte))
1947
1948
1949                             Loop
1950                             If (s1.Position = s1.Length) Then
1951                                 Return type
1952                             End If
1953                         End If
1954
1955                     Loop
1956                 Finally
1957                     If (Not (s1) Is Nothing) Then
1958                         s1.Close
1959                     End If
1960                     If (Not (s2) Is Nothing) Then
1961                         s2.Close
1962                     End If
1963                 End Try
1964             End If
1965             xs.Add(dsSchema)
1966             Return type
1967         End Function
1968     End Class
1969
1970     '''<summary>
1971     '''Represents the strongly named DataTable class.
1972     '''</summary>
1973     <Global.System.Serializable(),  _
1974      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1975     Partial Public Class PurchasedDataTable
1976         Inherits Global.System.Data.TypedTableBase(Of PurchasedRow)
1977
1978         Private columnPurchaseID As Global.System.Data.DataColumn
1979
1980         Private columnUserID As Global.System.Data.DataColumn
1981
1982         Private columnGameID As Global.System.Data.DataColumn
1983
1984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1986         Public Sub New()
1987             MyBase.New
1988             Me.TableName = "Purchased"
1989             Me.BeginInit
1990             Me.InitClass
1991             Me.EndInit
1992         End Sub
1993
1994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1996         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1997             MyBase.New
1998             Me.TableName = table.TableName
1999             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2000                 Me.CaseSensitive = table.CaseSensitive
2001             End If
2002             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2003                 Me.Locale = table.Locale
2004             End If
2005             If (table.Namespace <> table.DataSet.Namespace) Then
2006                 Me.Namespace = table.Namespace
2007             End If
2008             Me.Prefix = table.Prefix
2009             Me.MinimumCapacity = table.MinimumCapacity
2010         End Sub
2011
2012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2014         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2015             MyBase.New(info, context)
2016             Me.InitVars
2017         End Sub
2018
2019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2021         Public ReadOnly Property PurchaseIDColumn() As Global.System.Data.DataColumn
2022             Get
2023                 Return Me.columnPurchaseID
2024             End Get
2025         End Property
2026
2027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2029         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
2030             Get
2031                 Return Me.columnUserID
2032             End Get
2033         End Property
2034
2035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2037         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
2038             Get
2039                 Return Me.columnGameID
2040             End Get
2041         End Property
2042
2043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2045          Global.System.ComponentModel.Browsable(false)>  _
2046         Public ReadOnly Property Count() As Integer
2047             Get
2048                 Return Me.Rows.Count
2049             End Get
2050         End Property
2051
2052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2054         Public Default ReadOnly Property Item(ByVal index As Integer) As PurchasedRow
2055             Get
2056                 Return CType(Me.Rows(index),PurchasedRow)
2057             End Get
2058         End Property
2059
2060         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2061         Public Event PurchasedRowChanging As PurchasedRowChangeEventHandler
2062
2063         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2064         Public Event PurchasedRowChanged As PurchasedRowChangeEventHandler
2065
2066         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2067         Public Event PurchasedRowDeleting As PurchasedRowChangeEventHandler
2068
2069         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2070         Public Event PurchasedRowDeleted As PurchasedRowChangeEventHandler
2071
2072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2074         Public Overloads Sub AddPurchasedRow(ByVal row As PurchasedRow)
2075             Me.Rows.Add(row)
2076         End Sub
2077
2078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2080         Public Overloads Function AddPurchasedRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesPurchased As GamesRow) As PurchasedRow
2081             Dim rowPurchasedRow As PurchasedRow = CType(Me.NewRow,PurchasedRow)
2082             Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
2083             If (Not (parentGamesRowByGamesPurchased) Is Nothing) Then
2084                 columnValuesArray(2) = parentGamesRowByGamesPurchased(0)
2085             End If
2086             rowPurchasedRow.ItemArray = columnValuesArray
2087             Me.Rows.Add(rowPurchasedRow)
2088             Return rowPurchasedRow
2089         End Function
2090
2091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2093         Public Function FindByPurchaseID(ByVal PurchaseID As Integer) As PurchasedRow
2094             Return CType(Me.Rows.Find(New Object() {PurchaseID}),PurchasedRow)
2095         End Function
2096
2097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2099         Public Overrides Function Clone() As Global.System.Data.DataTable
2100             Dim cln As PurchasedDataTable = CType(MyBase.Clone,PurchasedDataTable)
2101             cln.InitVars
2102             Return cln
2103         End Function
2104
2105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2107         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2108             Return New PurchasedDataTable()
2109         End Function
2110
2111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2113         Friend Sub InitVars()
2114             Me.columnPurchaseID = MyBase.Columns("PurchaseID")
2115             Me.columnUserID = MyBase.Columns("UserID")
2116             Me.columnGameID = MyBase.Columns("GameID")
2117         End Sub
2118
2119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2121         Private Sub InitClass()
2122             Me.columnPurchaseID = New Global.System.Data.DataColumn("PurchaseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2123             MyBase.Columns.Add(Me.columnPurchaseID)
2124             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2125             MyBase.Columns.Add(Me.columnUserID)
2126             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2127             MyBase.Columns.Add(Me.columnGameID)
2128             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPurchaseID}, true))
2129             Me.columnPurchaseID.AutoIncrement = true
2130             Me.columnPurchaseID.AutoIncrementSeed = -1
2131             Me.columnPurchaseID.AutoIncrementStep = -1
2132             Me.columnPurchaseID.AllowDBNull = false
2133             Me.columnPurchaseID.Unique = true
2134         End Sub
2135
2136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2138         Public Function NewPurchasedRow() As PurchasedRow
2139             Return CType(Me.NewRow,PurchasedRow)
2140         End Function
2141
2142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2144         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2145             Return New PurchasedRow(builder)
2146         End Function
2147
2148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2150         Protected Overrides Function GetRowType() As Global.System.Type
2151             Return GetType(PurchasedRow)
2152         End Function
2153
2154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2156         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2157             MyBase.OnRowChanged(e)
2158             If (Not (Me.PurchasedRowChangedEvent) Is Nothing) Then
2159                 RaiseEvent PurchasedRowChanged(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2160             End If
2161         End Sub
2162
2163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2165         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2166             MyBase.OnRowChanging(e)
2167             If (Not (Me.PurchasedRowChangingEvent) Is Nothing) Then
2168                 RaiseEvent PurchasedRowChanging(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2169             End If
2170         End Sub
2171
2172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2174         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2175             MyBase.OnRowDeleted(e)
2176             If (Not (Me.PurchasedRowDeletedEvent) Is Nothing) Then
2177                 RaiseEvent PurchasedRowDeleted(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2178             End If
2179         End Sub
2180
2181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2183         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2184             MyBase.OnRowDeleting(e)
2185             If (Not (Me.PurchasedRowDeletingEvent) Is Nothing) Then
2186                 RaiseEvent PurchasedRowDeleting(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2187             End If
2188         End Sub
2189
2190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2192         Public Sub RemovePurchasedRow(ByVal row As PurchasedRow)
2193             Me.Rows.Remove(row)
2194         End Sub
2195
2196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2198         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2199             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2200             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2201             Dim ds As NEADataSet = New NEADataSet()
2202             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2203             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2204             any1.MinOccurs = New Decimal(0)
2205             any1.MaxOccurs = Decimal.MaxValue
2206             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2207             sequence.Items.Add(any1)
2208             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2209             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2210             any2.MinOccurs = New Decimal(1)
2211             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2212             sequence.Items.Add(any2)
2213             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2214             attribute1.Name = "namespace"
2215             attribute1.FixedValue = ds.Namespace
2216             type.Attributes.Add(attribute1)
2217             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2218             attribute2.Name = "tableTypeName"
2219             attribute2.FixedValue = "PurchasedDataTable"
2220             type.Attributes.Add(attribute2)
2221             type.Particle = sequence
2222             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2223             If xs.Contains(dsSchema.TargetNamespace) Then
2224                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2225                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2226                 Try
2227                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2228                     dsSchema.Write(s1)
2229                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2230                     Do While schemas.MoveNext
2231                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2232                         s2.SetLength(0)
2233                         schema.Write(s2)
2234                         If (s1.Length = s2.Length) Then
2235                             s1.Position = 0
2236                             s2.Position = 0
2237
2238                             Do While ((s1.Position <> s1.Length)  _
2239                                         AndAlso (s1.ReadByte = s2.ReadByte))
2240
2241
2242                             Loop
2243                             If (s1.Position = s1.Length) Then
2244                                 Return type
2245                             End If
2246                         End If
2247
2248                     Loop
2249                 Finally
2250                     If (Not (s1) Is Nothing) Then
2251                         s1.Close
2252                     End If
2253                     If (Not (s2) Is Nothing) Then
2254                         s2.Close
2255                     End If
2256                 End Try
2257             End If
2258             xs.Add(dsSchema)
2259             Return type
2260         End Function
2261     End Class
2262
2263     '''<summary>
2264     '''Represents the strongly named DataTable class.
2265     '''</summary>
2266     <Global.System.Serializable(),  _
2267      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2268     Partial Public Class ReviewsDataTable
2269         Inherits Global.System.Data.TypedTableBase(Of ReviewsRow)
2270
2271         Private columnReviewID As Global.System.Data.DataColumn
2272
2273         Private columnGameID As Global.System.Data.DataColumn
2274
2275         Private columnReview As Global.System.Data.DataColumn
2276
2277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2279         Public Sub New()
2280             MyBase.New
2281             Me.TableName = "Reviews"
2282             Me.BeginInit
2283             Me.InitClass
2284             Me.EndInit
2285         End Sub
2286
2287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2289         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2290             MyBase.New
2291             Me.TableName = table.TableName
2292             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2293                 Me.CaseSensitive = table.CaseSensitive
2294             End If
2295             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2296                 Me.Locale = table.Locale
2297             End If
2298             If (table.Namespace <> table.DataSet.Namespace) Then
2299                 Me.Namespace = table.Namespace
2300             End If
2301             Me.Prefix = table.Prefix
2302             Me.MinimumCapacity = table.MinimumCapacity
2303         End Sub
2304
2305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2307         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2308             MyBase.New(info, context)
2309             Me.InitVars
2310         End Sub
2311
2312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2314         Public ReadOnly Property ReviewIDColumn() As Global.System.Data.DataColumn
2315             Get
2316                 Return Me.columnReviewID
2317             End Get
2318         End Property
2319
2320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2322         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
2323             Get
2324                 Return Me.columnGameID
2325             End Get
2326         End Property
2327
2328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2330         Public ReadOnly Property ReviewColumn() As Global.System.Data.DataColumn
2331             Get
2332                 Return Me.columnReview
2333             End Get
2334         End Property
2335
2336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2338          Global.System.ComponentModel.Browsable(false)>  _
2339         Public ReadOnly Property Count() As Integer
2340             Get
2341                 Return Me.Rows.Count
2342             End Get
2343         End Property
2344
2345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2347         Public Default ReadOnly Property Item(ByVal index As Integer) As ReviewsRow
2348             Get
2349                 Return CType(Me.Rows(index),ReviewsRow)
2350             End Get
2351         End Property
2352
2353         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2354         Public Event ReviewsRowChanging As ReviewsRowChangeEventHandler
2355
2356         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2357         Public Event ReviewsRowChanged As ReviewsRowChangeEventHandler
2358
2359         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2360         Public Event ReviewsRowDeleting As ReviewsRowChangeEventHandler
2361
2362         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2363         Public Event ReviewsRowDeleted As ReviewsRowChangeEventHandler
2364
2365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2367         Public Overloads Sub AddReviewsRow(ByVal row As ReviewsRow)
2368             Me.Rows.Add(row)
2369         End Sub
2370
2371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2373         Public Overloads Function AddReviewsRow(ByVal parentGamesRowByGamesReviews As GamesRow, ByVal Review As String) As ReviewsRow
2374             Dim rowReviewsRow As ReviewsRow = CType(Me.NewRow,ReviewsRow)
2375             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Review}
2376             If (Not (parentGamesRowByGamesReviews) Is Nothing) Then
2377                 columnValuesArray(1) = parentGamesRowByGamesReviews(0)
2378             End If
2379             rowReviewsRow.ItemArray = columnValuesArray
2380             Me.Rows.Add(rowReviewsRow)
2381             Return rowReviewsRow
2382         End Function
2383
2384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2386         Public Function FindByReviewID(ByVal ReviewID As Integer) As ReviewsRow
2387             Return CType(Me.Rows.Find(New Object() {ReviewID}),ReviewsRow)
2388         End Function
2389
2390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2392         Public Overrides Function Clone() As Global.System.Data.DataTable
2393             Dim cln As ReviewsDataTable = CType(MyBase.Clone,ReviewsDataTable)
2394             cln.InitVars
2395             Return cln
2396         End Function
2397
2398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2400         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2401             Return New ReviewsDataTable()
2402         End Function
2403
2404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2406         Friend Sub InitVars()
2407             Me.columnReviewID = MyBase.Columns("ReviewID")
2408             Me.columnGameID = MyBase.Columns("GameID")
2409             Me.columnReview = MyBase.Columns("Review")
2410         End Sub
2411
2412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2414         Private Sub InitClass()
2415             Me.columnReviewID = New Global.System.Data.DataColumn("ReviewID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2416             MyBase.Columns.Add(Me.columnReviewID)
2417             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2418             MyBase.Columns.Add(Me.columnGameID)
2419             Me.columnReview = New Global.System.Data.DataColumn("Review", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2420             MyBase.Columns.Add(Me.columnReview)
2421             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnReviewID}, true))
2422             Me.columnReviewID.AutoIncrement = true
2423             Me.columnReviewID.AutoIncrementSeed = -1
2424             Me.columnReviewID.AutoIncrementStep = -1
2425             Me.columnReviewID.AllowDBNull = false
2426             Me.columnReviewID.Unique = true
2427             Me.columnReview.MaxLength = 536870910
2428         End Sub
2429
2430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2432         Public Function NewReviewsRow() As ReviewsRow
2433             Return CType(Me.NewRow,ReviewsRow)
2434         End Function
2435
2436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2438         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2439             Return New ReviewsRow(builder)
2440         End Function
2441
2442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2444         Protected Overrides Function GetRowType() As Global.System.Type
2445             Return GetType(ReviewsRow)
2446         End Function
2447
2448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2450         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2451             MyBase.OnRowChanged(e)
2452             If (Not (Me.ReviewsRowChangedEvent) Is Nothing) Then
2453                 RaiseEvent ReviewsRowChanged(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2454             End If
2455         End Sub
2456
2457         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2458          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2459         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2460             MyBase.OnRowChanging(e)
2461             If (Not (Me.ReviewsRowChangingEvent) Is Nothing) Then
2462                 RaiseEvent ReviewsRowChanging(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2463             End If
2464         End Sub
2465
2466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2468         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2469             MyBase.OnRowDeleted(e)
2470             If (Not (Me.ReviewsRowDeletedEvent) Is Nothing) Then
2471                 RaiseEvent ReviewsRowDeleted(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2472             End If
2473         End Sub
2474
2475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2477         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2478             MyBase.OnRowDeleting(e)
2479             If (Not (Me.ReviewsRowDeletingEvent) Is Nothing) Then
2480                 RaiseEvent ReviewsRowDeleting(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2481             End If
2482         End Sub
2483
2484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2486         Public Sub RemoveReviewsRow(ByVal row As ReviewsRow)
2487             Me.Rows.Remove(row)
2488         End Sub
2489
2490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2492         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2493             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2494             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2495             Dim ds As NEADataSet = New NEADataSet()
2496             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2497             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2498             any1.MinOccurs = New Decimal(0)
2499             any1.MaxOccurs = Decimal.MaxValue
2500             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2501             sequence.Items.Add(any1)
2502             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2503             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2504             any2.MinOccurs = New Decimal(1)
2505             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2506             sequence.Items.Add(any2)
2507             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2508             attribute1.Name = "namespace"
2509             attribute1.FixedValue = ds.Namespace
2510             type.Attributes.Add(attribute1)
2511             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2512             attribute2.Name = "tableTypeName"
2513             attribute2.FixedValue = "ReviewsDataTable"
2514             type.Attributes.Add(attribute2)
2515             type.Particle = sequence
2516             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2517             If xs.Contains(dsSchema.TargetNamespace) Then
2518                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2519                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2520                 Try
2521                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2522                     dsSchema.Write(s1)
2523                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2524                     Do While schemas.MoveNext
2525                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2526                         s2.SetLength(0)
2527                         schema.Write(s2)
2528                         If (s1.Length = s2.Length) Then
2529                             s1.Position = 0
2530                             s2.Position = 0
2531
2532                             Do While ((s1.Position <> s1.Length)  _
2533                                         AndAlso (s1.ReadByte = s2.ReadByte))
2534
2535
2536                             Loop
2537                             If (s1.Position = s1.Length) Then
2538                                 Return type
2539                             End If
2540                         End If
2541
2542                     Loop
2543                 Finally
2544                     If (Not (s1) Is Nothing) Then
2545                         s1.Close
2546                     End If
2547                     If (Not (s2) Is Nothing) Then
2548                         s2.Close
2549                     End If
2550                 End Try
2551             End If
2552             xs.Add(dsSchema)
2553             Return type
2554         End Function
2555     End Class
2556
2557     '''<summary>
2558     '''Represents the strongly named DataTable class.
2559     '''</summary>
2560     <Global.System.Serializable(),  _
2561      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2562     Partial Public Class TagsDataTable
2563         Inherits Global.System.Data.TypedTableBase(Of TagsRow)
2564
2565         Private columnID As Global.System.Data.DataColumn
2566
2567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2569         Public Sub New()
2570             MyBase.New
2571             Me.TableName = "Tags"
2572             Me.BeginInit
2573             Me.InitClass
2574             Me.EndInit
2575         End Sub
2576
2577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2579         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2580             MyBase.New
2581             Me.TableName = table.TableName
2582             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2583                 Me.CaseSensitive = table.CaseSensitive
2584             End If
2585             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2586                 Me.Locale = table.Locale
2587             End If
2588             If (table.Namespace <> table.DataSet.Namespace) Then
2589                 Me.Namespace = table.Namespace
2590             End If
2591             Me.Prefix = table.Prefix
2592             Me.MinimumCapacity = table.MinimumCapacity
2593         End Sub
2594
2595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2597         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2598             MyBase.New(info, context)
2599             Me.InitVars
2600         End Sub
2601
2602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2604         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
2605             Get
2606                 Return Me.columnID
2607             End Get
2608         End Property
2609
2610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2612          Global.System.ComponentModel.Browsable(false)>  _
2613         Public ReadOnly Property Count() As Integer
2614             Get
2615                 Return Me.Rows.Count
2616             End Get
2617         End Property
2618
2619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2621         Public Default ReadOnly Property Item(ByVal index As Integer) As TagsRow
2622             Get
2623                 Return CType(Me.Rows(index),TagsRow)
2624             End Get
2625         End Property
2626
2627         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2628         Public Event TagsRowChanging As TagsRowChangeEventHandler
2629
2630         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2631         Public Event TagsRowChanged As TagsRowChangeEventHandler
2632
2633         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2634         Public Event TagsRowDeleting As TagsRowChangeEventHandler
2635
2636         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2637         Public Event TagsRowDeleted As TagsRowChangeEventHandler
2638
2639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2641         Public Overloads Sub AddTagsRow(ByVal row As TagsRow)
2642             Me.Rows.Add(row)
2643         End Sub
2644
2645         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2646          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2647         Public Overloads Function AddTagsRow() As TagsRow
2648             Dim rowTagsRow As TagsRow = CType(Me.NewRow,TagsRow)
2649             Dim columnValuesArray() As Object = New Object() {Nothing}
2650             rowTagsRow.ItemArray = columnValuesArray
2651             Me.Rows.Add(rowTagsRow)
2652             Return rowTagsRow
2653         End Function
2654
2655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2657         Public Function FindByID(ByVal ID As Integer) As TagsRow
2658             Return CType(Me.Rows.Find(New Object() {ID}),TagsRow)
2659         End Function
2660
2661         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2662          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2663         Public Overrides Function Clone() As Global.System.Data.DataTable
2664             Dim cln As TagsDataTable = CType(MyBase.Clone,TagsDataTable)
2665             cln.InitVars
2666             Return cln
2667         End Function
2668
2669         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2670          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2671         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2672             Return New TagsDataTable()
2673         End Function
2674
2675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2677         Friend Sub InitVars()
2678             Me.columnID = MyBase.Columns("ID")
2679         End Sub
2680
2681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2683         Private Sub InitClass()
2684             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2685             MyBase.Columns.Add(Me.columnID)
2686             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2687             Me.columnID.AutoIncrement = true
2688             Me.columnID.AutoIncrementSeed = -1
2689             Me.columnID.AutoIncrementStep = -1
2690             Me.columnID.AllowDBNull = false
2691             Me.columnID.Unique = true
2692         End Sub
2693
2694         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2695          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2696         Public Function NewTagsRow() As TagsRow
2697             Return CType(Me.NewRow,TagsRow)
2698         End Function
2699
2700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2702         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2703             Return New TagsRow(builder)
2704         End Function
2705
2706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2708         Protected Overrides Function GetRowType() As Global.System.Type
2709             Return GetType(TagsRow)
2710         End Function
2711
2712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2714         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2715             MyBase.OnRowChanged(e)
2716             If (Not (Me.TagsRowChangedEvent) Is Nothing) Then
2717                 RaiseEvent TagsRowChanged(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2718             End If
2719         End Sub
2720
2721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2723         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2724             MyBase.OnRowChanging(e)
2725             If (Not (Me.TagsRowChangingEvent) Is Nothing) Then
2726                 RaiseEvent TagsRowChanging(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2727             End If
2728         End Sub
2729
2730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2732         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2733             MyBase.OnRowDeleted(e)
2734             If (Not (Me.TagsRowDeletedEvent) Is Nothing) Then
2735                 RaiseEvent TagsRowDeleted(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2736             End If
2737         End Sub
2738
2739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2741         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2742             MyBase.OnRowDeleting(e)
2743             If (Not (Me.TagsRowDeletingEvent) Is Nothing) Then
2744                 RaiseEvent TagsRowDeleting(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2745             End If
2746         End Sub
2747
2748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2750         Public Sub RemoveTagsRow(ByVal row As TagsRow)
2751             Me.Rows.Remove(row)
2752         End Sub
2753
2754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2756         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2757             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2758             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2759             Dim ds As NEADataSet = New NEADataSet()
2760             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2761             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2762             any1.MinOccurs = New Decimal(0)
2763             any1.MaxOccurs = Decimal.MaxValue
2764             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2765             sequence.Items.Add(any1)
2766             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2767             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2768             any2.MinOccurs = New Decimal(1)
2769             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2770             sequence.Items.Add(any2)
2771             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2772             attribute1.Name = "namespace"
2773             attribute1.FixedValue = ds.Namespace
2774             type.Attributes.Add(attribute1)
2775             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2776             attribute2.Name = "tableTypeName"
2777             attribute2.FixedValue = "TagsDataTable"
2778             type.Attributes.Add(attribute2)
2779             type.Particle = sequence
2780             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2781             If xs.Contains(dsSchema.TargetNamespace) Then
2782                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2783                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2784                 Try
2785                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2786                     dsSchema.Write(s1)
2787                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2788                     Do While schemas.MoveNext
2789                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2790                         s2.SetLength(0)
2791                         schema.Write(s2)
2792                         If (s1.Length = s2.Length) Then
2793                             s1.Position = 0
2794                             s2.Position = 0
2795
2796                             Do While ((s1.Position <> s1.Length)  _
2797                                         AndAlso (s1.ReadByte = s2.ReadByte))
2798
2799
2800                             Loop
2801                             If (s1.Position = s1.Length) Then
2802                                 Return type
2803                             End If
2804                         End If
2805
2806                     Loop
2807                 Finally
2808                     If (Not (s1) Is Nothing) Then
2809                         s1.Close
2810                     End If
2811                     If (Not (s2) Is Nothing) Then
2812                         s2.Close
2813                     End If
2814                 End Try
2815             End If
2816             xs.Add(dsSchema)
2817             Return type
2818         End Function
2819     End Class
2820
2821     '''<summary>
2822     '''Represents the strongly named DataTable class.
2823     '''</summary>
2824     <Global.System.Serializable(),  _
2825      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2826     Partial Public Class User_DetailsDataTable
2827         Inherits Global.System.Data.TypedTableBase(Of User_DetailsRow)
2828
2829         Private columnUserDetailsID As Global.System.Data.DataColumn
2830
2831         Private columnFirstName As Global.System.Data.DataColumn
2832
2833         Private columnLastName As Global.System.Data.DataColumn
2834
2835         Private columnAddressLine1 As Global.System.Data.DataColumn
2836
2837         Private columnTown As Global.System.Data.DataColumn
2838
2839         Private columnPostcode As Global.System.Data.DataColumn
2840
2841         Private columnCardNumber As Global.System.Data.DataColumn
2842
2843         Private columnCVC As Global.System.Data.DataColumn
2844
2845         Private columnIGN As Global.System.Data.DataColumn
2846
2847         Private columnEmail As Global.System.Data.DataColumn
2848
2849         Private columnProfilePic As Global.System.Data.DataColumn
2850
2851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2853         Public Sub New()
2854             MyBase.New
2855             Me.TableName = "User_Details"
2856             Me.BeginInit
2857             Me.InitClass
2858             Me.EndInit
2859         End Sub
2860
2861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2863         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2864             MyBase.New
2865             Me.TableName = table.TableName
2866             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2867                 Me.CaseSensitive = table.CaseSensitive
2868             End If
2869             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2870                 Me.Locale = table.Locale
2871             End If
2872             If (table.Namespace <> table.DataSet.Namespace) Then
2873                 Me.Namespace = table.Namespace
2874             End If
2875             Me.Prefix = table.Prefix
2876             Me.MinimumCapacity = table.MinimumCapacity
2877         End Sub
2878
2879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2881         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2882             MyBase.New(info, context)
2883             Me.InitVars
2884         End Sub
2885
2886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2888         Public ReadOnly Property UserDetailsIDColumn() As Global.System.Data.DataColumn
2889             Get
2890                 Return Me.columnUserDetailsID
2891             End Get
2892         End Property
2893
2894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2896         Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
2897             Get
2898                 Return Me.columnFirstName
2899             End Get
2900         End Property
2901
2902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2904         Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
2905             Get
2906                 Return Me.columnLastName
2907             End Get
2908         End Property
2909
2910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2912         Public ReadOnly Property AddressLine1Column() As Global.System.Data.DataColumn
2913             Get
2914                 Return Me.columnAddressLine1
2915             End Get
2916         End Property
2917
2918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2920         Public ReadOnly Property TownColumn() As Global.System.Data.DataColumn
2921             Get
2922                 Return Me.columnTown
2923             End Get
2924         End Property
2925
2926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2928         Public ReadOnly Property PostcodeColumn() As Global.System.Data.DataColumn
2929             Get
2930                 Return Me.columnPostcode
2931             End Get
2932         End Property
2933
2934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2936         Public ReadOnly Property CardNumberColumn() As Global.System.Data.DataColumn
2937             Get
2938                 Return Me.columnCardNumber
2939             End Get
2940         End Property
2941
2942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2944         Public ReadOnly Property CVCColumn() As Global.System.Data.DataColumn
2945             Get
2946                 Return Me.columnCVC
2947             End Get
2948         End Property
2949
2950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2952         Public ReadOnly Property IGNColumn() As Global.System.Data.DataColumn
2953             Get
2954                 Return Me.columnIGN
2955             End Get
2956         End Property
2957
2958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2960         Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
2961             Get
2962                 Return Me.columnEmail
2963             End Get
2964         End Property
2965
2966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2968         Public ReadOnly Property ProfilePicColumn() As Global.System.Data.DataColumn
2969             Get
2970                 Return Me.columnProfilePic
2971             End Get
2972         End Property
2973
2974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2976          Global.System.ComponentModel.Browsable(false)>  _
2977         Public ReadOnly Property Count() As Integer
2978             Get
2979                 Return Me.Rows.Count
2980             End Get
2981         End Property
2982
2983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2985         Public Default ReadOnly Property Item(ByVal index As Integer) As User_DetailsRow
2986             Get
2987                 Return CType(Me.Rows(index),User_DetailsRow)
2988             End Get
2989         End Property
2990
2991         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2992         Public Event User_DetailsRowChanging As User_DetailsRowChangeEventHandler
2993
2994         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2995         Public Event User_DetailsRowChanged As User_DetailsRowChangeEventHandler
2996
2997         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2998         Public Event User_DetailsRowDeleting As User_DetailsRowChangeEventHandler
2999
3000         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3001         Public Event User_DetailsRowDeleted As User_DetailsRowChangeEventHandler
3002
3003         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3004          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3005         Public Overloads Sub AddUser_DetailsRow(ByVal row As User_DetailsRow)
3006             Me.Rows.Add(row)
3007         End Sub
3008
3009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3011         Public Overloads Function AddUser_DetailsRow(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Integer, ByVal CVC As Integer, ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte) As User_DetailsRow
3012             Dim rowUser_DetailsRow As User_DetailsRow = CType(Me.NewRow,User_DetailsRow)
3013             Dim columnValuesArray() As Object = New Object() {Nothing, FirstName, LastName, AddressLine1, Town, Postcode, CardNumber, CVC, IGN, Email, ProfilePic}
3014             rowUser_DetailsRow.ItemArray = columnValuesArray
3015             Me.Rows.Add(rowUser_DetailsRow)
3016             Return rowUser_DetailsRow
3017         End Function
3018
3019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3021         Public Function FindByUserDetailsID(ByVal UserDetailsID As Integer) As User_DetailsRow
3022             Return CType(Me.Rows.Find(New Object() {UserDetailsID}),User_DetailsRow)
3023         End Function
3024
3025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3027         Public Overrides Function Clone() As Global.System.Data.DataTable
3028             Dim cln As User_DetailsDataTable = CType(MyBase.Clone,User_DetailsDataTable)
3029             cln.InitVars
3030             Return cln
3031         End Function
3032
3033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3035         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3036             Return New User_DetailsDataTable()
3037         End Function
3038
3039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3041         Friend Sub InitVars()
3042             Me.columnUserDetailsID = MyBase.Columns("UserDetailsID")
3043             Me.columnFirstName = MyBase.Columns("FirstName")
3044             Me.columnLastName = MyBase.Columns("LastName")
3045             Me.columnAddressLine1 = MyBase.Columns("AddressLine1")
3046             Me.columnTown = MyBase.Columns("Town")
3047             Me.columnPostcode = MyBase.Columns("Postcode")
3048             Me.columnCardNumber = MyBase.Columns("CardNumber")
3049             Me.columnCVC = MyBase.Columns("CVC")
3050             Me.columnIGN = MyBase.Columns("IGN")
3051             Me.columnEmail = MyBase.Columns("Email")
3052             Me.columnProfilePic = MyBase.Columns("ProfilePic")
3053         End Sub
3054
3055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3057         Private Sub InitClass()
3058             Me.columnUserDetailsID = New Global.System.Data.DataColumn("UserDetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3059             MyBase.Columns.Add(Me.columnUserDetailsID)
3060             Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3061             MyBase.Columns.Add(Me.columnFirstName)
3062             Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3063             MyBase.Columns.Add(Me.columnLastName)
3064             Me.columnAddressLine1 = New Global.System.Data.DataColumn("AddressLine1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3065             MyBase.Columns.Add(Me.columnAddressLine1)
3066             Me.columnTown = New Global.System.Data.DataColumn("Town", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3067             MyBase.Columns.Add(Me.columnTown)
3068             Me.columnPostcode = New Global.System.Data.DataColumn("Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3069             MyBase.Columns.Add(Me.columnPostcode)
3070             Me.columnCardNumber = New Global.System.Data.DataColumn("CardNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3071             MyBase.Columns.Add(Me.columnCardNumber)
3072             Me.columnCVC = New Global.System.Data.DataColumn("CVC", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3073             MyBase.Columns.Add(Me.columnCVC)
3074             Me.columnIGN = New Global.System.Data.DataColumn("IGN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3075             MyBase.Columns.Add(Me.columnIGN)
3076             Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3077             MyBase.Columns.Add(Me.columnEmail)
3078             Me.columnProfilePic = New Global.System.Data.DataColumn("ProfilePic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
3079             MyBase.Columns.Add(Me.columnProfilePic)
3080             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserDetailsID}, true))
3081             Me.columnUserDetailsID.AutoIncrement = true
3082             Me.columnUserDetailsID.AutoIncrementSeed = -1
3083             Me.columnUserDetailsID.AutoIncrementStep = -1
3084             Me.columnUserDetailsID.AllowDBNull = false
3085             Me.columnUserDetailsID.Unique = true
3086             Me.columnFirstName.MaxLength = 536870910
3087             Me.columnLastName.MaxLength = 536870910
3088             Me.columnAddressLine1.MaxLength = 536870910
3089             Me.columnTown.MaxLength = 255
3090             Me.columnPostcode.MaxLength = 536870910
3091             Me.columnIGN.MaxLength = 536870910
3092             Me.columnEmail.MaxLength = 536870910
3093         End Sub
3094
3095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3097         Public Function NewUser_DetailsRow() As User_DetailsRow
3098             Return CType(Me.NewRow,User_DetailsRow)
3099         End Function
3100
3101         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3102          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3103         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3104             Return New User_DetailsRow(builder)
3105         End Function
3106
3107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3109         Protected Overrides Function GetRowType() As Global.System.Type
3110             Return GetType(User_DetailsRow)
3111         End Function
3112
3113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3115         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3116             MyBase.OnRowChanged(e)
3117             If (Not (Me.User_DetailsRowChangedEvent) Is Nothing) Then
3118                 RaiseEvent User_DetailsRowChanged(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3119             End If
3120         End Sub
3121
3122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3124         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3125             MyBase.OnRowChanging(e)
3126             If (Not (Me.User_DetailsRowChangingEvent) Is Nothing) Then
3127                 RaiseEvent User_DetailsRowChanging(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3128             End If
3129         End Sub
3130
3131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3133         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3134             MyBase.OnRowDeleted(e)
3135             If (Not (Me.User_DetailsRowDeletedEvent) Is Nothing) Then
3136                 RaiseEvent User_DetailsRowDeleted(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3137             End If
3138         End Sub
3139
3140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3142         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3143             MyBase.OnRowDeleting(e)
3144             If (Not (Me.User_DetailsRowDeletingEvent) Is Nothing) Then
3145                 RaiseEvent User_DetailsRowDeleting(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3146             End If
3147         End Sub
3148
3149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3151         Public Sub RemoveUser_DetailsRow(ByVal row As User_DetailsRow)
3152             Me.Rows.Remove(row)
3153         End Sub
3154
3155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3157         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3158             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3159             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3160             Dim ds As NEADataSet = New NEADataSet()
3161             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3162             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3163             any1.MinOccurs = New Decimal(0)
3164             any1.MaxOccurs = Decimal.MaxValue
3165             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3166             sequence.Items.Add(any1)
3167             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3168             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3169             any2.MinOccurs = New Decimal(1)
3170             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3171             sequence.Items.Add(any2)
3172             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3173             attribute1.Name = "namespace"
3174             attribute1.FixedValue = ds.Namespace
3175             type.Attributes.Add(attribute1)
3176             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3177             attribute2.Name = "tableTypeName"
3178             attribute2.FixedValue = "User_DetailsDataTable"
3179             type.Attributes.Add(attribute2)
3180             type.Particle = sequence
3181             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3182             If xs.Contains(dsSchema.TargetNamespace) Then
3183                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3184                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3185                 Try
3186                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3187                     dsSchema.Write(s1)
3188                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3189                     Do While schemas.MoveNext
3190                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3191                         s2.SetLength(0)
3192                         schema.Write(s2)
3193                         If (s1.Length = s2.Length) Then
3194                             s1.Position = 0
3195                             s2.Position = 0
3196
3197                             Do While ((s1.Position <> s1.Length)  _
3198                                         AndAlso (s1.ReadByte = s2.ReadByte))
3199
3200
3201                             Loop
3202                             If (s1.Position = s1.Length) Then
3203                                 Return type
3204                             End If
3205                         End If
3206
3207                     Loop
3208                 Finally
3209                     If (Not (s1) Is Nothing) Then
3210                         s1.Close
3211                     End If
3212                     If (Not (s2) Is Nothing) Then
3213                         s2.Close
3214                     End If
3215                 End Try
3216             End If
3217             xs.Add(dsSchema)
3218             Return type
3219         End Function
3220     End Class
3221
3222     '''<summary>
3223     '''Represents the strongly named DataTable class.
3224     '''</summary>
3225     <Global.System.Serializable(),  _
3226      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3227     Partial Public Class UsersDataTable
3228         Inherits Global.System.Data.TypedTableBase(Of UsersRow)
3229
3230         Private columnUserID As Global.System.Data.DataColumn
3231
3232         Private columnUser_DetailsID As Global.System.Data.DataColumn
3233
3234         Private columnUsername As Global.System.Data.DataColumn
3235
3236         Private columnPassword As Global.System.Data.DataColumn
3237
3238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3240         Public Sub New()
3241             MyBase.New
3242             Me.TableName = "Users"
3243             Me.BeginInit
3244             Me.InitClass
3245             Me.EndInit
3246         End Sub
3247
3248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3250         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3251             MyBase.New
3252             Me.TableName = table.TableName
3253             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3254                 Me.CaseSensitive = table.CaseSensitive
3255             End If
3256             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3257                 Me.Locale = table.Locale
3258             End If
3259             If (table.Namespace <> table.DataSet.Namespace) Then
3260                 Me.Namespace = table.Namespace
3261             End If
3262             Me.Prefix = table.Prefix
3263             Me.MinimumCapacity = table.MinimumCapacity
3264         End Sub
3265
3266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3268         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3269             MyBase.New(info, context)
3270             Me.InitVars
3271         End Sub
3272
3273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3275         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3276             Get
3277                 Return Me.columnUserID
3278             End Get
3279         End Property
3280
3281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3283         Public ReadOnly Property User_DetailsIDColumn() As Global.System.Data.DataColumn
3284             Get
3285                 Return Me.columnUser_DetailsID
3286             End Get
3287         End Property
3288
3289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3291         Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
3292             Get
3293                 Return Me.columnUsername
3294             End Get
3295         End Property
3296
3297         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3298          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3299         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
3300             Get
3301                 Return Me.columnPassword
3302             End Get
3303         End Property
3304
3305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3307          Global.System.ComponentModel.Browsable(false)>  _
3308         Public ReadOnly Property Count() As Integer
3309             Get
3310                 Return Me.Rows.Count
3311             End Get
3312         End Property
3313
3314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3316         Public Default ReadOnly Property Item(ByVal index As Integer) As UsersRow
3317             Get
3318                 Return CType(Me.Rows(index),UsersRow)
3319             End Get
3320         End Property
3321
3322         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3323         Public Event UsersRowChanging As UsersRowChangeEventHandler
3324
3325         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3326         Public Event UsersRowChanged As UsersRowChangeEventHandler
3327
3328         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3329         Public Event UsersRowDeleting As UsersRowChangeEventHandler
3330
3331         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3332         Public Event UsersRowDeleted As UsersRowChangeEventHandler
3333
3334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3336         Public Overloads Sub AddUsersRow(ByVal row As UsersRow)
3337             Me.Rows.Add(row)
3338         End Sub
3339
3340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3342         Public Overloads Function AddUsersRow(ByVal parentUser_DetailsRowByUser_DetailsUsers As User_DetailsRow, ByVal Username As String, ByVal Password As String) As UsersRow
3343             Dim rowUsersRow As UsersRow = CType(Me.NewRow,UsersRow)
3344             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Username, Password}
3345             If (Not (parentUser_DetailsRowByUser_DetailsUsers) Is Nothing) Then
3346                 columnValuesArray(1) = parentUser_DetailsRowByUser_DetailsUsers(0)
3347             End If
3348             rowUsersRow.ItemArray = columnValuesArray
3349             Me.Rows.Add(rowUsersRow)
3350             Return rowUsersRow
3351         End Function
3352
3353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3355         Public Function FindByUserID(ByVal UserID As Integer) As UsersRow
3356             Return CType(Me.Rows.Find(New Object() {UserID}),UsersRow)
3357         End Function
3358
3359         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3360          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3361         Public Overrides Function Clone() As Global.System.Data.DataTable
3362             Dim cln As UsersDataTable = CType(MyBase.Clone,UsersDataTable)
3363             cln.InitVars
3364             Return cln
3365         End Function
3366
3367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3369         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3370             Return New UsersDataTable()
3371         End Function
3372
3373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3375         Friend Sub InitVars()
3376             Me.columnUserID = MyBase.Columns("UserID")
3377             Me.columnUser_DetailsID = MyBase.Columns("User_DetailsID")
3378             Me.columnUsername = MyBase.Columns("Username")
3379             Me.columnPassword = MyBase.Columns("Password")
3380         End Sub
3381
3382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3384         Private Sub InitClass()
3385             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3386             MyBase.Columns.Add(Me.columnUserID)
3387             Me.columnUser_DetailsID = New Global.System.Data.DataColumn("User_DetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3388             MyBase.Columns.Add(Me.columnUser_DetailsID)
3389             Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3390             MyBase.Columns.Add(Me.columnUsername)
3391             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3392             MyBase.Columns.Add(Me.columnPassword)
3393             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
3394             Me.columnUserID.AutoIncrement = true
3395             Me.columnUserID.AutoIncrementSeed = -1
3396             Me.columnUserID.AutoIncrementStep = -1
3397             Me.columnUserID.AllowDBNull = false
3398             Me.columnUserID.Unique = true
3399             Me.columnUsername.MaxLength = 536870910
3400             Me.columnPassword.MaxLength = 536870910
3401         End Sub
3402
3403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3405         Public Function NewUsersRow() As UsersRow
3406             Return CType(Me.NewRow,UsersRow)
3407         End Function
3408
3409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3411         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3412             Return New UsersRow(builder)
3413         End Function
3414
3415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3417         Protected Overrides Function GetRowType() As Global.System.Type
3418             Return GetType(UsersRow)
3419         End Function
3420
3421         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3422          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3423         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3424             MyBase.OnRowChanged(e)
3425             If (Not (Me.UsersRowChangedEvent) Is Nothing) Then
3426                 RaiseEvent UsersRowChanged(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3427             End If
3428         End Sub
3429
3430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3432         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3433             MyBase.OnRowChanging(e)
3434             If (Not (Me.UsersRowChangingEvent) Is Nothing) Then
3435                 RaiseEvent UsersRowChanging(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3436             End If
3437         End Sub
3438
3439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3441         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3442             MyBase.OnRowDeleted(e)
3443             If (Not (Me.UsersRowDeletedEvent) Is Nothing) Then
3444                 RaiseEvent UsersRowDeleted(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3445             End If
3446         End Sub
3447
3448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3450         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3451             MyBase.OnRowDeleting(e)
3452             If (Not (Me.UsersRowDeletingEvent) Is Nothing) Then
3453                 RaiseEvent UsersRowDeleting(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3454             End If
3455         End Sub
3456
3457         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3458          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3459         Public Sub RemoveUsersRow(ByVal row As UsersRow)
3460             Me.Rows.Remove(row)
3461         End Sub
3462
3463         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3464          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3465         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3466             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3467             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3468             Dim ds As NEADataSet = New NEADataSet()
3469             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3470             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3471             any1.MinOccurs = New Decimal(0)
3472             any1.MaxOccurs = Decimal.MaxValue
3473             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3474             sequence.Items.Add(any1)
3475             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3476             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3477             any2.MinOccurs = New Decimal(1)
3478             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3479             sequence.Items.Add(any2)
3480             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3481             attribute1.Name = "namespace"
3482             attribute1.FixedValue = ds.Namespace
3483             type.Attributes.Add(attribute1)
3484             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3485             attribute2.Name = "tableTypeName"
3486             attribute2.FixedValue = "UsersDataTable"
3487             type.Attributes.Add(attribute2)
3488             type.Particle = sequence
3489             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3490             If xs.Contains(dsSchema.TargetNamespace) Then
3491                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3492                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3493                 Try
3494                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3495                     dsSchema.Write(s1)
3496                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3497                     Do While schemas.MoveNext
3498                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3499                         s2.SetLength(0)
3500                         schema.Write(s2)
3501                         If (s1.Length = s2.Length) Then
3502                             s1.Position = 0
3503                             s2.Position = 0
3504
3505                             Do While ((s1.Position <> s1.Length)  _
3506                                         AndAlso (s1.ReadByte = s2.ReadByte))
3507
3508
3509                             Loop
3510                             If (s1.Position = s1.Length) Then
3511                                 Return type
3512                             End If
3513                         End If
3514
3515                     Loop
3516                 Finally
3517                     If (Not (s1) Is Nothing) Then
3518                         s1.Close
3519                     End If
3520                     If (Not (s2) Is Nothing) Then
3521                         s2.Close
3522                     End If
3523                 End Try
3524             End If
3525             xs.Add(dsSchema)
3526             Return type
3527         End Function
3528     End Class
3529
3530     '''<summary>
3531     '''Represents the strongly named DataTable class.
3532     '''</summary>
3533     <Global.System.Serializable(),  _
3534      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3535     Partial Public Class WishlistDataTable
3536         Inherits Global.System.Data.TypedTableBase(Of WishlistRow)
3537
3538         Private columnWishlistID As Global.System.Data.DataColumn
3539
3540         Private columnUserID As Global.System.Data.DataColumn
3541
3542         Private columnGameID As Global.System.Data.DataColumn
3543
3544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3546         Public Sub New()
3547             MyBase.New
3548             Me.TableName = "Wishlist"
3549             Me.BeginInit
3550             Me.InitClass
3551             Me.EndInit
3552         End Sub
3553
3554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3556         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3557             MyBase.New
3558             Me.TableName = table.TableName
3559             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3560                 Me.CaseSensitive = table.CaseSensitive
3561             End If
3562             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3563                 Me.Locale = table.Locale
3564             End If
3565             If (table.Namespace <> table.DataSet.Namespace) Then
3566                 Me.Namespace = table.Namespace
3567             End If
3568             Me.Prefix = table.Prefix
3569             Me.MinimumCapacity = table.MinimumCapacity
3570         End Sub
3571
3572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3574         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3575             MyBase.New(info, context)
3576             Me.InitVars
3577         End Sub
3578
3579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3581         Public ReadOnly Property WishlistIDColumn() As Global.System.Data.DataColumn
3582             Get
3583                 Return Me.columnWishlistID
3584             End Get
3585         End Property
3586
3587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3589         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3590             Get
3591                 Return Me.columnUserID
3592             End Get
3593         End Property
3594
3595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3597         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
3598             Get
3599                 Return Me.columnGameID
3600             End Get
3601         End Property
3602
3603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3605          Global.System.ComponentModel.Browsable(false)>  _
3606         Public ReadOnly Property Count() As Integer
3607             Get
3608                 Return Me.Rows.Count
3609             End Get
3610         End Property
3611
3612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3614         Public Default ReadOnly Property Item(ByVal index As Integer) As WishlistRow
3615             Get
3616                 Return CType(Me.Rows(index),WishlistRow)
3617             End Get
3618         End Property
3619
3620         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3621         Public Event WishlistRowChanging As WishlistRowChangeEventHandler
3622
3623         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3624         Public Event WishlistRowChanged As WishlistRowChangeEventHandler
3625
3626         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3627         Public Event WishlistRowDeleting As WishlistRowChangeEventHandler
3628
3629         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3630         Public Event WishlistRowDeleted As WishlistRowChangeEventHandler
3631
3632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3634         Public Overloads Sub AddWishlistRow(ByVal row As WishlistRow)
3635             Me.Rows.Add(row)
3636         End Sub
3637
3638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3640         Public Overloads Function AddWishlistRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesWishlist As GamesRow) As WishlistRow
3641             Dim rowWishlistRow As WishlistRow = CType(Me.NewRow,WishlistRow)
3642             Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
3643             If (Not (parentGamesRowByGamesWishlist) Is Nothing) Then
3644                 columnValuesArray(2) = parentGamesRowByGamesWishlist(0)
3645             End If
3646             rowWishlistRow.ItemArray = columnValuesArray
3647             Me.Rows.Add(rowWishlistRow)
3648             Return rowWishlistRow
3649         End Function
3650
3651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3653         Public Function FindByWishlistID(ByVal WishlistID As Integer) As WishlistRow
3654             Return CType(Me.Rows.Find(New Object() {WishlistID}),WishlistRow)
3655         End Function
3656
3657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3659         Public Overrides Function Clone() As Global.System.Data.DataTable
3660             Dim cln As WishlistDataTable = CType(MyBase.Clone,WishlistDataTable)
3661             cln.InitVars
3662             Return cln
3663         End Function
3664
3665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3667         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3668             Return New WishlistDataTable()
3669         End Function
3670
3671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3673         Friend Sub InitVars()
3674             Me.columnWishlistID = MyBase.Columns("WishlistID")
3675             Me.columnUserID = MyBase.Columns("UserID")
3676             Me.columnGameID = MyBase.Columns("GameID")
3677         End Sub
3678
3679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3681         Private Sub InitClass()
3682             Me.columnWishlistID = New Global.System.Data.DataColumn("WishlistID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3683             MyBase.Columns.Add(Me.columnWishlistID)
3684             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3685             MyBase.Columns.Add(Me.columnUserID)
3686             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3687             MyBase.Columns.Add(Me.columnGameID)
3688             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWishlistID}, true))
3689             Me.columnWishlistID.AutoIncrement = true
3690             Me.columnWishlistID.AutoIncrementSeed = -1
3691             Me.columnWishlistID.AutoIncrementStep = -1
3692             Me.columnWishlistID.AllowDBNull = false
3693             Me.columnWishlistID.Unique = true
3694         End Sub
3695
3696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3698         Public Function NewWishlistRow() As WishlistRow
3699             Return CType(Me.NewRow,WishlistRow)
3700         End Function
3701
3702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3704         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3705             Return New WishlistRow(builder)
3706         End Function
3707
3708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3710         Protected Overrides Function GetRowType() As Global.System.Type
3711             Return GetType(WishlistRow)
3712         End Function
3713
3714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3716         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3717             MyBase.OnRowChanged(e)
3718             If (Not (Me.WishlistRowChangedEvent) Is Nothing) Then
3719                 RaiseEvent WishlistRowChanged(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3720             End If
3721         End Sub
3722
3723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3725         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3726             MyBase.OnRowChanging(e)
3727             If (Not (Me.WishlistRowChangingEvent) Is Nothing) Then
3728                 RaiseEvent WishlistRowChanging(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3729             End If
3730         End Sub
3731
3732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3734         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3735             MyBase.OnRowDeleted(e)
3736             If (Not (Me.WishlistRowDeletedEvent) Is Nothing) Then
3737                 RaiseEvent WishlistRowDeleted(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3738             End If
3739         End Sub
3740
3741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3743         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3744             MyBase.OnRowDeleting(e)
3745             If (Not (Me.WishlistRowDeletingEvent) Is Nothing) Then
3746                 RaiseEvent WishlistRowDeleting(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3747             End If
3748         End Sub
3749
3750         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3751          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3752         Public Sub RemoveWishlistRow(ByVal row As WishlistRow)
3753             Me.Rows.Remove(row)
3754         End Sub
3755
3756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3758         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3759             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3760             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3761             Dim ds As NEADataSet = New NEADataSet()
3762             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3763             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3764             any1.MinOccurs = New Decimal(0)
3765             any1.MaxOccurs = Decimal.MaxValue
3766             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3767             sequence.Items.Add(any1)
3768             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3769             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3770             any2.MinOccurs = New Decimal(1)
3771             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3772             sequence.Items.Add(any2)
3773             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3774             attribute1.Name = "namespace"
3775             attribute1.FixedValue = ds.Namespace
3776             type.Attributes.Add(attribute1)
3777             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3778             attribute2.Name = "tableTypeName"
3779             attribute2.FixedValue = "WishlistDataTable"
3780             type.Attributes.Add(attribute2)
3781             type.Particle = sequence
3782             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3783             If xs.Contains(dsSchema.TargetNamespace) Then
3784                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3785                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3786                 Try
3787                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3788                     dsSchema.Write(s1)
3789                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3790                     Do While schemas.MoveNext
3791                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3792                         s2.SetLength(0)
3793                         schema.Write(s2)
3794                         If (s1.Length = s2.Length) Then
3795                             s1.Position = 0
3796                             s2.Position = 0
3797
3798                             Do While ((s1.Position <> s1.Length)  _
3799                                         AndAlso (s1.ReadByte = s2.ReadByte))
3800
3801
3802                             Loop
3803                             If (s1.Position = s1.Length) Then
3804                                 Return type
3805                             End If
3806                         End If
3807
3808                     Loop
3809                 Finally
3810                     If (Not (s1) Is Nothing) Then
3811                         s1.Close
3812                     End If
3813                     If (Not (s2) Is Nothing) Then
3814                         s2.Close
3815                     End If
3816                 End Try
3817             End If
3818             xs.Add(dsSchema)
3819             Return type
3820         End Function
3821     End Class
3822
3823     '''<summary>
3824     '''Represents strongly named DataRow class.
3825     '''</summary>
3826     Partial Public Class AchievementRow
3827         Inherits Global.System.Data.DataRow
3828
3829         Private tableAchievement As AchievementDataTable
3830
3831         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3832          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3833         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
3834             MyBase.New(rb)
3835             Me.tableAchievement = CType(Me.Table,AchievementDataTable)
3836         End Sub
3837
3838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3840         Public Property AchievementID() As Integer
3841             Get
3842                 Return CType(Me(Me.tableAchievement.AchievementIDColumn),Integer)
3843             End Get
3844             Set
3845                 Me(Me.tableAchievement.AchievementIDColumn) = value
3846             End Set
3847         End Property
3848
3849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3851         Public Property GameID() As Integer
3852             Get
3853                 Try
3854                     Return CType(Me(Me.tableAchievement.GameIDColumn),Integer)
3855                 Catch e As Global.System.InvalidCastException
3856                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Achievement' is DBNull.", e)
3857                 End Try
3858             End Get
3859             Set
3860                 Me(Me.tableAchievement.GameIDColumn) = value
3861             End Set
3862         End Property
3863
3864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3866         Public Property UserID() As Integer
3867             Get
3868                 Try
3869                     Return CType(Me(Me.tableAchievement.UserIDColumn),Integer)
3870                 Catch e As Global.System.InvalidCastException
3871                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Achievement' is DBNull.", e)
3872                 End Try
3873             End Get
3874             Set
3875                 Me(Me.tableAchievement.UserIDColumn) = value
3876             End Set
3877         End Property
3878
3879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3881         Public Property Achievment_1() As String
3882             Get
3883                 Try
3884                     Return CType(Me(Me.tableAchievement.Achievment_1Column),String)
3885                 Catch e As Global.System.InvalidCastException
3886                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 1' in table 'Achievement' is DBNull.", e)
3887                 End Try
3888             End Get
3889             Set
3890                 Me(Me.tableAchievement.Achievment_1Column) = value
3891             End Set
3892         End Property
3893
3894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3896         Public Property Achievment_2() As String
3897             Get
3898                 Try
3899                     Return CType(Me(Me.tableAchievement.Achievment_2Column),String)
3900                 Catch e As Global.System.InvalidCastException
3901                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 2' in table 'Achievement' is DBNull.", e)
3902                 End Try
3903             End Get
3904             Set
3905                 Me(Me.tableAchievement.Achievment_2Column) = value
3906             End Set
3907         End Property
3908
3909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3911         Public Property Achievment_3() As String
3912             Get
3913                 Try
3914                     Return CType(Me(Me.tableAchievement.Achievment_3Column),String)
3915                 Catch e As Global.System.InvalidCastException
3916                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 3' in table 'Achievement' is DBNull.", e)
3917                 End Try
3918             End Get
3919             Set
3920                 Me(Me.tableAchievement.Achievment_3Column) = value
3921             End Set
3922         End Property
3923
3924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3926         Public Property Achievment_4() As String
3927             Get
3928                 Try
3929                     Return CType(Me(Me.tableAchievement.Achievment_4Column),String)
3930                 Catch e As Global.System.InvalidCastException
3931                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 4' in table 'Achievement' is DBNull.", e)
3932                 End Try
3933             End Get
3934             Set
3935                 Me(Me.tableAchievement.Achievment_4Column) = value
3936             End Set
3937         End Property
3938
3939         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3940          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3941         Public Property Achievment_5() As String
3942             Get
3943                 Try
3944                     Return CType(Me(Me.tableAchievement.Achievment_5Column),String)
3945                 Catch e As Global.System.InvalidCastException
3946                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 5' in table 'Achievement' is DBNull.", e)
3947                 End Try
3948             End Get
3949             Set
3950                 Me(Me.tableAchievement.Achievment_5Column) = value
3951             End Set
3952         End Property
3953
3954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3956         Public Property GamesRow() As GamesRow
3957             Get
3958                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesAchievement")),GamesRow)
3959             End Get
3960             Set
3961                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesAchievement"))
3962             End Set
3963         End Property
3964
3965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3967         Public Function IsGameIDNull() As Boolean
3968             Return Me.IsNull(Me.tableAchievement.GameIDColumn)
3969         End Function
3970
3971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3973         Public Sub SetGameIDNull()
3974             Me(Me.tableAchievement.GameIDColumn) = Global.System.Convert.DBNull
3975         End Sub
3976
3977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3979         Public Function IsUserIDNull() As Boolean
3980             Return Me.IsNull(Me.tableAchievement.UserIDColumn)
3981         End Function
3982
3983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3985         Public Sub SetUserIDNull()
3986             Me(Me.tableAchievement.UserIDColumn) = Global.System.Convert.DBNull
3987         End Sub
3988
3989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3991         Public Function IsAchievment_1Null() As Boolean
3992             Return Me.IsNull(Me.tableAchievement.Achievment_1Column)
3993         End Function
3994
3995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3997         Public Sub SetAchievment_1Null()
3998             Me(Me.tableAchievement.Achievment_1Column) = Global.System.Convert.DBNull
3999         End Sub
4000
4001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4003         Public Function IsAchievment_2Null() As Boolean
4004             Return Me.IsNull(Me.tableAchievement.Achievment_2Column)
4005         End Function
4006
4007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4009         Public Sub SetAchievment_2Null()
4010             Me(Me.tableAchievement.Achievment_2Column) = Global.System.Convert.DBNull
4011         End Sub
4012
4013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4015         Public Function IsAchievment_3Null() As Boolean
4016             Return Me.IsNull(Me.tableAchievement.Achievment_3Column)
4017         End Function
4018
4019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4021         Public Sub SetAchievment_3Null()
4022             Me(Me.tableAchievement.Achievment_3Column) = Global.System.Convert.DBNull
4023         End Sub
4024
4025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4027         Public Function IsAchievment_4Null() As Boolean
4028             Return Me.IsNull(Me.tableAchievement.Achievment_4Column)
4029         End Function
4030
4031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4033         Public Sub SetAchievment_4Null()
4034             Me(Me.tableAchievement.Achievment_4Column) = Global.System.Convert.DBNull
4035         End Sub
4036
4037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4039         Public Function IsAchievment_5Null() As Boolean
4040             Return Me.IsNull(Me.tableAchievement.Achievment_5Column)
4041         End Function
4042
4043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4045         Public Sub SetAchievment_5Null()
4046             Me(Me.tableAchievement.Achievment_5Column) = Global.System.Convert.DBNull
4047         End Sub
4048     End Class
4049
4050     '''<summary>
4051     '''Represents strongly named DataRow class.
4052     '''</summary>
4053     Partial Public Class DOWRow
4054         Inherits Global.System.Data.DataRow
4055
4056         Private tableDOW As DOWDataTable
4057
4058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4060         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4061             MyBase.New(rb)
4062             Me.tableDOW = CType(Me.Table,DOWDataTable)
4063         End Sub
4064
4065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4067         Public Property DOWID() As Integer
4068             Get
4069                 Return CType(Me(Me.tableDOW.DOWIDColumn),Integer)
4070             End Get
4071             Set
4072                 Me(Me.tableDOW.DOWIDColumn) = value
4073             End Set
4074         End Property
4075
4076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4078         Public Property Start() As Date
4079             Get
4080                 Try
4081                     Return CType(Me(Me.tableDOW.StartColumn),Date)
4082                 Catch e As Global.System.InvalidCastException
4083                     Throw New Global.System.Data.StrongTypingException("The value for column 'Start' in table 'DOW' is DBNull.", e)
4084                 End Try
4085             End Get
4086             Set
4087                 Me(Me.tableDOW.StartColumn) = value
4088             End Set
4089         End Property
4090
4091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4093         Public Property _End() As Date
4094             Get
4095                 Try
4096                     Return CType(Me(Me.tableDOW.EndColumn),Date)
4097                 Catch e As Global.System.InvalidCastException
4098                     Throw New Global.System.Data.StrongTypingException("The value for column 'End' in table 'DOW' is DBNull.", e)
4099                 End Try
4100             End Get
4101             Set
4102                 Me(Me.tableDOW.EndColumn) = value
4103             End Set
4104         End Property
4105
4106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4108         Public Property GameID() As Integer
4109             Get
4110                 Try
4111                     Return CType(Me(Me.tableDOW.GameIDColumn),Integer)
4112                 Catch e As Global.System.InvalidCastException
4113                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'DOW' is DBNull.", e)
4114                 End Try
4115             End Get
4116             Set
4117                 Me(Me.tableDOW.GameIDColumn) = value
4118             End Set
4119         End Property
4120
4121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4123         Public Property GamesRow() As GamesRow
4124             Get
4125                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesDOW")),GamesRow)
4126             End Get
4127             Set
4128                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesDOW"))
4129             End Set
4130         End Property
4131
4132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4134         Public Function IsStartNull() As Boolean
4135             Return Me.IsNull(Me.tableDOW.StartColumn)
4136         End Function
4137
4138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4140         Public Sub SetStartNull()
4141             Me(Me.tableDOW.StartColumn) = Global.System.Convert.DBNull
4142         End Sub
4143
4144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4146         Public Function Is_EndNull() As Boolean
4147             Return Me.IsNull(Me.tableDOW.EndColumn)
4148         End Function
4149
4150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4152         Public Sub Set_EndNull()
4153             Me(Me.tableDOW.EndColumn) = Global.System.Convert.DBNull
4154         End Sub
4155
4156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4158         Public Function IsGameIDNull() As Boolean
4159             Return Me.IsNull(Me.tableDOW.GameIDColumn)
4160         End Function
4161
4162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4164         Public Sub SetGameIDNull()
4165             Me(Me.tableDOW.GameIDColumn) = Global.System.Convert.DBNull
4166         End Sub
4167     End Class
4168
4169     '''<summary>
4170     '''Represents strongly named DataRow class.
4171     '''</summary>
4172     Partial Public Class FriendsRow
4173         Inherits Global.System.Data.DataRow
4174
4175         Private tableFriends As FriendsDataTable
4176
4177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4179         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4180             MyBase.New(rb)
4181             Me.tableFriends = CType(Me.Table,FriendsDataTable)
4182         End Sub
4183
4184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4186         Public Property ID() As Integer
4187             Get
4188                 Return CType(Me(Me.tableFriends.IDColumn),Integer)
4189             End Get
4190             Set
4191                 Me(Me.tableFriends.IDColumn) = value
4192             End Set
4193         End Property
4194
4195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4197         Public Property FriendID() As Integer
4198             Get
4199                 Try
4200                     Return CType(Me(Me.tableFriends.FriendIDColumn),Integer)
4201                 Catch e As Global.System.InvalidCastException
4202                     Throw New Global.System.Data.StrongTypingException("The value for column 'FriendID' in table 'Friends' is DBNull.", e)
4203                 End Try
4204             End Get
4205             Set
4206                 Me(Me.tableFriends.FriendIDColumn) = value
4207             End Set
4208         End Property
4209
4210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4212         Public Property UserID() As Integer
4213             Get
4214                 Try
4215                     Return CType(Me(Me.tableFriends.UserIDColumn),Integer)
4216                 Catch e As Global.System.InvalidCastException
4217                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Friends' is DBNull.", e)
4218                 End Try
4219             End Get
4220             Set
4221                 Me(Me.tableFriends.UserIDColumn) = value
4222             End Set
4223         End Property
4224
4225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4227         Public Function IsFriendIDNull() As Boolean
4228             Return Me.IsNull(Me.tableFriends.FriendIDColumn)
4229         End Function
4230
4231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4233         Public Sub SetFriendIDNull()
4234             Me(Me.tableFriends.FriendIDColumn) = Global.System.Convert.DBNull
4235         End Sub
4236
4237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4239         Public Function IsUserIDNull() As Boolean
4240             Return Me.IsNull(Me.tableFriends.UserIDColumn)
4241         End Function
4242
4243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4245         Public Sub SetUserIDNull()
4246             Me(Me.tableFriends.UserIDColumn) = Global.System.Convert.DBNull
4247         End Sub
4248     End Class
4249
4250     '''<summary>
4251     '''Represents strongly named DataRow class.
4252     '''</summary>
4253     Partial Public Class GamesRow
4254         Inherits Global.System.Data.DataRow
4255
4256         Private tableGames As GamesDataTable
4257
4258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4260         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4261             MyBase.New(rb)
4262             Me.tableGames = CType(Me.Table,GamesDataTable)
4263         End Sub
4264
4265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4267         Public Property GameID() As Integer
4268             Get
4269                 Return CType(Me(Me.tableGames.GameIDColumn),Integer)
4270             End Get
4271             Set
4272                 Me(Me.tableGames.GameIDColumn) = value
4273             End Set
4274         End Property
4275
4276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4278         Public Property Name() As String
4279             Get
4280                 Try
4281                     Return CType(Me(Me.tableGames.NameColumn),String)
4282                 Catch e As Global.System.InvalidCastException
4283                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Games' is DBNull.", e)
4284                 End Try
4285             End Get
4286             Set
4287                 Me(Me.tableGames.NameColumn) = value
4288             End Set
4289         End Property
4290
4291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4293         Public Property Price() As Decimal
4294             Get
4295                 Try
4296                     Return CType(Me(Me.tableGames.PriceColumn),Decimal)
4297                 Catch e As Global.System.InvalidCastException
4298                     Throw New Global.System.Data.StrongTypingException("The value for column 'Price' in table 'Games' is DBNull.", e)
4299                 End Try
4300             End Get
4301             Set
4302                 Me(Me.tableGames.PriceColumn) = value
4303             End Set
4304         End Property
4305
4306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4308         Public Property Rating() As Integer
4309             Get
4310                 Try
4311                     Return CType(Me(Me.tableGames.RatingColumn),Integer)
4312                 Catch e As Global.System.InvalidCastException
4313                     Throw New Global.System.Data.StrongTypingException("The value for column 'Rating' in table 'Games' is DBNull.", e)
4314                 End Try
4315             End Get
4316             Set
4317                 Me(Me.tableGames.RatingColumn) = value
4318             End Set
4319         End Property
4320
4321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4323         Public Property Certificate() As Integer
4324             Get
4325                 Try
4326                     Return CType(Me(Me.tableGames.CertificateColumn),Integer)
4327                 Catch e As Global.System.InvalidCastException
4328                     Throw New Global.System.Data.StrongTypingException("The value for column 'Certificate' in table 'Games' is DBNull.", e)
4329                 End Try
4330             End Get
4331             Set
4332                 Me(Me.tableGames.CertificateColumn) = value
4333             End Set
4334         End Property
4335
4336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4338         Public Property Dev() As String
4339             Get
4340                 Try
4341                     Return CType(Me(Me.tableGames.DevColumn),String)
4342                 Catch e As Global.System.InvalidCastException
4343                     Throw New Global.System.Data.StrongTypingException("The value for column 'Dev' in table 'Games' is DBNull.", e)
4344                 End Try
4345             End Get
4346             Set
4347                 Me(Me.tableGames.DevColumn) = value
4348             End Set
4349         End Property
4350
4351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4353         Public Property Publisher() As String
4354             Get
4355                 Try
4356                     Return CType(Me(Me.tableGames.PublisherColumn),String)
4357                 Catch e As Global.System.InvalidCastException
4358                     Throw New Global.System.Data.StrongTypingException("The value for column 'Publisher' in table 'Games' is DBNull.", e)
4359                 End Try
4360             End Get
4361             Set
4362                 Me(Me.tableGames.PublisherColumn) = value
4363             End Set
4364         End Property
4365
4366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4368         Public Property Tags() As String
4369             Get
4370                 Try
4371                     Return CType(Me(Me.tableGames.TagsColumn),String)
4372                 Catch e As Global.System.InvalidCastException
4373                     Throw New Global.System.Data.StrongTypingException("The value for column 'Tags' in table 'Games' is DBNull.", e)
4374                 End Try
4375             End Get
4376             Set
4377                 Me(Me.tableGames.TagsColumn) = value
4378             End Set
4379         End Property
4380
4381         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4382          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4383         Public Property Theme_Colour() As Integer
4384             Get
4385                 Try
4386                     Return CType(Me(Me.tableGames.Theme_ColourColumn),Integer)
4387                 Catch e As Global.System.InvalidCastException
4388                     Throw New Global.System.Data.StrongTypingException("The value for column 'Theme Colour' in table 'Games' is DBNull.", e)
4389                 End Try
4390             End Get
4391             Set
4392                 Me(Me.tableGames.Theme_ColourColumn) = value
4393             End Set
4394         End Property
4395
4396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4398         Public Property Icon() As Byte()
4399             Get
4400                 Try
4401                     Return CType(Me(Me.tableGames.IconColumn),Byte())
4402                 Catch e As Global.System.InvalidCastException
4403                     Throw New Global.System.Data.StrongTypingException("The value for column 'Icon' in table 'Games' is DBNull.", e)
4404                 End Try
4405             End Get
4406             Set
4407                 Me(Me.tableGames.IconColumn) = value
4408             End Set
4409         End Property
4410
4411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4413         Public Function IsNameNull() As Boolean
4414             Return Me.IsNull(Me.tableGames.NameColumn)
4415         End Function
4416
4417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4419         Public Sub SetNameNull()
4420             Me(Me.tableGames.NameColumn) = Global.System.Convert.DBNull
4421         End Sub
4422
4423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4425         Public Function IsPriceNull() As Boolean
4426             Return Me.IsNull(Me.tableGames.PriceColumn)
4427         End Function
4428
4429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4431         Public Sub SetPriceNull()
4432             Me(Me.tableGames.PriceColumn) = Global.System.Convert.DBNull
4433         End Sub
4434
4435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4437         Public Function IsRatingNull() As Boolean
4438             Return Me.IsNull(Me.tableGames.RatingColumn)
4439         End Function
4440
4441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4443         Public Sub SetRatingNull()
4444             Me(Me.tableGames.RatingColumn) = Global.System.Convert.DBNull
4445         End Sub
4446
4447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4449         Public Function IsCertificateNull() As Boolean
4450             Return Me.IsNull(Me.tableGames.CertificateColumn)
4451         End Function
4452
4453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4455         Public Sub SetCertificateNull()
4456             Me(Me.tableGames.CertificateColumn) = Global.System.Convert.DBNull
4457         End Sub
4458
4459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4461         Public Function IsDevNull() As Boolean
4462             Return Me.IsNull(Me.tableGames.DevColumn)
4463         End Function
4464
4465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4467         Public Sub SetDevNull()
4468             Me(Me.tableGames.DevColumn) = Global.System.Convert.DBNull
4469         End Sub
4470
4471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4473         Public Function IsPublisherNull() As Boolean
4474             Return Me.IsNull(Me.tableGames.PublisherColumn)
4475         End Function
4476
4477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4479         Public Sub SetPublisherNull()
4480             Me(Me.tableGames.PublisherColumn) = Global.System.Convert.DBNull
4481         End Sub
4482
4483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4485         Public Function IsTagsNull() As Boolean
4486             Return Me.IsNull(Me.tableGames.TagsColumn)
4487         End Function
4488
4489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4491         Public Sub SetTagsNull()
4492             Me(Me.tableGames.TagsColumn) = Global.System.Convert.DBNull
4493         End Sub
4494
4495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4497         Public Function IsTheme_ColourNull() As Boolean
4498             Return Me.IsNull(Me.tableGames.Theme_ColourColumn)
4499         End Function
4500
4501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4503         Public Sub SetTheme_ColourNull()
4504             Me(Me.tableGames.Theme_ColourColumn) = Global.System.Convert.DBNull
4505         End Sub
4506
4507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4509         Public Function IsIconNull() As Boolean
4510             Return Me.IsNull(Me.tableGames.IconColumn)
4511         End Function
4512
4513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4515         Public Sub SetIconNull()
4516             Me(Me.tableGames.IconColumn) = Global.System.Convert.DBNull
4517         End Sub
4518
4519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4521         Public Function GetAchievementRows() As AchievementRow()
4522             If (Me.Table.ChildRelations("GamesAchievement") Is Nothing) Then
4523                 Return New AchievementRow(-1) {}
4524             Else
4525                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesAchievement")),AchievementRow())
4526             End If
4527         End Function
4528
4529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4531         Public Function GetDOWRows() As DOWRow()
4532             If (Me.Table.ChildRelations("GamesDOW") Is Nothing) Then
4533                 Return New DOWRow(-1) {}
4534             Else
4535                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesDOW")),DOWRow())
4536             End If
4537         End Function
4538
4539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4541         Public Function GetPurchasedRows() As PurchasedRow()
4542             If (Me.Table.ChildRelations("GamesPurchased") Is Nothing) Then
4543                 Return New PurchasedRow(-1) {}
4544             Else
4545                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesPurchased")),PurchasedRow())
4546             End If
4547         End Function
4548
4549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4551         Public Function GetReviewsRows() As ReviewsRow()
4552             If (Me.Table.ChildRelations("GamesReviews") Is Nothing) Then
4553                 Return New ReviewsRow(-1) {}
4554             Else
4555                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesReviews")),ReviewsRow())
4556             End If
4557         End Function
4558
4559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4561         Public Function GetWishlistRows() As WishlistRow()
4562             If (Me.Table.ChildRelations("GamesWishlist") Is Nothing) Then
4563                 Return New WishlistRow(-1) {}
4564             Else
4565                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesWishlist")),WishlistRow())
4566             End If
4567         End Function
4568     End Class
4569
4570     '''<summary>
4571     '''Represents strongly named DataRow class.
4572     '''</summary>
4573     Partial Public Class PurchasedRow
4574         Inherits Global.System.Data.DataRow
4575
4576         Private tablePurchased As PurchasedDataTable
4577
4578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4580         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4581             MyBase.New(rb)
4582             Me.tablePurchased = CType(Me.Table,PurchasedDataTable)
4583         End Sub
4584
4585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4587         Public Property PurchaseID() As Integer
4588             Get
4589                 Return CType(Me(Me.tablePurchased.PurchaseIDColumn),Integer)
4590             End Get
4591             Set
4592                 Me(Me.tablePurchased.PurchaseIDColumn) = value
4593             End Set
4594         End Property
4595
4596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4598         Public Property UserID() As Integer
4599             Get
4600                 Try
4601                     Return CType(Me(Me.tablePurchased.UserIDColumn),Integer)
4602                 Catch e As Global.System.InvalidCastException
4603                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Purchased' is DBNull.", e)
4604                 End Try
4605             End Get
4606             Set
4607                 Me(Me.tablePurchased.UserIDColumn) = value
4608             End Set
4609         End Property
4610
4611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4613         Public Property GameID() As Integer
4614             Get
4615                 Try
4616                     Return CType(Me(Me.tablePurchased.GameIDColumn),Integer)
4617                 Catch e As Global.System.InvalidCastException
4618                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Purchased' is DBNull.", e)
4619                 End Try
4620             End Get
4621             Set
4622                 Me(Me.tablePurchased.GameIDColumn) = value
4623             End Set
4624         End Property
4625
4626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4628         Public Property GamesRow() As GamesRow
4629             Get
4630                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesPurchased")),GamesRow)
4631             End Get
4632             Set
4633                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesPurchased"))
4634             End Set
4635         End Property
4636
4637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4639         Public Function IsUserIDNull() As Boolean
4640             Return Me.IsNull(Me.tablePurchased.UserIDColumn)
4641         End Function
4642
4643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4645         Public Sub SetUserIDNull()
4646             Me(Me.tablePurchased.UserIDColumn) = Global.System.Convert.DBNull
4647         End Sub
4648
4649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4651         Public Function IsGameIDNull() As Boolean
4652             Return Me.IsNull(Me.tablePurchased.GameIDColumn)
4653         End Function
4654
4655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4657         Public Sub SetGameIDNull()
4658             Me(Me.tablePurchased.GameIDColumn) = Global.System.Convert.DBNull
4659         End Sub
4660     End Class
4661
4662     '''<summary>
4663     '''Represents strongly named DataRow class.
4664     '''</summary>
4665     Partial Public Class ReviewsRow
4666         Inherits Global.System.Data.DataRow
4667
4668         Private tableReviews As ReviewsDataTable
4669
4670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4672         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4673             MyBase.New(rb)
4674             Me.tableReviews = CType(Me.Table,ReviewsDataTable)
4675         End Sub
4676
4677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4679         Public Property ReviewID() As Integer
4680             Get
4681                 Return CType(Me(Me.tableReviews.ReviewIDColumn),Integer)
4682             End Get
4683             Set
4684                 Me(Me.tableReviews.ReviewIDColumn) = value
4685             End Set
4686         End Property
4687
4688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4690         Public Property GameID() As Integer
4691             Get
4692                 Try
4693                     Return CType(Me(Me.tableReviews.GameIDColumn),Integer)
4694                 Catch e As Global.System.InvalidCastException
4695                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Reviews' is DBNull.", e)
4696                 End Try
4697             End Get
4698             Set
4699                 Me(Me.tableReviews.GameIDColumn) = value
4700             End Set
4701         End Property
4702
4703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4705         Public Property Review() As String
4706             Get
4707                 Try
4708                     Return CType(Me(Me.tableReviews.ReviewColumn),String)
4709                 Catch e As Global.System.InvalidCastException
4710                     Throw New Global.System.Data.StrongTypingException("The value for column 'Review' in table 'Reviews' is DBNull.", e)
4711                 End Try
4712             End Get
4713             Set
4714                 Me(Me.tableReviews.ReviewColumn) = value
4715             End Set
4716         End Property
4717
4718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4720         Public Property GamesRow() As GamesRow
4721             Get
4722                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesReviews")),GamesRow)
4723             End Get
4724             Set
4725                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesReviews"))
4726             End Set
4727         End Property
4728
4729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4731         Public Function IsGameIDNull() As Boolean
4732             Return Me.IsNull(Me.tableReviews.GameIDColumn)
4733         End Function
4734
4735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4737         Public Sub SetGameIDNull()
4738             Me(Me.tableReviews.GameIDColumn) = Global.System.Convert.DBNull
4739         End Sub
4740
4741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4743         Public Function IsReviewNull() As Boolean
4744             Return Me.IsNull(Me.tableReviews.ReviewColumn)
4745         End Function
4746
4747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4749         Public Sub SetReviewNull()
4750             Me(Me.tableReviews.ReviewColumn) = Global.System.Convert.DBNull
4751         End Sub
4752     End Class
4753
4754     '''<summary>
4755     '''Represents strongly named DataRow class.
4756     '''</summary>
4757     Partial Public Class TagsRow
4758         Inherits Global.System.Data.DataRow
4759
4760         Private tableTags As TagsDataTable
4761
4762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4764         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4765             MyBase.New(rb)
4766             Me.tableTags = CType(Me.Table,TagsDataTable)
4767         End Sub
4768
4769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4771         Public Property ID() As Integer
4772             Get
4773                 Return CType(Me(Me.tableTags.IDColumn),Integer)
4774             End Get
4775             Set
4776                 Me(Me.tableTags.IDColumn) = value
4777             End Set
4778         End Property
4779     End Class
4780
4781     '''<summary>
4782     '''Represents strongly named DataRow class.
4783     '''</summary>
4784     Partial Public Class User_DetailsRow
4785         Inherits Global.System.Data.DataRow
4786
4787         Private tableUser_Details As User_DetailsDataTable
4788
4789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4791         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4792             MyBase.New(rb)
4793             Me.tableUser_Details = CType(Me.Table,User_DetailsDataTable)
4794         End Sub
4795
4796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4798         Public Property UserDetailsID() As Integer
4799             Get
4800                 Return CType(Me(Me.tableUser_Details.UserDetailsIDColumn),Integer)
4801             End Get
4802             Set
4803                 Me(Me.tableUser_Details.UserDetailsIDColumn) = value
4804             End Set
4805         End Property
4806
4807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4809         Public Property FirstName() As String
4810             Get
4811                 Try
4812                     Return CType(Me(Me.tableUser_Details.FirstNameColumn),String)
4813                 Catch e As Global.System.InvalidCastException
4814                     Throw New Global.System.Data.StrongTypingException("The value for column 'FirstName' in table 'User_Details' is DBNull.", e)
4815                 End Try
4816             End Get
4817             Set
4818                 Me(Me.tableUser_Details.FirstNameColumn) = value
4819             End Set
4820         End Property
4821
4822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4824         Public Property LastName() As String
4825             Get
4826                 Try
4827                     Return CType(Me(Me.tableUser_Details.LastNameColumn),String)
4828                 Catch e As Global.System.InvalidCastException
4829                     Throw New Global.System.Data.StrongTypingException("The value for column 'LastName' in table 'User_Details' is DBNull.", e)
4830                 End Try
4831             End Get
4832             Set
4833                 Me(Me.tableUser_Details.LastNameColumn) = value
4834             End Set
4835         End Property
4836
4837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4839         Public Property AddressLine1() As String
4840             Get
4841                 Try
4842                     Return CType(Me(Me.tableUser_Details.AddressLine1Column),String)
4843                 Catch e As Global.System.InvalidCastException
4844                     Throw New Global.System.Data.StrongTypingException("The value for column 'AddressLine1' in table 'User_Details' is DBNull.", e)
4845                 End Try
4846             End Get
4847             Set
4848                 Me(Me.tableUser_Details.AddressLine1Column) = value
4849             End Set
4850         End Property
4851
4852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4854         Public Property Town() As String
4855             Get
4856                 Try
4857                     Return CType(Me(Me.tableUser_Details.TownColumn),String)
4858                 Catch e As Global.System.InvalidCastException
4859                     Throw New Global.System.Data.StrongTypingException("The value for column 'Town' in table 'User_Details' is DBNull.", e)
4860                 End Try
4861             End Get
4862             Set
4863                 Me(Me.tableUser_Details.TownColumn) = value
4864             End Set
4865         End Property
4866
4867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4869         Public Property Postcode() As String
4870             Get
4871                 Try
4872                     Return CType(Me(Me.tableUser_Details.PostcodeColumn),String)
4873                 Catch e As Global.System.InvalidCastException
4874                     Throw New Global.System.Data.StrongTypingException("The value for column 'Postcode' in table 'User_Details' is DBNull.", e)
4875                 End Try
4876             End Get
4877             Set
4878                 Me(Me.tableUser_Details.PostcodeColumn) = value
4879             End Set
4880         End Property
4881
4882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4884         Public Property CardNumber() As Integer
4885             Get
4886                 Try
4887                     Return CType(Me(Me.tableUser_Details.CardNumberColumn),Integer)
4888                 Catch e As Global.System.InvalidCastException
4889                     Throw New Global.System.Data.StrongTypingException("The value for column 'CardNumber' in table 'User_Details' is DBNull.", e)
4890                 End Try
4891             End Get
4892             Set
4893                 Me(Me.tableUser_Details.CardNumberColumn) = value
4894             End Set
4895         End Property
4896
4897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4899         Public Property CVC() As Integer
4900             Get
4901                 Try
4902                     Return CType(Me(Me.tableUser_Details.CVCColumn),Integer)
4903                 Catch e As Global.System.InvalidCastException
4904                     Throw New Global.System.Data.StrongTypingException("The value for column 'CVC' in table 'User_Details' is DBNull.", e)
4905                 End Try
4906             End Get
4907             Set
4908                 Me(Me.tableUser_Details.CVCColumn) = value
4909             End Set
4910         End Property
4911
4912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4914         Public Property IGN() As String
4915             Get
4916                 Try
4917                     Return CType(Me(Me.tableUser_Details.IGNColumn),String)
4918                 Catch e As Global.System.InvalidCastException
4919                     Throw New Global.System.Data.StrongTypingException("The value for column 'IGN' in table 'User_Details' is DBNull.", e)
4920                 End Try
4921             End Get
4922             Set
4923                 Me(Me.tableUser_Details.IGNColumn) = value
4924             End Set
4925         End Property
4926
4927         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4928          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4929         Public Property Email() As String
4930             Get
4931                 Try
4932                     Return CType(Me(Me.tableUser_Details.EmailColumn),String)
4933                 Catch e As Global.System.InvalidCastException
4934                     Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'User_Details' is DBNull.", e)
4935                 End Try
4936             End Get
4937             Set
4938                 Me(Me.tableUser_Details.EmailColumn) = value
4939             End Set
4940         End Property
4941
4942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4944         Public Property ProfilePic() As Byte()
4945             Get
4946                 Try
4947                     Return CType(Me(Me.tableUser_Details.ProfilePicColumn),Byte())
4948                 Catch e As Global.System.InvalidCastException
4949                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProfilePic' in table 'User_Details' is DBNull.", e)
4950                 End Try
4951             End Get
4952             Set
4953                 Me(Me.tableUser_Details.ProfilePicColumn) = value
4954             End Set
4955         End Property
4956
4957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4959         Public Function IsFirstNameNull() As Boolean
4960             Return Me.IsNull(Me.tableUser_Details.FirstNameColumn)
4961         End Function
4962
4963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4965         Public Sub SetFirstNameNull()
4966             Me(Me.tableUser_Details.FirstNameColumn) = Global.System.Convert.DBNull
4967         End Sub
4968
4969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4971         Public Function IsLastNameNull() As Boolean
4972             Return Me.IsNull(Me.tableUser_Details.LastNameColumn)
4973         End Function
4974
4975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4977         Public Sub SetLastNameNull()
4978             Me(Me.tableUser_Details.LastNameColumn) = Global.System.Convert.DBNull
4979         End Sub
4980
4981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4983         Public Function IsAddressLine1Null() As Boolean
4984             Return Me.IsNull(Me.tableUser_Details.AddressLine1Column)
4985         End Function
4986
4987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4989         Public Sub SetAddressLine1Null()
4990             Me(Me.tableUser_Details.AddressLine1Column) = Global.System.Convert.DBNull
4991         End Sub
4992
4993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4995         Public Function IsTownNull() As Boolean
4996             Return Me.IsNull(Me.tableUser_Details.TownColumn)
4997         End Function
4998
4999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5001         Public Sub SetTownNull()
5002             Me(Me.tableUser_Details.TownColumn) = Global.System.Convert.DBNull
5003         End Sub
5004
5005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5007         Public Function IsPostcodeNull() As Boolean
5008             Return Me.IsNull(Me.tableUser_Details.PostcodeColumn)
5009         End Function
5010
5011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5013         Public Sub SetPostcodeNull()
5014             Me(Me.tableUser_Details.PostcodeColumn) = Global.System.Convert.DBNull
5015         End Sub
5016
5017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5019         Public Function IsCardNumberNull() As Boolean
5020             Return Me.IsNull(Me.tableUser_Details.CardNumberColumn)
5021         End Function
5022
5023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5025         Public Sub SetCardNumberNull()
5026             Me(Me.tableUser_Details.CardNumberColumn) = Global.System.Convert.DBNull
5027         End Sub
5028
5029         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5030          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5031         Public Function IsCVCNull() As Boolean
5032             Return Me.IsNull(Me.tableUser_Details.CVCColumn)
5033         End Function
5034
5035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5037         Public Sub SetCVCNull()
5038             Me(Me.tableUser_Details.CVCColumn) = Global.System.Convert.DBNull
5039         End Sub
5040
5041         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5042          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5043         Public Function IsIGNNull() As Boolean
5044             Return Me.IsNull(Me.tableUser_Details.IGNColumn)
5045         End Function
5046
5047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5049         Public Sub SetIGNNull()
5050             Me(Me.tableUser_Details.IGNColumn) = Global.System.Convert.DBNull
5051         End Sub
5052
5053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5055         Public Function IsEmailNull() As Boolean
5056             Return Me.IsNull(Me.tableUser_Details.EmailColumn)
5057         End Function
5058
5059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5061         Public Sub SetEmailNull()
5062             Me(Me.tableUser_Details.EmailColumn) = Global.System.Convert.DBNull
5063         End Sub
5064
5065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5067         Public Function IsProfilePicNull() As Boolean
5068             Return Me.IsNull(Me.tableUser_Details.ProfilePicColumn)
5069         End Function
5070
5071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5073         Public Sub SetProfilePicNull()
5074             Me(Me.tableUser_Details.ProfilePicColumn) = Global.System.Convert.DBNull
5075         End Sub
5076
5077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5079         Public Function GetUsersRows() As UsersRow()
5080             If (Me.Table.ChildRelations("User_DetailsUsers") Is Nothing) Then
5081                 Return New UsersRow(-1) {}
5082             Else
5083                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("User_DetailsUsers")),UsersRow())
5084             End If
5085         End Function
5086     End Class
5087
5088     '''<summary>
5089     '''Represents strongly named DataRow class.
5090     '''</summary>
5091     Partial Public Class UsersRow
5092         Inherits Global.System.Data.DataRow
5093
5094         Private tableUsers As UsersDataTable
5095
5096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5098         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5099             MyBase.New(rb)
5100             Me.tableUsers = CType(Me.Table,UsersDataTable)
5101         End Sub
5102
5103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5105         Public Property UserID() As Integer
5106             Get
5107                 Return CType(Me(Me.tableUsers.UserIDColumn),Integer)
5108             End Get
5109             Set
5110                 Me(Me.tableUsers.UserIDColumn) = value
5111             End Set
5112         End Property
5113
5114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5116         Public Property User_DetailsID() As Integer
5117             Get
5118                 Try
5119                     Return CType(Me(Me.tableUsers.User_DetailsIDColumn),Integer)
5120                 Catch e As Global.System.InvalidCastException
5121                     Throw New Global.System.Data.StrongTypingException("The value for column 'User_DetailsID' in table 'Users' is DBNull.", e)
5122                 End Try
5123             End Get
5124             Set
5125                 Me(Me.tableUsers.User_DetailsIDColumn) = value
5126             End Set
5127         End Property
5128
5129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5131         Public Property Username() As String
5132             Get
5133                 Try
5134                     Return CType(Me(Me.tableUsers.UsernameColumn),String)
5135                 Catch e As Global.System.InvalidCastException
5136                     Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e)
5137                 End Try
5138             End Get
5139             Set
5140                 Me(Me.tableUsers.UsernameColumn) = value
5141             End Set
5142         End Property
5143
5144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5146         Public Property Password() As String
5147             Get
5148                 Try
5149                     Return CType(Me(Me.tableUsers.PasswordColumn),String)
5150                 Catch e As Global.System.InvalidCastException
5151                     Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e)
5152                 End Try
5153             End Get
5154             Set
5155                 Me(Me.tableUsers.PasswordColumn) = value
5156             End Set
5157         End Property
5158
5159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5161         Public Property User_DetailsRow() As User_DetailsRow
5162             Get
5163                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("User_DetailsUsers")),User_DetailsRow)
5164             End Get
5165             Set
5166                 Me.SetParentRow(value, Me.Table.ParentRelations("User_DetailsUsers"))
5167             End Set
5168         End Property
5169
5170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5172         Public Function IsUser_DetailsIDNull() As Boolean
5173             Return Me.IsNull(Me.tableUsers.User_DetailsIDColumn)
5174         End Function
5175
5176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5178         Public Sub SetUser_DetailsIDNull()
5179             Me(Me.tableUsers.User_DetailsIDColumn) = Global.System.Convert.DBNull
5180         End Sub
5181
5182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5184         Public Function IsUsernameNull() As Boolean
5185             Return Me.IsNull(Me.tableUsers.UsernameColumn)
5186         End Function
5187
5188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5190         Public Sub SetUsernameNull()
5191             Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull
5192         End Sub
5193
5194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5196         Public Function IsPasswordNull() As Boolean
5197             Return Me.IsNull(Me.tableUsers.PasswordColumn)
5198         End Function
5199
5200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5202         Public Sub SetPasswordNull()
5203             Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull
5204         End Sub
5205     End Class
5206
5207     '''<summary>
5208     '''Represents strongly named DataRow class.
5209     '''</summary>
5210     Partial Public Class WishlistRow
5211         Inherits Global.System.Data.DataRow
5212
5213         Private tableWishlist As WishlistDataTable
5214
5215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5217         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5218             MyBase.New(rb)
5219             Me.tableWishlist = CType(Me.Table,WishlistDataTable)
5220         End Sub
5221
5222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5224         Public Property WishlistID() As Integer
5225             Get
5226                 Return CType(Me(Me.tableWishlist.WishlistIDColumn),Integer)
5227             End Get
5228             Set
5229                 Me(Me.tableWishlist.WishlistIDColumn) = value
5230             End Set
5231         End Property
5232
5233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5235         Public Property UserID() As Integer
5236             Get
5237                 Try
5238                     Return CType(Me(Me.tableWishlist.UserIDColumn),Integer)
5239                 Catch e As Global.System.InvalidCastException
5240                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Wishlist' is DBNull.", e)
5241                 End Try
5242             End Get
5243             Set
5244                 Me(Me.tableWishlist.UserIDColumn) = value
5245             End Set
5246         End Property
5247
5248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5250         Public Property GameID() As Integer
5251             Get
5252                 Try
5253                     Return CType(Me(Me.tableWishlist.GameIDColumn),Integer)
5254                 Catch e As Global.System.InvalidCastException
5255                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Wishlist' is DBNull.", e)
5256                 End Try
5257             End Get
5258             Set
5259                 Me(Me.tableWishlist.GameIDColumn) = value
5260             End Set
5261         End Property
5262
5263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5265         Public Property GamesRow() As GamesRow
5266             Get
5267                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesWishlist")),GamesRow)
5268             End Get
5269             Set
5270                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesWishlist"))
5271             End Set
5272         End Property
5273
5274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5276         Public Function IsUserIDNull() As Boolean
5277             Return Me.IsNull(Me.tableWishlist.UserIDColumn)
5278         End Function
5279
5280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5282         Public Sub SetUserIDNull()
5283             Me(Me.tableWishlist.UserIDColumn) = Global.System.Convert.DBNull
5284         End Sub
5285
5286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5288         Public Function IsGameIDNull() As Boolean
5289             Return Me.IsNull(Me.tableWishlist.GameIDColumn)
5290         End Function
5291
5292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5294         Public Sub SetGameIDNull()
5295             Me(Me.tableWishlist.GameIDColumn) = Global.System.Convert.DBNull
5296         End Sub
5297     End Class
5298
5299     '''<summary>
5300     '''Row event argument class
5301     '''</summary>
5302     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5303     Public Class AchievementRowChangeEvent
5304         Inherits Global.System.EventArgs
5305
5306         Private eventRow As AchievementRow
5307
5308         Private eventAction As Global.System.Data.DataRowAction
5309
5310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5312         Public Sub New(ByVal row As AchievementRow, ByVal action As Global.System.Data.DataRowAction)
5313             MyBase.New
5314             Me.eventRow = row
5315             Me.eventAction = action
5316         End Sub
5317
5318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5320         Public ReadOnly Property Row() As AchievementRow
5321             Get
5322                 Return Me.eventRow
5323             End Get
5324         End Property
5325
5326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5328         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5329             Get
5330                 Return Me.eventAction
5331             End Get
5332         End Property
5333     End Class
5334
5335     '''<summary>
5336     '''Row event argument class
5337     '''</summary>
5338     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5339     Public Class DOWRowChangeEvent
5340         Inherits Global.System.EventArgs
5341
5342         Private eventRow As DOWRow
5343
5344         Private eventAction As Global.System.Data.DataRowAction
5345
5346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5348         Public Sub New(ByVal row As DOWRow, ByVal action As Global.System.Data.DataRowAction)
5349             MyBase.New
5350             Me.eventRow = row
5351             Me.eventAction = action
5352         End Sub
5353
5354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5356         Public ReadOnly Property Row() As DOWRow
5357             Get
5358                 Return Me.eventRow
5359             End Get
5360         End Property
5361
5362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5364         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5365             Get
5366                 Return Me.eventAction
5367             End Get
5368         End Property
5369     End Class
5370
5371     '''<summary>
5372     '''Row event argument class
5373     '''</summary>
5374     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5375     Public Class FriendsRowChangeEvent
5376         Inherits Global.System.EventArgs
5377
5378         Private eventRow As FriendsRow
5379
5380         Private eventAction As Global.System.Data.DataRowAction
5381
5382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5384         Public Sub New(ByVal row As FriendsRow, ByVal action As Global.System.Data.DataRowAction)
5385             MyBase.New
5386             Me.eventRow = row
5387             Me.eventAction = action
5388         End Sub
5389
5390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5392         Public ReadOnly Property Row() As FriendsRow
5393             Get
5394                 Return Me.eventRow
5395             End Get
5396         End Property
5397
5398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5400         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5401             Get
5402                 Return Me.eventAction
5403             End Get
5404         End Property
5405     End Class
5406
5407     '''<summary>
5408     '''Row event argument class
5409     '''</summary>
5410     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5411     Public Class GamesRowChangeEvent
5412         Inherits Global.System.EventArgs
5413
5414         Private eventRow As GamesRow
5415
5416         Private eventAction As Global.System.Data.DataRowAction
5417
5418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5420         Public Sub New(ByVal row As GamesRow, ByVal action As Global.System.Data.DataRowAction)
5421             MyBase.New
5422             Me.eventRow = row
5423             Me.eventAction = action
5424         End Sub
5425
5426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5428         Public ReadOnly Property Row() As GamesRow
5429             Get
5430                 Return Me.eventRow
5431             End Get
5432         End Property
5433
5434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5436         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5437             Get
5438                 Return Me.eventAction
5439             End Get
5440         End Property
5441     End Class
5442
5443     '''<summary>
5444     '''Row event argument class
5445     '''</summary>
5446     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5447     Public Class PurchasedRowChangeEvent
5448         Inherits Global.System.EventArgs
5449
5450         Private eventRow As PurchasedRow
5451
5452         Private eventAction As Global.System.Data.DataRowAction
5453
5454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5456         Public Sub New(ByVal row As PurchasedRow, ByVal action As Global.System.Data.DataRowAction)
5457             MyBase.New
5458             Me.eventRow = row
5459             Me.eventAction = action
5460         End Sub
5461
5462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5464         Public ReadOnly Property Row() As PurchasedRow
5465             Get
5466                 Return Me.eventRow
5467             End Get
5468         End Property
5469
5470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5472         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5473             Get
5474                 Return Me.eventAction
5475             End Get
5476         End Property
5477     End Class
5478
5479     '''<summary>
5480     '''Row event argument class
5481     '''</summary>
5482     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5483     Public Class ReviewsRowChangeEvent
5484         Inherits Global.System.EventArgs
5485
5486         Private eventRow As ReviewsRow
5487
5488         Private eventAction As Global.System.Data.DataRowAction
5489
5490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5492         Public Sub New(ByVal row As ReviewsRow, ByVal action As Global.System.Data.DataRowAction)
5493             MyBase.New
5494             Me.eventRow = row
5495             Me.eventAction = action
5496         End Sub
5497
5498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5500         Public ReadOnly Property Row() As ReviewsRow
5501             Get
5502                 Return Me.eventRow
5503             End Get
5504         End Property
5505
5506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5508         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5509             Get
5510                 Return Me.eventAction
5511             End Get
5512         End Property
5513     End Class
5514
5515     '''<summary>
5516     '''Row event argument class
5517     '''</summary>
5518     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5519     Public Class TagsRowChangeEvent
5520         Inherits Global.System.EventArgs
5521
5522         Private eventRow As TagsRow
5523
5524         Private eventAction As Global.System.Data.DataRowAction
5525
5526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5528         Public Sub New(ByVal row As TagsRow, ByVal action As Global.System.Data.DataRowAction)
5529             MyBase.New
5530             Me.eventRow = row
5531             Me.eventAction = action
5532         End Sub
5533
5534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5536         Public ReadOnly Property Row() As TagsRow
5537             Get
5538                 Return Me.eventRow
5539             End Get
5540         End Property
5541
5542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5544         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5545             Get
5546                 Return Me.eventAction
5547             End Get
5548         End Property
5549     End Class
5550
5551     '''<summary>
5552     '''Row event argument class
5553     '''</summary>
5554     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5555     Public Class User_DetailsRowChangeEvent
5556         Inherits Global.System.EventArgs
5557
5558         Private eventRow As User_DetailsRow
5559
5560         Private eventAction As Global.System.Data.DataRowAction
5561
5562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5564         Public Sub New(ByVal row As User_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
5565             MyBase.New
5566             Me.eventRow = row
5567             Me.eventAction = action
5568         End Sub
5569
5570         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5571          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5572         Public ReadOnly Property Row() As User_DetailsRow
5573             Get
5574                 Return Me.eventRow
5575             End Get
5576         End Property
5577
5578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5580         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5581             Get
5582                 Return Me.eventAction
5583             End Get
5584         End Property
5585     End Class
5586
5587     '''<summary>
5588     '''Row event argument class
5589     '''</summary>
5590     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5591     Public Class UsersRowChangeEvent
5592         Inherits Global.System.EventArgs
5593
5594         Private eventRow As UsersRow
5595
5596         Private eventAction As Global.System.Data.DataRowAction
5597
5598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5600         Public Sub New(ByVal row As UsersRow, ByVal action As Global.System.Data.DataRowAction)
5601             MyBase.New
5602             Me.eventRow = row
5603             Me.eventAction = action
5604         End Sub
5605
5606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5608         Public ReadOnly Property Row() As UsersRow
5609             Get
5610                 Return Me.eventRow
5611             End Get
5612         End Property
5613
5614         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5615          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5616         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5617             Get
5618                 Return Me.eventAction
5619             End Get
5620         End Property
5621     End Class
5622
5623     '''<summary>
5624     '''Row event argument class
5625     '''</summary>
5626     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5627     Public Class WishlistRowChangeEvent
5628         Inherits Global.System.EventArgs
5629
5630         Private eventRow As WishlistRow
5631
5632         Private eventAction As Global.System.Data.DataRowAction
5633
5634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5636         Public Sub New(ByVal row As WishlistRow, ByVal action As Global.System.Data.DataRowAction)
5637             MyBase.New
5638             Me.eventRow = row
5639             Me.eventAction = action
5640         End Sub
5641
5642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5644         Public ReadOnly Property Row() As WishlistRow
5645             Get
5646                 Return Me.eventRow
5647             End Get
5648         End Property
5649
5650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5652         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5653             Get
5654                 Return Me.eventAction
5655             End Get
5656         End Property
5657     End Class
5658 End Class
5659
5660 Namespace NEADataSetTableAdapters
5661
5662     '''<summary>
5663     '''Represents the connection and commands used to retrieve and save data.
5664     '''</summary>
5665     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
5666      Global.System.ComponentModel.ToolboxItem(true),  _
5667      Global.System.ComponentModel.DataObjectAttribute(true),  _
5668      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
5669         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
5670      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5671     Partial Public Class AchievementTableAdapter
5672         Inherits Global.System.ComponentModel.Component
5673
5674         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
5675
5676         Private _connection As Global.System.Data.OleDb.OleDbConnection
5677
5678         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
5679
5680         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
5681
5682         Private _clearBeforeFill As Boolean
5683
5684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5686         Public Sub New()
5687             MyBase.New
5688             Me.ClearBeforeFill = true
5689         End Sub
5690
5691         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5692          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5693         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
5694             Get
5695                 If (Me._adapter Is Nothing) Then
5696                     Me.InitAdapter
5697                 End If
5698                 Return Me._adapter
5699             End Get
5700         End Property
5701
5702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5704         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
5705             Get
5706                 If (Me._connection Is Nothing) Then
5707                     Me.InitConnection
5708                 End If
5709                 Return Me._connection
5710             End Get
5711             Set
5712                 Me._connection = value
5713                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
5714                     Me.Adapter.InsertCommand.Connection = value
5715                 End If
5716                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
5717                     Me.Adapter.DeleteCommand.Connection = value
5718                 End If
5719                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
5720                     Me.Adapter.UpdateCommand.Connection = value
5721                 End If
5722                 Dim i As Integer = 0
5723                 Do While (i < Me.CommandCollection.Length)
5724                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
5725                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
5726                     End If
5727                     i = (i + 1)
5728                 Loop
5729             End Set
5730         End Property
5731
5732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5734         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
5735             Get
5736                 Return Me._transaction
5737             End Get
5738             Set
5739                 Me._transaction = value
5740                 Dim i As Integer = 0
5741                 Do While (i < Me.CommandCollection.Length)
5742                     Me.CommandCollection(i).Transaction = Me._transaction
5743                     i = (i + 1)
5744                 Loop
5745                 If ((Not (Me.Adapter) Is Nothing)  _
5746                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
5747                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
5748                 End If
5749                 If ((Not (Me.Adapter) Is Nothing)  _
5750                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
5751                     Me.Adapter.InsertCommand.Transaction = Me._transaction
5752                 End If
5753                 If ((Not (Me.Adapter) Is Nothing)  _
5754                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
5755                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
5756                 End If
5757             End Set
5758         End Property
5759
5760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5762         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
5763             Get
5764                 If (Me._commandCollection Is Nothing) Then
5765                     Me.InitCommandCollection
5766                 End If
5767                 Return Me._commandCollection
5768             End Get
5769         End Property
5770
5771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5773         Public Property ClearBeforeFill() As Boolean
5774             Get
5775                 Return Me._clearBeforeFill
5776             End Get
5777             Set
5778                 Me._clearBeforeFill = value
5779             End Set
5780         End Property
5781
5782         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5783          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5784         Private Sub InitAdapter()
5785             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
5786             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
5787             tableMapping.SourceTable = "Table"
5788             tableMapping.DataSetTable = "Achievement"
5789             tableMapping.ColumnMappings.Add("AchievementID", "AchievementID")
5790             tableMapping.ColumnMappings.Add("GameID", "GameID")
5791             tableMapping.ColumnMappings.Add("UserID", "UserID")
5792             tableMapping.ColumnMappings.Add("Achievment 1", "Achievment 1")
5793             tableMapping.ColumnMappings.Add("Achievment 2", "Achievment 2")
5794             tableMapping.ColumnMappings.Add("Achievment 3", "Achievment 3")
5795             tableMapping.ColumnMappings.Add("Achievment 4", "Achievment 4")
5796             tableMapping.ColumnMappings.Add("Achievment 5", "Achievment 5")
5797             Me._adapter.TableMappings.Add(tableMapping)
5798             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
5799             Me._adapter.DeleteCommand.Connection = Me.Connection
5800             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Achievement` WHERE ((`AchievementID` = ?) AND ((? = 1 AND `GameID` I"& _
5801                 "S NULL) OR (`GameID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"& _
5802                 ""
5803             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
5804             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_AchievementID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AchievementID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5805             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5806             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5807             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5808             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5809             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
5810             Me._adapter.InsertCommand.Connection = Me.Connection
5811             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Achievement` (`GameID`, `UserID`, `Achievment 1`, `Achievment 2`, `A"& _
5812                 "chievment 3`, `Achievment 4`, `Achievment 5`) VALUES (?, ?, ?, ?, ?, ?, ?)"
5813             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
5814             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5815             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5816             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 1", Global.System.Data.DataRowVersion.Current, false, Nothing))
5817             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_2", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 2", Global.System.Data.DataRowVersion.Current, false, Nothing))
5818             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_3", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 3", Global.System.Data.DataRowVersion.Current, false, Nothing))
5819             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_4", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 4", Global.System.Data.DataRowVersion.Current, false, Nothing))
5820             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_5", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 5", Global.System.Data.DataRowVersion.Current, false, Nothing))
5821             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
5822             Me._adapter.UpdateCommand.Connection = Me.Connection
5823             Me._adapter.UpdateCommand.CommandText = "UPDATE `Achievement` SET `GameID` = ?, `UserID` = ?, `Achievment 1` = ?, `Achievm"& _
5824                 "ent 2` = ?, `Achievment 3` = ?, `Achievment 4` = ?, `Achievment 5` = ? WHERE ((`"& _
5825                 "AchievementID` = ?) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)) AND ((?"& _
5826                 " = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
5827             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
5828             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5829             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5830             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 1", Global.System.Data.DataRowVersion.Current, false, Nothing))
5831             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_2", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 2", Global.System.Data.DataRowVersion.Current, false, Nothing))
5832             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_3", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 3", Global.System.Data.DataRowVersion.Current, false, Nothing))
5833             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_4", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 4", Global.System.Data.DataRowVersion.Current, false, Nothing))
5834             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_5", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 5", Global.System.Data.DataRowVersion.Current, false, Nothing))
5835             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_AchievementID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AchievementID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5836             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5837             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5838             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5839             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5840         End Sub
5841
5842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5844         Private Sub InitConnection()
5845             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
5846             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
5847         End Sub
5848
5849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5851         Private Sub InitCommandCollection()
5852             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
5853             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
5854             Me._commandCollection(0).Connection = Me.Connection
5855             Me._commandCollection(0).CommandText = "SELECT AchievementID, GameID, UserID, [Achievment 1], [Achievment 2], [Achievment"& _
5856                 " 3], [Achievment 4], [Achievment 5] FROM Achievement"
5857             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
5858         End Sub
5859
5860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5862          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5863          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
5864         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5865             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5866             If (Me.ClearBeforeFill = true) Then
5867                 dataTable.Clear
5868             End If
5869             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
5870             Return returnValue
5871         End Function
5872
5873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5875          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5876          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
5877         Public Overloads Overridable Function GetData() As NEADataSet.AchievementDataTable
5878             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5879             Dim dataTable As NEADataSet.AchievementDataTable = New NEADataSet.AchievementDataTable()
5880             Me.Adapter.Fill(dataTable)
5881             Return dataTable
5882         End Function
5883
5884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5886          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5887         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5888             Return Me.Adapter.Update(dataTable)
5889         End Function
5890
5891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5893          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5894         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
5895             Return Me.Adapter.Update(dataSet, "Achievement")
5896         End Function
5897
5898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5900          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5901         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
5902             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
5903         End Function
5904
5905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5907          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5908         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
5909             Return Me.Adapter.Update(dataRows)
5910         End Function
5911
5912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5914          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5915          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
5916         Public Overloads Overridable Function Delete(ByVal Original_AchievementID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer), ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
5917             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AchievementID,Integer)
5918             If (Original_GameID.HasValue = true) Then
5919                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
5920                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
5921             Else
5922                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
5923                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
5924             End If
5925             If (Original_UserID.HasValue = true) Then
5926                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
5927                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
5928             Else
5929                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
5930                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
5931             End If
5932             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
5933             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5934                         <> Global.System.Data.ConnectionState.Open) Then
5935                 Me.Adapter.DeleteCommand.Connection.Open
5936             End If
5937             Try
5938                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
5939                 Return returnValue
5940             Finally
5941                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5942                     Me.Adapter.DeleteCommand.Connection.Close
5943                 End If
5944             End Try
5945         End Function
5946
5947         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5948          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5949          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5950          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
5951         Public Overloads Overridable Function Insert(ByVal GameID As Global.System.Nullable(Of Integer), ByVal UserID As Global.System.Nullable(Of Integer), ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String) As Integer
5952             If (GameID.HasValue = true) Then
5953                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
5954             Else
5955                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
5956             End If
5957             If (UserID.HasValue = true) Then
5958                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
5959             Else
5960                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
5961             End If
5962             If (Achievment_1 Is Nothing) Then
5963                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
5964             Else
5965                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Achievment_1,String)
5966             End If
5967             If (Achievment_2 Is Nothing) Then
5968                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
5969             Else
5970                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Achievment_2,String)
5971             End If
5972             If (Achievment_3 Is Nothing) Then
5973                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
5974             Else
5975                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Achievment_3,String)
5976             End If
5977             If (Achievment_4 Is Nothing) Then
5978                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
5979             Else
5980                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Achievment_4,String)
5981             End If
5982             If (Achievment_5 Is Nothing) Then
5983                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
5984             Else
5985                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Achievment_5,String)
5986             End If
5987             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
5988             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5989                         <> Global.System.Data.ConnectionState.Open) Then
5990                 Me.Adapter.InsertCommand.Connection.Open
5991             End If
5992             Try
5993                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
5994                 Return returnValue
5995             Finally
5996                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5997                     Me.Adapter.InsertCommand.Connection.Close
5998                 End If
5999             End Try
6000         End Function
6001
6002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6004          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6005          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6006         Public Overloads Overridable Function Update(ByVal GameID As Global.System.Nullable(Of Integer), ByVal UserID As Global.System.Nullable(Of Integer), ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String, ByVal Original_AchievementID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer), ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6007             If (GameID.HasValue = true) Then
6008                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
6009             Else
6010                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6011             End If
6012             If (UserID.HasValue = true) Then
6013                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6014             Else
6015                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6016             End If
6017             If (Achievment_1 Is Nothing) Then
6018                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6019             Else
6020                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Achievment_1,String)
6021             End If
6022             If (Achievment_2 Is Nothing) Then
6023                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
6024             Else
6025                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Achievment_2,String)
6026             End If
6027             If (Achievment_3 Is Nothing) Then
6028                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
6029             Else
6030                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Achievment_3,String)
6031             End If
6032             If (Achievment_4 Is Nothing) Then
6033                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6034             Else
6035                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Achievment_4,String)
6036             End If
6037             If (Achievment_5 Is Nothing) Then
6038                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6039             Else
6040                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Achievment_5,String)
6041             End If
6042             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_AchievementID,Integer)
6043             If (Original_GameID.HasValue = true) Then
6044                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6045                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6046             Else
6047                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6048                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6049             End If
6050             If (Original_UserID.HasValue = true) Then
6051                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
6052                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_UserID.Value,Integer)
6053             Else
6054                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
6055                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
6056             End If
6057             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6058             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6059                         <> Global.System.Data.ConnectionState.Open) Then
6060                 Me.Adapter.UpdateCommand.Connection.Open
6061             End If
6062             Try
6063                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6064                 Return returnValue
6065             Finally
6066                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6067                     Me.Adapter.UpdateCommand.Connection.Close
6068                 End If
6069             End Try
6070         End Function
6071     End Class
6072
6073     '''<summary>
6074     '''Represents the connection and commands used to retrieve and save data.
6075     '''</summary>
6076     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6077      Global.System.ComponentModel.ToolboxItem(true),  _
6078      Global.System.ComponentModel.DataObjectAttribute(true),  _
6079      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6080         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6081      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6082     Partial Public Class DOWTableAdapter
6083         Inherits Global.System.ComponentModel.Component
6084
6085         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6086
6087         Private _connection As Global.System.Data.OleDb.OleDbConnection
6088
6089         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6090
6091         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6092
6093         Private _clearBeforeFill As Boolean
6094
6095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6097         Public Sub New()
6098             MyBase.New
6099             Me.ClearBeforeFill = true
6100         End Sub
6101
6102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6104         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6105             Get
6106                 If (Me._adapter Is Nothing) Then
6107                     Me.InitAdapter
6108                 End If
6109                 Return Me._adapter
6110             End Get
6111         End Property
6112
6113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6115         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6116             Get
6117                 If (Me._connection Is Nothing) Then
6118                     Me.InitConnection
6119                 End If
6120                 Return Me._connection
6121             End Get
6122             Set
6123                 Me._connection = value
6124                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6125                     Me.Adapter.InsertCommand.Connection = value
6126                 End If
6127                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6128                     Me.Adapter.DeleteCommand.Connection = value
6129                 End If
6130                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6131                     Me.Adapter.UpdateCommand.Connection = value
6132                 End If
6133                 Dim i As Integer = 0
6134                 Do While (i < Me.CommandCollection.Length)
6135                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6136                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6137                     End If
6138                     i = (i + 1)
6139                 Loop
6140             End Set
6141         End Property
6142
6143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6145         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6146             Get
6147                 Return Me._transaction
6148             End Get
6149             Set
6150                 Me._transaction = value
6151                 Dim i As Integer = 0
6152                 Do While (i < Me.CommandCollection.Length)
6153                     Me.CommandCollection(i).Transaction = Me._transaction
6154                     i = (i + 1)
6155                 Loop
6156                 If ((Not (Me.Adapter) Is Nothing)  _
6157                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6158                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6159                 End If
6160                 If ((Not (Me.Adapter) Is Nothing)  _
6161                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6162                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6163                 End If
6164                 If ((Not (Me.Adapter) Is Nothing)  _
6165                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6166                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6167                 End If
6168             End Set
6169         End Property
6170
6171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6173         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6174             Get
6175                 If (Me._commandCollection Is Nothing) Then
6176                     Me.InitCommandCollection
6177                 End If
6178                 Return Me._commandCollection
6179             End Get
6180         End Property
6181
6182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6184         Public Property ClearBeforeFill() As Boolean
6185             Get
6186                 Return Me._clearBeforeFill
6187             End Get
6188             Set
6189                 Me._clearBeforeFill = value
6190             End Set
6191         End Property
6192
6193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6195         Private Sub InitAdapter()
6196             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6197             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6198             tableMapping.SourceTable = "Table"
6199             tableMapping.DataSetTable = "DOW"
6200             tableMapping.ColumnMappings.Add("DOWID", "DOWID")
6201             tableMapping.ColumnMappings.Add("Start", "Start")
6202             tableMapping.ColumnMappings.Add("End", "End")
6203             tableMapping.ColumnMappings.Add("GameID", "GameID")
6204             Me._adapter.TableMappings.Add(tableMapping)
6205             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6206             Me._adapter.DeleteCommand.Connection = Me.Connection
6207             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `DOW` WHERE ((`DOWID` = ?) AND ((? = 1 AND `Start` IS NULL) OR (`Star"& _
6208                 "t` = ?)) AND ((? = 1 AND `End` IS NULL) OR (`End` = ?)) AND ((? = 1 AND `GameID`"& _
6209                 " IS NULL) OR (`GameID` = ?)))"
6210             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6211             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOWID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOWID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6212             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Start", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, true, Nothing))
6213             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, false, Nothing))
6214             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_End", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, true, Nothing))
6215             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, false, Nothing))
6216             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6217             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6218             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6219             Me._adapter.InsertCommand.Connection = Me.Connection
6220             Me._adapter.InsertCommand.CommandText = "INSERT INTO `DOW` (`Start`, `End`, `GameID`) VALUES (?, ?, ?)"
6221             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6222             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Current, false, Nothing))
6223             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Current, false, Nothing))
6224             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6225             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6226             Me._adapter.UpdateCommand.Connection = Me.Connection
6227             Me._adapter.UpdateCommand.CommandText = "UPDATE `DOW` SET `Start` = ?, `End` = ?, `GameID` = ? WHERE ((`DOWID` = ?) AND (("& _
6228                 "? = 1 AND `Start` IS NULL) OR (`Start` = ?)) AND ((? = 1 AND `End` IS NULL) OR ("& _
6229                 "`End` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
6230             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6231             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Current, false, Nothing))
6232             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Current, false, Nothing))
6233             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6234             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOWID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOWID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6235             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Start", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, true, Nothing))
6236             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, false, Nothing))
6237             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_End", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, true, Nothing))
6238             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, false, Nothing))
6239             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6240             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6241         End Sub
6242
6243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6245         Private Sub InitConnection()
6246             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6247             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6248         End Sub
6249
6250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6252         Private Sub InitCommandCollection()
6253             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6254             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6255             Me._commandCollection(0).Connection = Me.Connection
6256             Me._commandCollection(0).CommandText = "SELECT DOWID, Start, [End], GameID FROM DOW"
6257             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6258         End Sub
6259
6260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6262          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6263          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6264         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6265             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6266             If (Me.ClearBeforeFill = true) Then
6267                 dataTable.Clear
6268             End If
6269             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6270             Return returnValue
6271         End Function
6272
6273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6275          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6276          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6277         Public Overloads Overridable Function GetData() As NEADataSet.DOWDataTable
6278             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6279             Dim dataTable As NEADataSet.DOWDataTable = New NEADataSet.DOWDataTable()
6280             Me.Adapter.Fill(dataTable)
6281             Return dataTable
6282         End Function
6283
6284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6286          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6287         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6288             Return Me.Adapter.Update(dataTable)
6289         End Function
6290
6291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6293          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6294         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6295             Return Me.Adapter.Update(dataSet, "DOW")
6296         End Function
6297
6298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6300          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6301         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6302             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6303         End Function
6304
6305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6307          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6308         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6309             Return Me.Adapter.Update(dataRows)
6310         End Function
6311
6312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6314          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6315          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6316         Public Overloads Overridable Function Delete(ByVal Original_DOWID As Integer, ByVal Original_Start As Global.System.Nullable(Of Date), ByVal Original_End As Global.System.Nullable(Of Date), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
6317             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DOWID,Integer)
6318             If (Original_Start.HasValue = true) Then
6319                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6320                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Start.Value,Date)
6321             Else
6322                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
6323                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
6324             End If
6325             If (Original_End.HasValue = true) Then
6326                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6327                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_End.Value,Date)
6328             Else
6329                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6330                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6331             End If
6332             If (Original_GameID.HasValue = true) Then
6333                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
6334                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
6335             Else
6336                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
6337                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
6338             End If
6339             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6340             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6341                         <> Global.System.Data.ConnectionState.Open) Then
6342                 Me.Adapter.DeleteCommand.Connection.Open
6343             End If
6344             Try
6345                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6346                 Return returnValue
6347             Finally
6348                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6349                     Me.Adapter.DeleteCommand.Connection.Close
6350                 End If
6351             End Try
6352         End Function
6353
6354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6356          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6357          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6358         Public Overloads Overridable Function Insert(ByVal Start As Global.System.Nullable(Of Date), ByVal _End As Global.System.Nullable(Of Date), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
6359             If (Start.HasValue = true) Then
6360                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Start.Value,Date)
6361             Else
6362                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
6363             End If
6364             If (_End.HasValue = true) Then
6365                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(_End.Value,Date)
6366             Else
6367                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6368             End If
6369             If (GameID.HasValue = true) Then
6370                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6371             Else
6372                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
6373             End If
6374             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6375             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6376                         <> Global.System.Data.ConnectionState.Open) Then
6377                 Me.Adapter.InsertCommand.Connection.Open
6378             End If
6379             Try
6380                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6381                 Return returnValue
6382             Finally
6383                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6384                     Me.Adapter.InsertCommand.Connection.Close
6385                 End If
6386             End Try
6387         End Function
6388
6389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6391          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6392          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6393         Public Overloads Overridable Function Update(ByVal Start As Global.System.Nullable(Of Date), ByVal _End As Global.System.Nullable(Of Date), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_DOWID As Integer, ByVal Original_Start As Global.System.Nullable(Of Date), ByVal Original_End As Global.System.Nullable(Of Date), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
6394             If (Start.HasValue = true) Then
6395                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Start.Value,Date)
6396             Else
6397                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6398             End If
6399             If (_End.HasValue = true) Then
6400                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_End.Value,Date)
6401             Else
6402                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6403             End If
6404             If (GameID.HasValue = true) Then
6405                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6406             Else
6407                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6408             End If
6409             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DOWID,Integer)
6410             If (Original_Start.HasValue = true) Then
6411                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
6412                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Start.Value,Date)
6413             Else
6414                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
6415                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6416             End If
6417             If (Original_End.HasValue = true) Then
6418                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
6419                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_End.Value,Date)
6420             Else
6421                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
6422                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
6423             End If
6424             If (Original_GameID.HasValue = true) Then
6425                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6426                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6427             Else
6428                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6429                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6430             End If
6431             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6432             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6433                         <> Global.System.Data.ConnectionState.Open) Then
6434                 Me.Adapter.UpdateCommand.Connection.Open
6435             End If
6436             Try
6437                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6438                 Return returnValue
6439             Finally
6440                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6441                     Me.Adapter.UpdateCommand.Connection.Close
6442                 End If
6443             End Try
6444         End Function
6445     End Class
6446
6447     '''<summary>
6448     '''Represents the connection and commands used to retrieve and save data.
6449     '''</summary>
6450     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6451      Global.System.ComponentModel.ToolboxItem(true),  _
6452      Global.System.ComponentModel.DataObjectAttribute(true),  _
6453      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6454         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6455      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6456     Partial Public Class FriendsTableAdapter
6457         Inherits Global.System.ComponentModel.Component
6458
6459         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6460
6461         Private _connection As Global.System.Data.OleDb.OleDbConnection
6462
6463         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6464
6465         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6466
6467         Private _clearBeforeFill As Boolean
6468
6469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6471         Public Sub New()
6472             MyBase.New
6473             Me.ClearBeforeFill = true
6474         End Sub
6475
6476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6478         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6479             Get
6480                 If (Me._adapter Is Nothing) Then
6481                     Me.InitAdapter
6482                 End If
6483                 Return Me._adapter
6484             End Get
6485         End Property
6486
6487         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6488          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6489         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6490             Get
6491                 If (Me._connection Is Nothing) Then
6492                     Me.InitConnection
6493                 End If
6494                 Return Me._connection
6495             End Get
6496             Set
6497                 Me._connection = value
6498                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6499                     Me.Adapter.InsertCommand.Connection = value
6500                 End If
6501                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6502                     Me.Adapter.DeleteCommand.Connection = value
6503                 End If
6504                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6505                     Me.Adapter.UpdateCommand.Connection = value
6506                 End If
6507                 Dim i As Integer = 0
6508                 Do While (i < Me.CommandCollection.Length)
6509                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6510                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6511                     End If
6512                     i = (i + 1)
6513                 Loop
6514             End Set
6515         End Property
6516
6517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6519         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6520             Get
6521                 Return Me._transaction
6522             End Get
6523             Set
6524                 Me._transaction = value
6525                 Dim i As Integer = 0
6526                 Do While (i < Me.CommandCollection.Length)
6527                     Me.CommandCollection(i).Transaction = Me._transaction
6528                     i = (i + 1)
6529                 Loop
6530                 If ((Not (Me.Adapter) Is Nothing)  _
6531                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6532                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6533                 End If
6534                 If ((Not (Me.Adapter) Is Nothing)  _
6535                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6536                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6537                 End If
6538                 If ((Not (Me.Adapter) Is Nothing)  _
6539                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6540                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6541                 End If
6542             End Set
6543         End Property
6544
6545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6547         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6548             Get
6549                 If (Me._commandCollection Is Nothing) Then
6550                     Me.InitCommandCollection
6551                 End If
6552                 Return Me._commandCollection
6553             End Get
6554         End Property
6555
6556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6558         Public Property ClearBeforeFill() As Boolean
6559             Get
6560                 Return Me._clearBeforeFill
6561             End Get
6562             Set
6563                 Me._clearBeforeFill = value
6564             End Set
6565         End Property
6566
6567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6569         Private Sub InitAdapter()
6570             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6571             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6572             tableMapping.SourceTable = "Table"
6573             tableMapping.DataSetTable = "Friends"
6574             tableMapping.ColumnMappings.Add("ID", "ID")
6575             tableMapping.ColumnMappings.Add("FriendID", "FriendID")
6576             tableMapping.ColumnMappings.Add("UserID", "UserID")
6577             Me._adapter.TableMappings.Add(tableMapping)
6578             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6579             Me._adapter.DeleteCommand.Connection = Me.Connection
6580             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Friends` WHERE ((`ID` = ?) AND ((? = 1 AND `FriendID` IS NULL) OR (`"& _
6581                 "FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
6582             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6583             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6584             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6585             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6586             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6587             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6588             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6589             Me._adapter.InsertCommand.Connection = Me.Connection
6590             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Friends` (`FriendID`, `UserID`) VALUES (?, ?)"
6591             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6592             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6593             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6594             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6595             Me._adapter.UpdateCommand.Connection = Me.Connection
6596             Me._adapter.UpdateCommand.CommandText = "UPDATE `Friends` SET `FriendID` = ?, `UserID` = ? WHERE ((`ID` = ?) AND ((? = 1 A"& _
6597                 "ND `FriendID` IS NULL) OR (`FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR"& _
6598                 " (`UserID` = ?)))"
6599             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6600             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6601             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6602             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6603             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6604             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6605             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6606             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6607         End Sub
6608
6609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6611         Private Sub InitConnection()
6612             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6613             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6614         End Sub
6615
6616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6618         Private Sub InitCommandCollection()
6619             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6620             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6621             Me._commandCollection(0).Connection = Me.Connection
6622             Me._commandCollection(0).CommandText = "SELECT ID, FriendID, UserID FROM Friends"
6623             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6624         End Sub
6625
6626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6628          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6629          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6630         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6631             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6632             If (Me.ClearBeforeFill = true) Then
6633                 dataTable.Clear
6634             End If
6635             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6636             Return returnValue
6637         End Function
6638
6639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6641          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6642          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6643         Public Overloads Overridable Function GetData() As NEADataSet.FriendsDataTable
6644             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6645             Dim dataTable As NEADataSet.FriendsDataTable = New NEADataSet.FriendsDataTable()
6646             Me.Adapter.Fill(dataTable)
6647             Return dataTable
6648         End Function
6649
6650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6652          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6653         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6654             Return Me.Adapter.Update(dataTable)
6655         End Function
6656
6657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6659          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6660         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6661             Return Me.Adapter.Update(dataSet, "Friends")
6662         End Function
6663
6664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6666          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6667         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6668             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6669         End Function
6670
6671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6673          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6674         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6675             Return Me.Adapter.Update(dataRows)
6676         End Function
6677
6678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6680          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6681          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6682         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_FriendID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6683             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
6684             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6685             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FriendID,Integer)
6686             If (Original_UserID.HasValue = true) Then
6687                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6688                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
6689             Else
6690                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6691                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6692             End If
6693             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6694             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6695                         <> Global.System.Data.ConnectionState.Open) Then
6696                 Me.Adapter.DeleteCommand.Connection.Open
6697             End If
6698             Try
6699                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6700                 Return returnValue
6701             Finally
6702                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6703                     Me.Adapter.DeleteCommand.Connection.Close
6704                 End If
6705             End Try
6706         End Function
6707
6708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6710          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6711          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6712         Public Overloads Overridable Function Insert(ByVal FriendID As Integer, ByVal UserID As Global.System.Nullable(Of Integer)) As Integer
6713             Me.Adapter.InsertCommand.Parameters(0).Value = CType(FriendID,Integer)
6714             If (UserID.HasValue = true) Then
6715                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6716             Else
6717                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6718             End If
6719             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6720             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6721                         <> Global.System.Data.ConnectionState.Open) Then
6722                 Me.Adapter.InsertCommand.Connection.Open
6723             End If
6724             Try
6725                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6726                 Return returnValue
6727             Finally
6728                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6729                     Me.Adapter.InsertCommand.Connection.Close
6730                 End If
6731             End Try
6732         End Function
6733
6734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6736          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6737          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6738         Public Overloads Overridable Function Update(ByVal FriendID As Integer, ByVal UserID As Global.System.Nullable(Of Integer), ByVal Original_ID As Integer, ByVal Original_FriendID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6739             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FriendID,Integer)
6740             If (UserID.HasValue = true) Then
6741                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6742             Else
6743                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6744             End If
6745             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,Integer)
6746             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
6747             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_FriendID,Integer)
6748             If (Original_UserID.HasValue = true) Then
6749                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
6750                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_UserID.Value,Integer)
6751             Else
6752                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
6753                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6754             End If
6755             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6756             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6757                         <> Global.System.Data.ConnectionState.Open) Then
6758                 Me.Adapter.UpdateCommand.Connection.Open
6759             End If
6760             Try
6761                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6762                 Return returnValue
6763             Finally
6764                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6765                     Me.Adapter.UpdateCommand.Connection.Close
6766                 End If
6767             End Try
6768         End Function
6769     End Class
6770
6771     '''<summary>
6772     '''Represents the connection and commands used to retrieve and save data.
6773     '''</summary>
6774     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6775      Global.System.ComponentModel.ToolboxItem(true),  _
6776      Global.System.ComponentModel.DataObjectAttribute(true),  _
6777      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6778         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6779      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6780     Partial Public Class GamesTableAdapter
6781         Inherits Global.System.ComponentModel.Component
6782
6783         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6784
6785         Private _connection As Global.System.Data.OleDb.OleDbConnection
6786
6787         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6788
6789         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6790
6791         Private _clearBeforeFill As Boolean
6792
6793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6795         Public Sub New()
6796             MyBase.New
6797             Me.ClearBeforeFill = true
6798         End Sub
6799
6800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6802         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6803             Get
6804                 If (Me._adapter Is Nothing) Then
6805                     Me.InitAdapter
6806                 End If
6807                 Return Me._adapter
6808             End Get
6809         End Property
6810
6811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6813         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6814             Get
6815                 If (Me._connection Is Nothing) Then
6816                     Me.InitConnection
6817                 End If
6818                 Return Me._connection
6819             End Get
6820             Set
6821                 Me._connection = value
6822                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6823                     Me.Adapter.InsertCommand.Connection = value
6824                 End If
6825                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6826                     Me.Adapter.DeleteCommand.Connection = value
6827                 End If
6828                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6829                     Me.Adapter.UpdateCommand.Connection = value
6830                 End If
6831                 Dim i As Integer = 0
6832                 Do While (i < Me.CommandCollection.Length)
6833                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6834                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6835                     End If
6836                     i = (i + 1)
6837                 Loop
6838             End Set
6839         End Property
6840
6841         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6842          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6843         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6844             Get
6845                 Return Me._transaction
6846             End Get
6847             Set
6848                 Me._transaction = value
6849                 Dim i As Integer = 0
6850                 Do While (i < Me.CommandCollection.Length)
6851                     Me.CommandCollection(i).Transaction = Me._transaction
6852                     i = (i + 1)
6853                 Loop
6854                 If ((Not (Me.Adapter) Is Nothing)  _
6855                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6856                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6857                 End If
6858                 If ((Not (Me.Adapter) Is Nothing)  _
6859                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6860                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6861                 End If
6862                 If ((Not (Me.Adapter) Is Nothing)  _
6863                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6864                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6865                 End If
6866             End Set
6867         End Property
6868
6869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6871         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6872             Get
6873                 If (Me._commandCollection Is Nothing) Then
6874                     Me.InitCommandCollection
6875                 End If
6876                 Return Me._commandCollection
6877             End Get
6878         End Property
6879
6880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6882         Public Property ClearBeforeFill() As Boolean
6883             Get
6884                 Return Me._clearBeforeFill
6885             End Get
6886             Set
6887                 Me._clearBeforeFill = value
6888             End Set
6889         End Property
6890
6891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6893         Private Sub InitAdapter()
6894             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6895             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6896             tableMapping.SourceTable = "Table"
6897             tableMapping.DataSetTable = "Games"
6898             tableMapping.ColumnMappings.Add("GameID", "GameID")
6899             tableMapping.ColumnMappings.Add("Name", "Name")
6900             tableMapping.ColumnMappings.Add("Price", "Price")
6901             tableMapping.ColumnMappings.Add("Rating", "Rating")
6902             tableMapping.ColumnMappings.Add("Certificate", "Certificate")
6903             tableMapping.ColumnMappings.Add("Dev", "Dev")
6904             tableMapping.ColumnMappings.Add("Publisher", "Publisher")
6905             tableMapping.ColumnMappings.Add("Tags", "Tags")
6906             tableMapping.ColumnMappings.Add("Theme Colour", "Theme Colour")
6907             tableMapping.ColumnMappings.Add("Icon", "Icon")
6908             Me._adapter.TableMappings.Add(tableMapping)
6909             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6910             Me._adapter.DeleteCommand.Connection = Me.Connection
6911             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Games` WHERE ((`GameID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`P"& _
6912                 "rice` = ?)) AND ((? = 1 AND `Rating` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND"& _
6913                 " `Certificate` IS NULL) OR (`Certificate` = ?)) AND ((? = 1 AND `Theme Colour` I"& _
6914                 "S NULL) OR (`Theme Colour` = ?)))"
6915             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6916             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6917             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, true, Nothing))
6918             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, false, Nothing))
6919             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, true, Nothing))
6920             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, false, Nothing))
6921             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, true, Nothing))
6922             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, false, Nothing))
6923             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, true, Nothing))
6924             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, false, Nothing))
6925             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6926             Me._adapter.InsertCommand.Connection = Me.Connection
6927             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Games` (`Name`, `Price`, `Rating`, `Certificate`, `Dev`, `Publisher`"& _
6928                 ", `Tags`, `Theme Colour`, `Icon`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
6929             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6930             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
6931             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Current, false, Nothing))
6932             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Current, false, Nothing))
6933             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Current, false, Nothing))
6934             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dev", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dev", Global.System.Data.DataRowVersion.Current, false, Nothing))
6935             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Publisher", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Publisher", Global.System.Data.DataRowVersion.Current, false, Nothing))
6936             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Tags", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Tags", Global.System.Data.DataRowVersion.Current, false, Nothing))
6937             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Current, false, Nothing))
6938             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing))
6939             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6940             Me._adapter.UpdateCommand.Connection = Me.Connection
6941             Me._adapter.UpdateCommand.CommandText = "UPDATE `Games` SET `Name` = ?, `Price` = ?, `Rating` = ?, `Certificate` = ?, `Dev"& _
6942                 "` = ?, `Publisher` = ?, `Tags` = ?, `Theme Colour` = ?, `Icon` = ? WHERE ((`Game"& _
6943                 "ID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`Price` = ?)) AND ((? = 1 AND `Rat"& _
6944                 "ing` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND `Certificate` IS NULL) OR (`Cer"& _
6945                 "tificate` = ?)) AND ((? = 1 AND `Theme Colour` IS NULL) OR (`Theme Colour` = ?))"& _
6946                 ")"
6947             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6948             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
6949             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Current, false, Nothing))
6950             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Current, false, Nothing))
6951             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Current, false, Nothing))
6952             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dev", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dev", Global.System.Data.DataRowVersion.Current, false, Nothing))
6953             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Publisher", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Publisher", Global.System.Data.DataRowVersion.Current, false, Nothing))
6954             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Tags", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Tags", Global.System.Data.DataRowVersion.Current, false, Nothing))
6955             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Current, false, Nothing))
6956             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing))
6957             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6958             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, true, Nothing))
6959             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, false, Nothing))
6960             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, true, Nothing))
6961             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, false, Nothing))
6962             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, true, Nothing))
6963             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, false, Nothing))
6964             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, true, Nothing))
6965             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, false, Nothing))
6966         End Sub
6967
6968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6970         Private Sub InitConnection()
6971             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6972             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6973         End Sub
6974
6975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6977         Private Sub InitCommandCollection()
6978             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6979             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6980             Me._commandCollection(0).Connection = Me.Connection
6981             Me._commandCollection(0).CommandText = "SELECT GameID, Name, Price, Rating, Certificate, Dev, Publisher, Tags, [Theme Col"& _
6982                 "our], Icon FROM Games"
6983             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6984         End Sub
6985
6986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6988          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6989          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6990         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
6991             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6992             If (Me.ClearBeforeFill = true) Then
6993                 dataTable.Clear
6994             End If
6995             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6996             Return returnValue
6997         End Function
6998
6999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7001          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7002          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7003         Public Overloads Overridable Function GetData() As NEADataSet.GamesDataTable
7004             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7005             Dim dataTable As NEADataSet.GamesDataTable = New NEADataSet.GamesDataTable()
7006             Me.Adapter.Fill(dataTable)
7007             Return dataTable
7008         End Function
7009
7010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7012          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7013         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
7014             Return Me.Adapter.Update(dataTable)
7015         End Function
7016
7017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7019          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7020         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7021             Return Me.Adapter.Update(dataSet, "Games")
7022         End Function
7023
7024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7026          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7027         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7028             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7029         End Function
7030
7031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7033          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7034         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7035             Return Me.Adapter.Update(dataRows)
7036         End Function
7037
7038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7040          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7041          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7042         Public Overloads Overridable Function Delete(ByVal Original_GameID As Integer, ByVal Original_Price As Global.System.Nullable(Of Decimal), ByVal Original_Rating As Global.System.Nullable(Of Integer), ByVal Original_Certificate As Global.System.Nullable(Of Integer), ByVal Original_Theme_Colour As Global.System.Nullable(Of Integer)) As Integer
7043             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GameID,Integer)
7044             If (Original_Price.HasValue = true) Then
7045                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7046                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Price.Value,Decimal)
7047             Else
7048                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7049                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7050             End If
7051             If (Original_Rating.HasValue = true) Then
7052                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7053                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Rating.Value,Integer)
7054             Else
7055                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7056                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7057             End If
7058             If (Original_Certificate.HasValue = true) Then
7059                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
7060                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Certificate.Value,Integer)
7061             Else
7062                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
7063                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
7064             End If
7065             If (Original_Theme_Colour.HasValue = true) Then
7066                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
7067                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Theme_Colour.Value,Integer)
7068             Else
7069                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
7070                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
7071             End If
7072             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7073             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7074                         <> Global.System.Data.ConnectionState.Open) Then
7075                 Me.Adapter.DeleteCommand.Connection.Open
7076             End If
7077             Try
7078                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7079                 Return returnValue
7080             Finally
7081                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7082                     Me.Adapter.DeleteCommand.Connection.Close
7083                 End If
7084             End Try
7085         End Function
7086
7087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7089          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7090          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7091         Public Overloads Overridable Function Insert(ByVal Name As String, ByVal Price As Global.System.Nullable(Of Decimal), ByVal Rating As Global.System.Nullable(Of Integer), ByVal Certificate As Global.System.Nullable(Of Integer), ByVal Dev As String, ByVal Publisher As String, ByVal Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer), ByVal Icon() As Byte) As Integer
7092             If (Name Is Nothing) Then
7093                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7094             Else
7095                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Name,String)
7096             End If
7097             If (Price.HasValue = true) Then
7098                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7099             Else
7100                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7101             End If
7102             If (Rating.HasValue = true) Then
7103                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7104             Else
7105                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
7106             End If
7107             If (Certificate.HasValue = true) Then
7108                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7109             Else
7110                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
7111             End If
7112             If (Dev Is Nothing) Then
7113                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
7114             Else
7115                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Dev,String)
7116             End If
7117             If (Publisher Is Nothing) Then
7118                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
7119             Else
7120                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Publisher,String)
7121             End If
7122             If (Tags Is Nothing) Then
7123                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
7124             Else
7125                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Tags,String)
7126             End If
7127             If (Theme_Colour.HasValue = true) Then
7128                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Theme_Colour.Value,Integer)
7129             Else
7130                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
7131             End If
7132             If (Icon Is Nothing) Then
7133                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
7134             Else
7135                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Icon,Byte())
7136             End If
7137             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7138             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7139                         <> Global.System.Data.ConnectionState.Open) Then
7140                 Me.Adapter.InsertCommand.Connection.Open
7141             End If
7142             Try
7143                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7144                 Return returnValue
7145             Finally
7146                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7147                     Me.Adapter.InsertCommand.Connection.Close
7148                 End If
7149             End Try
7150         End Function
7151
7152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7154          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7155          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7156         Public Overloads Overridable Function Update(ByVal Name As String, ByVal Price As Global.System.Nullable(Of Decimal), ByVal Rating As Global.System.Nullable(Of Integer), ByVal Certificate As Global.System.Nullable(Of Integer), ByVal Dev As String, ByVal Publisher As String, ByVal Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer), ByVal Icon() As Byte, ByVal Original_GameID As Integer, ByVal Original_Price As Global.System.Nullable(Of Decimal), ByVal Original_Rating As Global.System.Nullable(Of Integer), ByVal Original_Certificate As Global.System.Nullable(Of Integer), ByVal Original_Theme_Colour As Global.System.Nullable(Of Integer)) As Integer
7157             If (Name Is Nothing) Then
7158                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7159             Else
7160                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Name,String)
7161             End If
7162             If (Price.HasValue = true) Then
7163                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7164             Else
7165                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7166             End If
7167             If (Rating.HasValue = true) Then
7168                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7169             Else
7170                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
7171             End If
7172             If (Certificate.HasValue = true) Then
7173                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7174             Else
7175                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
7176             End If
7177             If (Dev Is Nothing) Then
7178                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7179             Else
7180                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Dev,String)
7181             End If
7182             If (Publisher Is Nothing) Then
7183                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
7184             Else
7185                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Publisher,String)
7186             End If
7187             If (Tags Is Nothing) Then
7188                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7189             Else
7190                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Tags,String)
7191             End If
7192             If (Theme_Colour.HasValue = true) Then
7193                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Theme_Colour.Value,Integer)
7194             Else
7195                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
7196             End If
7197             If (Icon Is Nothing) Then
7198                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
7199             Else
7200                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Icon,Byte())
7201             End If
7202             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID,Integer)
7203             If (Original_Price.HasValue = true) Then
7204                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
7205                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Price.Value,Decimal)
7206             Else
7207                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
7208                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
7209             End If
7210             If (Original_Rating.HasValue = true) Then
7211                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
7212                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Rating.Value,Integer)
7213             Else
7214                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
7215                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
7216             End If
7217             If (Original_Certificate.HasValue = true) Then
7218                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
7219                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Certificate.Value,Integer)
7220             Else
7221                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
7222                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
7223             End If
7224             If (Original_Theme_Colour.HasValue = true) Then
7225                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
7226                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Theme_Colour.Value,Integer)
7227             Else
7228                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
7229                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
7230             End If
7231             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7232             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7233                         <> Global.System.Data.ConnectionState.Open) Then
7234                 Me.Adapter.UpdateCommand.Connection.Open
7235             End If
7236             Try
7237                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7238                 Return returnValue
7239             Finally
7240                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7241                     Me.Adapter.UpdateCommand.Connection.Close
7242                 End If
7243             End Try
7244         End Function
7245     End Class
7246
7247     '''<summary>
7248     '''Represents the connection and commands used to retrieve and save data.
7249     '''</summary>
7250     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7251      Global.System.ComponentModel.ToolboxItem(true),  _
7252      Global.System.ComponentModel.DataObjectAttribute(true),  _
7253      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7254         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7255      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7256     Partial Public Class PurchasedTableAdapter
7257         Inherits Global.System.ComponentModel.Component
7258
7259         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7260
7261         Private _connection As Global.System.Data.OleDb.OleDbConnection
7262
7263         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7264
7265         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7266
7267         Private _clearBeforeFill As Boolean
7268
7269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7271         Public Sub New()
7272             MyBase.New
7273             Me.ClearBeforeFill = true
7274         End Sub
7275
7276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7278         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7279             Get
7280                 If (Me._adapter Is Nothing) Then
7281                     Me.InitAdapter
7282                 End If
7283                 Return Me._adapter
7284             End Get
7285         End Property
7286
7287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7289         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7290             Get
7291                 If (Me._connection Is Nothing) Then
7292                     Me.InitConnection
7293                 End If
7294                 Return Me._connection
7295             End Get
7296             Set
7297                 Me._connection = value
7298                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7299                     Me.Adapter.InsertCommand.Connection = value
7300                 End If
7301                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7302                     Me.Adapter.DeleteCommand.Connection = value
7303                 End If
7304                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7305                     Me.Adapter.UpdateCommand.Connection = value
7306                 End If
7307                 Dim i As Integer = 0
7308                 Do While (i < Me.CommandCollection.Length)
7309                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7310                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7311                     End If
7312                     i = (i + 1)
7313                 Loop
7314             End Set
7315         End Property
7316
7317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7319         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7320             Get
7321                 Return Me._transaction
7322             End Get
7323             Set
7324                 Me._transaction = value
7325                 Dim i As Integer = 0
7326                 Do While (i < Me.CommandCollection.Length)
7327                     Me.CommandCollection(i).Transaction = Me._transaction
7328                     i = (i + 1)
7329                 Loop
7330                 If ((Not (Me.Adapter) Is Nothing)  _
7331                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7332                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7333                 End If
7334                 If ((Not (Me.Adapter) Is Nothing)  _
7335                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7336                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7337                 End If
7338                 If ((Not (Me.Adapter) Is Nothing)  _
7339                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7340                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7341                 End If
7342             End Set
7343         End Property
7344
7345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7347         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7348             Get
7349                 If (Me._commandCollection Is Nothing) Then
7350                     Me.InitCommandCollection
7351                 End If
7352                 Return Me._commandCollection
7353             End Get
7354         End Property
7355
7356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7358         Public Property ClearBeforeFill() As Boolean
7359             Get
7360                 Return Me._clearBeforeFill
7361             End Get
7362             Set
7363                 Me._clearBeforeFill = value
7364             End Set
7365         End Property
7366
7367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7369         Private Sub InitAdapter()
7370             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7371             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7372             tableMapping.SourceTable = "Table"
7373             tableMapping.DataSetTable = "Purchased"
7374             tableMapping.ColumnMappings.Add("PurchaseID", "PurchaseID")
7375             tableMapping.ColumnMappings.Add("UserID", "UserID")
7376             tableMapping.ColumnMappings.Add("GameID", "GameID")
7377             Me._adapter.TableMappings.Add(tableMapping)
7378             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7379             Me._adapter.DeleteCommand.Connection = Me.Connection
7380             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Purchased` WHERE ((`PurchaseID` = ?) AND ((? = 1 AND `UserID` IS NUL"& _
7381                 "L) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7382             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7383             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_PurchaseID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "PurchaseID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7384             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7385             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7386             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7387             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7388             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7389             Me._adapter.InsertCommand.Connection = Me.Connection
7390             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Purchased` (`UserID`, `GameID`) VALUES (?, ?)"
7391             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7392             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7393             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7394             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7395             Me._adapter.UpdateCommand.Connection = Me.Connection
7396             Me._adapter.UpdateCommand.CommandText = "UPDATE `Purchased` SET `UserID` = ?, `GameID` = ? WHERE ((`PurchaseID` = ?) AND ("& _
7397                 "(? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL"& _
7398                 ") OR (`GameID` = ?)))"
7399             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7400             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7401             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7402             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_PurchaseID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "PurchaseID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7403             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7404             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7405             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7406             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7407         End Sub
7408
7409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7411         Private Sub InitConnection()
7412             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7413             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
7414         End Sub
7415
7416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7418         Private Sub InitCommandCollection()
7419             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7420             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7421             Me._commandCollection(0).Connection = Me.Connection
7422             Me._commandCollection(0).CommandText = "SELECT PurchaseID, UserID, GameID FROM Purchased"
7423             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7424         End Sub
7425
7426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7428          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7429          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7430         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7431             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7432             If (Me.ClearBeforeFill = true) Then
7433                 dataTable.Clear
7434             End If
7435             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7436             Return returnValue
7437         End Function
7438
7439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7441          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7442          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7443         Public Overloads Overridable Function GetData() As NEADataSet.PurchasedDataTable
7444             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7445             Dim dataTable As NEADataSet.PurchasedDataTable = New NEADataSet.PurchasedDataTable()
7446             Me.Adapter.Fill(dataTable)
7447             Return dataTable
7448         End Function
7449
7450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7452          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7453         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7454             Return Me.Adapter.Update(dataTable)
7455         End Function
7456
7457         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7458          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7459          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7460         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7461             Return Me.Adapter.Update(dataSet, "Purchased")
7462         End Function
7463
7464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7466          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7467         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7468             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7469         End Function
7470
7471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7473          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7474         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7475             Return Me.Adapter.Update(dataRows)
7476         End Function
7477
7478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7480          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7481          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7482         Public Overloads Overridable Function Delete(ByVal Original_PurchaseID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7483             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PurchaseID,Integer)
7484             If (Original_UserID.HasValue = true) Then
7485                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7486                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
7487             Else
7488                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7489                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7490             End If
7491             If (Original_GameID.HasValue = true) Then
7492                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7493                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7494             Else
7495                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7496                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7497             End If
7498             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7499             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7500                         <> Global.System.Data.ConnectionState.Open) Then
7501                 Me.Adapter.DeleteCommand.Connection.Open
7502             End If
7503             Try
7504                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7505                 Return returnValue
7506             Finally
7507                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7508                     Me.Adapter.DeleteCommand.Connection.Close
7509                 End If
7510             End Try
7511         End Function
7512
7513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7515          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7516          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7517         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
7518             If (UserID.HasValue = true) Then
7519                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7520             Else
7521                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7522             End If
7523             If (GameID.HasValue = true) Then
7524                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7525             Else
7526                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7527             End If
7528             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7529             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7530                         <> Global.System.Data.ConnectionState.Open) Then
7531                 Me.Adapter.InsertCommand.Connection.Open
7532             End If
7533             Try
7534                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7535                 Return returnValue
7536             Finally
7537                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7538                     Me.Adapter.InsertCommand.Connection.Close
7539                 End If
7540             End Try
7541         End Function
7542
7543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7545          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7546          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7547         Public Overloads Overridable Function Update(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_PurchaseID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7548             If (UserID.HasValue = true) Then
7549                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7550             Else
7551                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7552             End If
7553             If (GameID.HasValue = true) Then
7554                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7555             Else
7556                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7557             End If
7558             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_PurchaseID,Integer)
7559             If (Original_UserID.HasValue = true) Then
7560                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7561                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
7562             Else
7563                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7564                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7565             End If
7566             If (Original_GameID.HasValue = true) Then
7567                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
7568                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
7569             Else
7570                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
7571                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7572             End If
7573             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7574             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7575                         <> Global.System.Data.ConnectionState.Open) Then
7576                 Me.Adapter.UpdateCommand.Connection.Open
7577             End If
7578             Try
7579                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7580                 Return returnValue
7581             Finally
7582                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7583                     Me.Adapter.UpdateCommand.Connection.Close
7584                 End If
7585             End Try
7586         End Function
7587     End Class
7588
7589     '''<summary>
7590     '''Represents the connection and commands used to retrieve and save data.
7591     '''</summary>
7592     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7593      Global.System.ComponentModel.ToolboxItem(true),  _
7594      Global.System.ComponentModel.DataObjectAttribute(true),  _
7595      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7596         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7597      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7598     Partial Public Class ReviewsTableAdapter
7599         Inherits Global.System.ComponentModel.Component
7600
7601         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7602
7603         Private _connection As Global.System.Data.OleDb.OleDbConnection
7604
7605         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7606
7607         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7608
7609         Private _clearBeforeFill As Boolean
7610
7611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7613         Public Sub New()
7614             MyBase.New
7615             Me.ClearBeforeFill = true
7616         End Sub
7617
7618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7620         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7621             Get
7622                 If (Me._adapter Is Nothing) Then
7623                     Me.InitAdapter
7624                 End If
7625                 Return Me._adapter
7626             End Get
7627         End Property
7628
7629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7631         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7632             Get
7633                 If (Me._connection Is Nothing) Then
7634                     Me.InitConnection
7635                 End If
7636                 Return Me._connection
7637             End Get
7638             Set
7639                 Me._connection = value
7640                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7641                     Me.Adapter.InsertCommand.Connection = value
7642                 End If
7643                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7644                     Me.Adapter.DeleteCommand.Connection = value
7645                 End If
7646                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7647                     Me.Adapter.UpdateCommand.Connection = value
7648                 End If
7649                 Dim i As Integer = 0
7650                 Do While (i < Me.CommandCollection.Length)
7651                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7652                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7653                     End If
7654                     i = (i + 1)
7655                 Loop
7656             End Set
7657         End Property
7658
7659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7661         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7662             Get
7663                 Return Me._transaction
7664             End Get
7665             Set
7666                 Me._transaction = value
7667                 Dim i As Integer = 0
7668                 Do While (i < Me.CommandCollection.Length)
7669                     Me.CommandCollection(i).Transaction = Me._transaction
7670                     i = (i + 1)
7671                 Loop
7672                 If ((Not (Me.Adapter) Is Nothing)  _
7673                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7674                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7675                 End If
7676                 If ((Not (Me.Adapter) Is Nothing)  _
7677                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7678                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7679                 End If
7680                 If ((Not (Me.Adapter) Is Nothing)  _
7681                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7682                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7683                 End If
7684             End Set
7685         End Property
7686
7687         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7688          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7689         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7690             Get
7691                 If (Me._commandCollection Is Nothing) Then
7692                     Me.InitCommandCollection
7693                 End If
7694                 Return Me._commandCollection
7695             End Get
7696         End Property
7697
7698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7700         Public Property ClearBeforeFill() As Boolean
7701             Get
7702                 Return Me._clearBeforeFill
7703             End Get
7704             Set
7705                 Me._clearBeforeFill = value
7706             End Set
7707         End Property
7708
7709         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7710          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7711         Private Sub InitAdapter()
7712             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7713             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7714             tableMapping.SourceTable = "Table"
7715             tableMapping.DataSetTable = "Reviews"
7716             tableMapping.ColumnMappings.Add("ReviewID", "ReviewID")
7717             tableMapping.ColumnMappings.Add("GameID", "GameID")
7718             tableMapping.ColumnMappings.Add("Review", "Review")
7719             Me._adapter.TableMappings.Add(tableMapping)
7720             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7721             Me._adapter.DeleteCommand.Connection = Me.Connection
7722             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Reviews` WHERE ((`ReviewID` = ?) AND ((? = 1 AND `GameID` IS NULL) O"& _
7723                 "R (`GameID` = ?)))"
7724             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7725             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ReviewID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ReviewID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7726             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7727             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7728             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7729             Me._adapter.InsertCommand.Connection = Me.Connection
7730             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Reviews` (`GameID`, `Review`) VALUES (?, ?)"
7731             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7732             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7733             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Review", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Review", Global.System.Data.DataRowVersion.Current, false, Nothing))
7734             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7735             Me._adapter.UpdateCommand.Connection = Me.Connection
7736             Me._adapter.UpdateCommand.CommandText = "UPDATE `Reviews` SET `GameID` = ?, `Review` = ? WHERE ((`ReviewID` = ?) AND ((? ="& _
7737                 " 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7738             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7739             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7740             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Review", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Review", Global.System.Data.DataRowVersion.Current, false, Nothing))
7741             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ReviewID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ReviewID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7742             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7743             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7744         End Sub
7745
7746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7748         Private Sub InitConnection()
7749             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7750             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
7751         End Sub
7752
7753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7755         Private Sub InitCommandCollection()
7756             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7757             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7758             Me._commandCollection(0).Connection = Me.Connection
7759             Me._commandCollection(0).CommandText = "SELECT ReviewID, GameID, Review FROM Reviews"
7760             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7761         End Sub
7762
7763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7765          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7766          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7767         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7768             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7769             If (Me.ClearBeforeFill = true) Then
7770                 dataTable.Clear
7771             End If
7772             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7773             Return returnValue
7774         End Function
7775
7776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7778          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7779          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7780         Public Overloads Overridable Function GetData() As NEADataSet.ReviewsDataTable
7781             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7782             Dim dataTable As NEADataSet.ReviewsDataTable = New NEADataSet.ReviewsDataTable()
7783             Me.Adapter.Fill(dataTable)
7784             Return dataTable
7785         End Function
7786
7787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7789          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7790         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7791             Return Me.Adapter.Update(dataTable)
7792         End Function
7793
7794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7796          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7797         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7798             Return Me.Adapter.Update(dataSet, "Reviews")
7799         End Function
7800
7801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7803          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7804         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7805             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7806         End Function
7807
7808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7810          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7811         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7812             Return Me.Adapter.Update(dataRows)
7813         End Function
7814
7815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7817          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7818          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7819         Public Overloads Overridable Function Delete(ByVal Original_ReviewID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7820             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ReviewID,Integer)
7821             If (Original_GameID.HasValue = true) Then
7822                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7823                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
7824             Else
7825                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7826                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7827             End If
7828             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7829             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7830                         <> Global.System.Data.ConnectionState.Open) Then
7831                 Me.Adapter.DeleteCommand.Connection.Open
7832             End If
7833             Try
7834                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7835                 Return returnValue
7836             Finally
7837                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7838                     Me.Adapter.DeleteCommand.Connection.Close
7839                 End If
7840             End Try
7841         End Function
7842
7843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7845          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7846          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7847         Public Overloads Overridable Function Insert(ByVal GameID As Global.System.Nullable(Of Integer), ByVal Review As String) As Integer
7848             If (GameID.HasValue = true) Then
7849                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7850             Else
7851                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7852             End If
7853             If (Review Is Nothing) Then
7854                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7855             Else
7856                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Review,String)
7857             End If
7858             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7859             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7860                         <> Global.System.Data.ConnectionState.Open) Then
7861                 Me.Adapter.InsertCommand.Connection.Open
7862             End If
7863             Try
7864                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7865                 Return returnValue
7866             Finally
7867                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7868                     Me.Adapter.InsertCommand.Connection.Close
7869                 End If
7870             End Try
7871         End Function
7872
7873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7875          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7876          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7877         Public Overloads Overridable Function Update(ByVal GameID As Global.System.Nullable(Of Integer), ByVal Review As String, ByVal Original_ReviewID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7878             If (GameID.HasValue = true) Then
7879                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7880             Else
7881                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7882             End If
7883             If (Review Is Nothing) Then
7884                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7885             Else
7886                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Review,String)
7887             End If
7888             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ReviewID,Integer)
7889             If (Original_GameID.HasValue = true) Then
7890                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7891                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7892             Else
7893                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7894                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7895             End If
7896             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7897             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7898                         <> Global.System.Data.ConnectionState.Open) Then
7899                 Me.Adapter.UpdateCommand.Connection.Open
7900             End If
7901             Try
7902                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7903                 Return returnValue
7904             Finally
7905                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7906                     Me.Adapter.UpdateCommand.Connection.Close
7907                 End If
7908             End Try
7909         End Function
7910     End Class
7911
7912     '''<summary>
7913     '''Represents the connection and commands used to retrieve and save data.
7914     '''</summary>
7915     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7916      Global.System.ComponentModel.ToolboxItem(true),  _
7917      Global.System.ComponentModel.DataObjectAttribute(true),  _
7918      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7919         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7920      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7921     Partial Public Class TagsTableAdapter
7922         Inherits Global.System.ComponentModel.Component
7923
7924         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7925
7926         Private _connection As Global.System.Data.OleDb.OleDbConnection
7927
7928         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7929
7930         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7931
7932         Private _clearBeforeFill As Boolean
7933
7934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7936         Public Sub New()
7937             MyBase.New
7938             Me.ClearBeforeFill = true
7939         End Sub
7940
7941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7943         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7944             Get
7945                 If (Me._adapter Is Nothing) Then
7946                     Me.InitAdapter
7947                 End If
7948                 Return Me._adapter
7949             End Get
7950         End Property
7951
7952         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7953          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7954         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7955             Get
7956                 If (Me._connection Is Nothing) Then
7957                     Me.InitConnection
7958                 End If
7959                 Return Me._connection
7960             End Get
7961             Set
7962                 Me._connection = value
7963                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7964                     Me.Adapter.InsertCommand.Connection = value
7965                 End If
7966                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7967                     Me.Adapter.DeleteCommand.Connection = value
7968                 End If
7969                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7970                     Me.Adapter.UpdateCommand.Connection = value
7971                 End If
7972                 Dim i As Integer = 0
7973                 Do While (i < Me.CommandCollection.Length)
7974                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7975                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7976                     End If
7977                     i = (i + 1)
7978                 Loop
7979             End Set
7980         End Property
7981
7982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7984         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7985             Get
7986                 Return Me._transaction
7987             End Get
7988             Set
7989                 Me._transaction = value
7990                 Dim i As Integer = 0
7991                 Do While (i < Me.CommandCollection.Length)
7992                     Me.CommandCollection(i).Transaction = Me._transaction
7993                     i = (i + 1)
7994                 Loop
7995                 If ((Not (Me.Adapter) Is Nothing)  _
7996                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7997                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7998                 End If
7999                 If ((Not (Me.Adapter) Is Nothing)  _
8000                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8001                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8002                 End If
8003                 If ((Not (Me.Adapter) Is Nothing)  _
8004                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8005                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8006                 End If
8007             End Set
8008         End Property
8009
8010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8012         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8013             Get
8014                 If (Me._commandCollection Is Nothing) Then
8015                     Me.InitCommandCollection
8016                 End If
8017                 Return Me._commandCollection
8018             End Get
8019         End Property
8020
8021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8023         Public Property ClearBeforeFill() As Boolean
8024             Get
8025                 Return Me._clearBeforeFill
8026             End Get
8027             Set
8028                 Me._clearBeforeFill = value
8029             End Set
8030         End Property
8031
8032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8034         Private Sub InitAdapter()
8035             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8036             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8037             tableMapping.SourceTable = "Table"
8038             tableMapping.DataSetTable = "Tags"
8039             tableMapping.ColumnMappings.Add("ID", "ID")
8040             Me._adapter.TableMappings.Add(tableMapping)
8041             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8042             Me._adapter.DeleteCommand.Connection = Me.Connection
8043             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Tags` WHERE ((`ID` = ?))"
8044             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8045             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8046             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8047             Me._adapter.InsertCommand.Connection = Me.Connection
8048             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Tags` DEFAULT VALUES"
8049             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8050             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8051             Me._adapter.UpdateCommand.Connection = Me.Connection
8052             Me._adapter.UpdateCommand.CommandText = "UPDATE `Tags` WHERE ((`ID` = ?))"
8053             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8054             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8055         End Sub
8056
8057         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8058          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8059         Private Sub InitConnection()
8060             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8061             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8062         End Sub
8063
8064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8066         Private Sub InitCommandCollection()
8067             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8068             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8069             Me._commandCollection(0).Connection = Me.Connection
8070             Me._commandCollection(0).CommandText = "SELECT ID FROM Tags"
8071             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8072         End Sub
8073
8074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8076          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8077          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8078         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8079             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8080             If (Me.ClearBeforeFill = true) Then
8081                 dataTable.Clear
8082             End If
8083             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8084             Return returnValue
8085         End Function
8086
8087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8089          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8090          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8091         Public Overloads Overridable Function GetData() As NEADataSet.TagsDataTable
8092             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8093             Dim dataTable As NEADataSet.TagsDataTable = New NEADataSet.TagsDataTable()
8094             Me.Adapter.Fill(dataTable)
8095             Return dataTable
8096         End Function
8097
8098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8100          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8101         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8102             Return Me.Adapter.Update(dataTable)
8103         End Function
8104
8105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8107          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8108         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8109             Return Me.Adapter.Update(dataSet, "Tags")
8110         End Function
8111
8112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8114          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8115         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8116             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8117         End Function
8118
8119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8121          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8122         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8123             Return Me.Adapter.Update(dataRows)
8124         End Function
8125
8126         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8127          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8128          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8129          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8130         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer) As Integer
8131             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
8132             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8133             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8134                         <> Global.System.Data.ConnectionState.Open) Then
8135                 Me.Adapter.DeleteCommand.Connection.Open
8136             End If
8137             Try
8138                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8139                 Return returnValue
8140             Finally
8141                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8142                     Me.Adapter.DeleteCommand.Connection.Close
8143                 End If
8144             End Try
8145         End Function
8146
8147         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8148          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8149          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8150          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8151         Public Overloads Overridable Function Insert() As Integer
8152             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8153             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8154                         <> Global.System.Data.ConnectionState.Open) Then
8155                 Me.Adapter.InsertCommand.Connection.Open
8156             End If
8157             Try
8158                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8159                 Return returnValue
8160             Finally
8161                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8162                     Me.Adapter.InsertCommand.Connection.Close
8163                 End If
8164             End Try
8165         End Function
8166
8167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8169          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8170          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8171         Public Overloads Overridable Function Update(ByVal Original_ID As Integer) As Integer
8172             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Original_ID,Integer)
8173             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8174             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8175                         <> Global.System.Data.ConnectionState.Open) Then
8176                 Me.Adapter.UpdateCommand.Connection.Open
8177             End If
8178             Try
8179                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8180                 Return returnValue
8181             Finally
8182                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8183                     Me.Adapter.UpdateCommand.Connection.Close
8184                 End If
8185             End Try
8186         End Function
8187     End Class
8188
8189     '''<summary>
8190     '''Represents the connection and commands used to retrieve and save data.
8191     '''</summary>
8192     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8193      Global.System.ComponentModel.ToolboxItem(true),  _
8194      Global.System.ComponentModel.DataObjectAttribute(true),  _
8195      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8196         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8197      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8198     Partial Public Class User_DetailsTableAdapter
8199         Inherits Global.System.ComponentModel.Component
8200
8201         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8202
8203         Private _connection As Global.System.Data.OleDb.OleDbConnection
8204
8205         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8206
8207         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8208
8209         Private _clearBeforeFill As Boolean
8210
8211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8213         Public Sub New()
8214             MyBase.New
8215             Me.ClearBeforeFill = true
8216         End Sub
8217
8218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8220         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8221             Get
8222                 If (Me._adapter Is Nothing) Then
8223                     Me.InitAdapter
8224                 End If
8225                 Return Me._adapter
8226             End Get
8227         End Property
8228
8229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8231         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8232             Get
8233                 If (Me._connection Is Nothing) Then
8234                     Me.InitConnection
8235                 End If
8236                 Return Me._connection
8237             End Get
8238             Set
8239                 Me._connection = value
8240                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8241                     Me.Adapter.InsertCommand.Connection = value
8242                 End If
8243                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8244                     Me.Adapter.DeleteCommand.Connection = value
8245                 End If
8246                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8247                     Me.Adapter.UpdateCommand.Connection = value
8248                 End If
8249                 Dim i As Integer = 0
8250                 Do While (i < Me.CommandCollection.Length)
8251                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8252                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8253                     End If
8254                     i = (i + 1)
8255                 Loop
8256             End Set
8257         End Property
8258
8259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8261         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8262             Get
8263                 Return Me._transaction
8264             End Get
8265             Set
8266                 Me._transaction = value
8267                 Dim i As Integer = 0
8268                 Do While (i < Me.CommandCollection.Length)
8269                     Me.CommandCollection(i).Transaction = Me._transaction
8270                     i = (i + 1)
8271                 Loop
8272                 If ((Not (Me.Adapter) Is Nothing)  _
8273                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8274                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8275                 End If
8276                 If ((Not (Me.Adapter) Is Nothing)  _
8277                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8278                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8279                 End If
8280                 If ((Not (Me.Adapter) Is Nothing)  _
8281                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8282                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8283                 End If
8284             End Set
8285         End Property
8286
8287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8289         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8290             Get
8291                 If (Me._commandCollection Is Nothing) Then
8292                     Me.InitCommandCollection
8293                 End If
8294                 Return Me._commandCollection
8295             End Get
8296         End Property
8297
8298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8300         Public Property ClearBeforeFill() As Boolean
8301             Get
8302                 Return Me._clearBeforeFill
8303             End Get
8304             Set
8305                 Me._clearBeforeFill = value
8306             End Set
8307         End Property
8308
8309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8311         Private Sub InitAdapter()
8312             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8313             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8314             tableMapping.SourceTable = "Table"
8315             tableMapping.DataSetTable = "User_Details"
8316             tableMapping.ColumnMappings.Add("UserDetailsID", "UserDetailsID")
8317             tableMapping.ColumnMappings.Add("FirstName", "FirstName")
8318             tableMapping.ColumnMappings.Add("LastName", "LastName")
8319             tableMapping.ColumnMappings.Add("AddressLine1", "AddressLine1")
8320             tableMapping.ColumnMappings.Add("Town", "Town")
8321             tableMapping.ColumnMappings.Add("Postcode", "Postcode")
8322             tableMapping.ColumnMappings.Add("CardNumber", "CardNumber")
8323             tableMapping.ColumnMappings.Add("CVC", "CVC")
8324             tableMapping.ColumnMappings.Add("IGN", "IGN")
8325             tableMapping.ColumnMappings.Add("Email", "Email")
8326             tableMapping.ColumnMappings.Add("ProfilePic", "ProfilePic")
8327             Me._adapter.TableMappings.Add(tableMapping)
8328             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8329             Me._adapter.DeleteCommand.Connection = Me.Connection
8330             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Details` WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS"& _
8331                 " NULL) OR (`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` ="& _
8332                 " ?)) AND ((? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8333             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8334             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserDetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserDetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8335             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Town", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, true, Nothing))
8336             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, false, Nothing))
8337             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, true, Nothing))
8338             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, false, Nothing))
8339             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, true, Nothing))
8340             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, false, Nothing))
8341             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8342             Me._adapter.InsertCommand.Connection = Me.Connection
8343             Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
8344                 "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
8345                 ", ?, ?, ?, ?, ?)"
8346             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8347             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FirstName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8348             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("LastName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8349             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("AddressLine1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AddressLine1", Global.System.Data.DataRowVersion.Current, false, Nothing))
8350             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Current, false, Nothing))
8351             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Postcode", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing))
8352             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Current, false, Nothing))
8353             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Current, false, Nothing))
8354             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IGN", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "IGN", Global.System.Data.DataRowVersion.Current, false, Nothing))
8355             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
8356             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8357             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8358             Me._adapter.UpdateCommand.Connection = Me.Connection
8359             Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Details` SET `FirstName` = ?, `LastName` = ?, `AddressLine1` = ?, `T"& _
8360                 "own` = ?, `Postcode` = ?, `CardNumber` = ?, `CVC` = ?, `IGN` = ?, `Email` = ?, `"& _
8361                 "ProfilePic` = ? WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS NULL) OR "& _
8362                 "(`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` = ?)) AND ("& _
8363                 "(? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8364             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8365             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FirstName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8366             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("LastName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8367             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("AddressLine1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AddressLine1", Global.System.Data.DataRowVersion.Current, false, Nothing))
8368             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Current, false, Nothing))
8369             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Postcode", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing))
8370             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Current, false, Nothing))
8371             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Current, false, Nothing))
8372             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IGN", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "IGN", Global.System.Data.DataRowVersion.Current, false, Nothing))
8373             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
8374             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8375             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserDetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserDetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8376             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Town", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, true, Nothing))
8377             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, false, Nothing))
8378             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, true, Nothing))
8379             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, false, Nothing))
8380             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, true, Nothing))
8381             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, false, Nothing))
8382         End Sub
8383
8384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8386         Private Sub InitConnection()
8387             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8388             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8389         End Sub
8390
8391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8393         Private Sub InitCommandCollection()
8394             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8395             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8396             Me._commandCollection(0).Connection = Me.Connection
8397             Me._commandCollection(0).CommandText = "SELECT UserDetailsID, FirstName, LastName, AddressLine1, Town, Postcode, CardNumb"& _
8398                 "er, CVC, IGN, Email, ProfilePic FROM User_Details"
8399             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8400         End Sub
8401
8402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8404          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8405          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8406         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8407             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8408             If (Me.ClearBeforeFill = true) Then
8409                 dataTable.Clear
8410             End If
8411             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8412             Return returnValue
8413         End Function
8414
8415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8417          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8418          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8419         Public Overloads Overridable Function GetData() As NEADataSet.User_DetailsDataTable
8420             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8421             Dim dataTable As NEADataSet.User_DetailsDataTable = New NEADataSet.User_DetailsDataTable()
8422             Me.Adapter.Fill(dataTable)
8423             Return dataTable
8424         End Function
8425
8426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8428          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8429         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8430             Return Me.Adapter.Update(dataTable)
8431         End Function
8432
8433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8435          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8436         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8437             Return Me.Adapter.Update(dataSet, "User_Details")
8438         End Function
8439
8440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8442          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8443         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8444             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8445         End Function
8446
8447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8449          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8450         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8451             Return Me.Adapter.Update(dataRows)
8452         End Function
8453
8454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8456          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8457          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8458         Public Overloads Overridable Function Delete(ByVal Original_UserDetailsID As Integer, ByVal Original_Town As String, ByVal Original_CardNumber As Global.System.Nullable(Of Integer), ByVal Original_CVC As Global.System.Nullable(Of Integer)) As Integer
8459             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserDetailsID,Integer)
8460             If (Original_Town Is Nothing) Then
8461                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8462                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8463             Else
8464                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8465                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Town,String)
8466             End If
8467             If (Original_CardNumber.HasValue = true) Then
8468                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
8469                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CardNumber.Value,Integer)
8470             Else
8471                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
8472                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
8473             End If
8474             If (Original_CVC.HasValue = true) Then
8475                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
8476                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CVC.Value,Integer)
8477             Else
8478                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
8479                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
8480             End If
8481             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8482             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8483                         <> Global.System.Data.ConnectionState.Open) Then
8484                 Me.Adapter.DeleteCommand.Connection.Open
8485             End If
8486             Try
8487                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8488                 Return returnValue
8489             Finally
8490                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8491                     Me.Adapter.DeleteCommand.Connection.Close
8492                 End If
8493             End Try
8494         End Function
8495
8496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8498          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8499          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8500         Public Overloads Overridable Function Insert(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Global.System.Nullable(Of Integer), ByVal CVC As Global.System.Nullable(Of Integer), ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte) As Integer
8501             If (FirstName Is Nothing) Then
8502                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8503             Else
8504                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirstName,String)
8505             End If
8506             If (LastName Is Nothing) Then
8507                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8508             Else
8509                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(LastName,String)
8510             End If
8511             If (AddressLine1 Is Nothing) Then
8512                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8513             Else
8514                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(AddressLine1,String)
8515             End If
8516             If (Town Is Nothing) Then
8517                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
8518             Else
8519                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Town,String)
8520             End If
8521             If (Postcode Is Nothing) Then
8522                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
8523             Else
8524                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Postcode,String)
8525             End If
8526             If (CardNumber.HasValue = true) Then
8527                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8528             Else
8529                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
8530             End If
8531             If (CVC.HasValue = true) Then
8532                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8533             Else
8534                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
8535             End If
8536             If (IGN Is Nothing) Then
8537                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
8538             Else
8539                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(IGN,String)
8540             End If
8541             If (Email Is Nothing) Then
8542                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
8543             Else
8544                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Email,String)
8545             End If
8546             If (ProfilePic Is Nothing) Then
8547                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
8548             Else
8549                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,Byte())
8550             End If
8551             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8552             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8553                         <> Global.System.Data.ConnectionState.Open) Then
8554                 Me.Adapter.InsertCommand.Connection.Open
8555             End If
8556             Try
8557                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8558                 Return returnValue
8559             Finally
8560                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8561                     Me.Adapter.InsertCommand.Connection.Close
8562                 End If
8563             End Try
8564         End Function
8565
8566         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8567          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8568          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8569          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8570         Public Overloads Overridable Function Update(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Global.System.Nullable(Of Integer), ByVal CVC As Global.System.Nullable(Of Integer), ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte, ByVal Original_UserDetailsID As Integer, ByVal Original_Town As String, ByVal Original_CardNumber As Global.System.Nullable(Of Integer), ByVal Original_CVC As Global.System.Nullable(Of Integer)) As Integer
8571             If (FirstName Is Nothing) Then
8572                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8573             Else
8574                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirstName,String)
8575             End If
8576             If (LastName Is Nothing) Then
8577                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8578             Else
8579                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LastName,String)
8580             End If
8581             If (AddressLine1 Is Nothing) Then
8582                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8583             Else
8584                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AddressLine1,String)
8585             End If
8586             If (Town Is Nothing) Then
8587                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
8588             Else
8589                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Town,String)
8590             End If
8591             If (Postcode Is Nothing) Then
8592                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
8593             Else
8594                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Postcode,String)
8595             End If
8596             If (CardNumber.HasValue = true) Then
8597                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8598             Else
8599                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8600             End If
8601             If (CVC.HasValue = true) Then
8602                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8603             Else
8604                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
8605             End If
8606             If (IGN Is Nothing) Then
8607                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
8608             Else
8609                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IGN,String)
8610             End If
8611             If (Email Is Nothing) Then
8612                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
8613             Else
8614                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Email,String)
8615             End If
8616             If (ProfilePic Is Nothing) Then
8617                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
8618             Else
8619                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,Byte())
8620             End If
8621             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_UserDetailsID,Integer)
8622             If (Original_Town Is Nothing) Then
8623                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
8624                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
8625             Else
8626                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
8627                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Town,String)
8628             End If
8629             If (Original_CardNumber.HasValue = true) Then
8630                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
8631                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CardNumber.Value,Integer)
8632             Else
8633                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
8634                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
8635             End If
8636             If (Original_CVC.HasValue = true) Then
8637                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
8638                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CVC.Value,Integer)
8639             Else
8640                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
8641                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
8642             End If
8643             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8644             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8645                         <> Global.System.Data.ConnectionState.Open) Then
8646                 Me.Adapter.UpdateCommand.Connection.Open
8647             End If
8648             Try
8649                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8650                 Return returnValue
8651             Finally
8652                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8653                     Me.Adapter.UpdateCommand.Connection.Close
8654                 End If
8655             End Try
8656         End Function
8657     End Class
8658
8659     '''<summary>
8660     '''Represents the connection and commands used to retrieve and save data.
8661     '''</summary>
8662     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8663      Global.System.ComponentModel.ToolboxItem(true),  _
8664      Global.System.ComponentModel.DataObjectAttribute(true),  _
8665      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8666         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8667      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8668     Partial Public Class UsersTableAdapter
8669         Inherits Global.System.ComponentModel.Component
8670
8671         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8672
8673         Private _connection As Global.System.Data.OleDb.OleDbConnection
8674
8675         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8676
8677         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8678
8679         Private _clearBeforeFill As Boolean
8680
8681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8683         Public Sub New()
8684             MyBase.New
8685             Me.ClearBeforeFill = true
8686         End Sub
8687
8688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8690         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8691             Get
8692                 If (Me._adapter Is Nothing) Then
8693                     Me.InitAdapter
8694                 End If
8695                 Return Me._adapter
8696             End Get
8697         End Property
8698
8699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8701         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8702             Get
8703                 If (Me._connection Is Nothing) Then
8704                     Me.InitConnection
8705                 End If
8706                 Return Me._connection
8707             End Get
8708             Set
8709                 Me._connection = value
8710                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8711                     Me.Adapter.InsertCommand.Connection = value
8712                 End If
8713                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8714                     Me.Adapter.DeleteCommand.Connection = value
8715                 End If
8716                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8717                     Me.Adapter.UpdateCommand.Connection = value
8718                 End If
8719                 Dim i As Integer = 0
8720                 Do While (i < Me.CommandCollection.Length)
8721                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8722                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8723                     End If
8724                     i = (i + 1)
8725                 Loop
8726             End Set
8727         End Property
8728
8729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8731         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8732             Get
8733                 Return Me._transaction
8734             End Get
8735             Set
8736                 Me._transaction = value
8737                 Dim i As Integer = 0
8738                 Do While (i < Me.CommandCollection.Length)
8739                     Me.CommandCollection(i).Transaction = Me._transaction
8740                     i = (i + 1)
8741                 Loop
8742                 If ((Not (Me.Adapter) Is Nothing)  _
8743                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8744                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8745                 End If
8746                 If ((Not (Me.Adapter) Is Nothing)  _
8747                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8748                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8749                 End If
8750                 If ((Not (Me.Adapter) Is Nothing)  _
8751                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8752                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8753                 End If
8754             End Set
8755         End Property
8756
8757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8759         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8760             Get
8761                 If (Me._commandCollection Is Nothing) Then
8762                     Me.InitCommandCollection
8763                 End If
8764                 Return Me._commandCollection
8765             End Get
8766         End Property
8767
8768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8770         Public Property ClearBeforeFill() As Boolean
8771             Get
8772                 Return Me._clearBeforeFill
8773             End Get
8774             Set
8775                 Me._clearBeforeFill = value
8776             End Set
8777         End Property
8778
8779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8781         Private Sub InitAdapter()
8782             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8783             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8784             tableMapping.SourceTable = "Table"
8785             tableMapping.DataSetTable = "Users"
8786             tableMapping.ColumnMappings.Add("UserID", "UserID")
8787             tableMapping.ColumnMappings.Add("User_DetailsID", "User_DetailsID")
8788             tableMapping.ColumnMappings.Add("Username", "Username")
8789             tableMapping.ColumnMappings.Add("Password", "Password")
8790             Me._adapter.TableMappings.Add(tableMapping)
8791             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8792             Me._adapter.DeleteCommand.Connection = Me.Connection
8793             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Users` WHERE ((`UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NUL"& _
8794                 "L) OR (`User_DetailsID` = ?)))"
8795             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8796             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8797             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, true, Nothing))
8798             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8799             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8800             Me._adapter.InsertCommand.Connection = Me.Connection
8801             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Users` (`User_DetailsID`, `Username`, `Password`) VALUES (?, ?, ?)"
8802             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8803             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Current, false, Nothing))
8804             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing))
8805             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
8806             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8807             Me._adapter.UpdateCommand.Connection = Me.Connection
8808             Me._adapter.UpdateCommand.CommandText = "UPDATE `Users` SET `User_DetailsID` = ?, `Username` = ?, `Password` = ? WHERE ((`"& _
8809                 "UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NULL) OR (`User_DetailsID` = ?)"& _
8810                 "))"
8811             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8812             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Current, false, Nothing))
8813             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing))
8814             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
8815             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8816             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, true, Nothing))
8817             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8818         End Sub
8819
8820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8822         Private Sub InitConnection()
8823             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8824             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8825         End Sub
8826
8827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8829         Private Sub InitCommandCollection()
8830             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8831             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8832             Me._commandCollection(0).Connection = Me.Connection
8833             Me._commandCollection(0).CommandText = "SELECT UserID, User_DetailsID, Username, [Password] FROM Users"
8834             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8835         End Sub
8836
8837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8839          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8840          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8841         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8842             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8843             If (Me.ClearBeforeFill = true) Then
8844                 dataTable.Clear
8845             End If
8846             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8847             Return returnValue
8848         End Function
8849
8850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8852          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8853          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8854         Public Overloads Overridable Function GetData() As NEADataSet.UsersDataTable
8855             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8856             Dim dataTable As NEADataSet.UsersDataTable = New NEADataSet.UsersDataTable()
8857             Me.Adapter.Fill(dataTable)
8858             Return dataTable
8859         End Function
8860
8861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8863          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8864         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8865             Return Me.Adapter.Update(dataTable)
8866         End Function
8867
8868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8870          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8871         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8872             Return Me.Adapter.Update(dataSet, "Users")
8873         End Function
8874
8875         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8876          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8877          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8878         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8879             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8880         End Function
8881
8882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8884          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8885         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8886             Return Me.Adapter.Update(dataRows)
8887         End Function
8888
8889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8891          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8892          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8893         Public Overloads Overridable Function Delete(ByVal Original_UserID As Integer, ByVal Original_User_DetailsID As Global.System.Nullable(Of Integer)) As Integer
8894             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,Integer)
8895             If (Original_User_DetailsID.HasValue = true) Then
8896                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8897                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_User_DetailsID.Value,Integer)
8898             Else
8899                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8900                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8901             End If
8902             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8903             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8904                         <> Global.System.Data.ConnectionState.Open) Then
8905                 Me.Adapter.DeleteCommand.Connection.Open
8906             End If
8907             Try
8908                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8909                 Return returnValue
8910             Finally
8911                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8912                     Me.Adapter.DeleteCommand.Connection.Close
8913                 End If
8914             End Try
8915         End Function
8916
8917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8919          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8920          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8921         Public Overloads Overridable Function Insert(ByVal User_DetailsID As Global.System.Nullable(Of Integer), ByVal Username As String, ByVal Password As String) As Integer
8922             If (User_DetailsID.HasValue = true) Then
8923                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8924             Else
8925                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8926             End If
8927             If (Username Is Nothing) Then
8928                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8929             Else
8930                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Username,String)
8931             End If
8932             If (Password Is Nothing) Then
8933                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8934             Else
8935                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
8936             End If
8937             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8938             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8939                         <> Global.System.Data.ConnectionState.Open) Then
8940                 Me.Adapter.InsertCommand.Connection.Open
8941             End If
8942             Try
8943                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8944                 Return returnValue
8945             Finally
8946                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8947                     Me.Adapter.InsertCommand.Connection.Close
8948                 End If
8949             End Try
8950         End Function
8951
8952         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8953          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8954          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8955          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8956         Public Overloads Overridable Function Update(ByVal User_DetailsID As Global.System.Nullable(Of Integer), ByVal Username As String, ByVal Password As String, ByVal Original_UserID As Integer, ByVal Original_User_DetailsID As Global.System.Nullable(Of Integer)) As Integer
8957             If (User_DetailsID.HasValue = true) Then
8958                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8959             Else
8960                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8961             End If
8962             If (Username Is Nothing) Then
8963                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8964             Else
8965                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Username,String)
8966             End If
8967             If (Password Is Nothing) Then
8968                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8969             Else
8970                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
8971             End If
8972             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_UserID,Integer)
8973             If (Original_User_DetailsID.HasValue = true) Then
8974                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
8975                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_User_DetailsID.Value,Integer)
8976             Else
8977                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
8978                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8979             End If
8980             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8981             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8982                         <> Global.System.Data.ConnectionState.Open) Then
8983                 Me.Adapter.UpdateCommand.Connection.Open
8984             End If
8985             Try
8986                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8987                 Return returnValue
8988             Finally
8989                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8990                     Me.Adapter.UpdateCommand.Connection.Close
8991                 End If
8992             End Try
8993         End Function
8994     End Class
8995
8996     '''<summary>
8997     '''Represents the connection and commands used to retrieve and save data.
8998     '''</summary>
8999     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9000      Global.System.ComponentModel.ToolboxItem(true),  _
9001      Global.System.ComponentModel.DataObjectAttribute(true),  _
9002      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
9003         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9004      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9005     Partial Public Class WishlistTableAdapter
9006         Inherits Global.System.ComponentModel.Component
9007
9008         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
9009
9010         Private _connection As Global.System.Data.OleDb.OleDbConnection
9011
9012         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
9013
9014         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
9015
9016         Private _clearBeforeFill As Boolean
9017
9018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9020         Public Sub New()
9021             MyBase.New
9022             Me.ClearBeforeFill = true
9023         End Sub
9024
9025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9027         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
9028             Get
9029                 If (Me._adapter Is Nothing) Then
9030                     Me.InitAdapter
9031                 End If
9032                 Return Me._adapter
9033             End Get
9034         End Property
9035
9036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9038         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
9039             Get
9040                 If (Me._connection Is Nothing) Then
9041                     Me.InitConnection
9042                 End If
9043                 Return Me._connection
9044             End Get
9045             Set
9046                 Me._connection = value
9047                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
9048                     Me.Adapter.InsertCommand.Connection = value
9049                 End If
9050                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
9051                     Me.Adapter.DeleteCommand.Connection = value
9052                 End If
9053                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
9054                     Me.Adapter.UpdateCommand.Connection = value
9055                 End If
9056                 Dim i As Integer = 0
9057                 Do While (i < Me.CommandCollection.Length)
9058                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
9059                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
9060                     End If
9061                     i = (i + 1)
9062                 Loop
9063             End Set
9064         End Property
9065
9066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9068         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
9069             Get
9070                 Return Me._transaction
9071             End Get
9072             Set
9073                 Me._transaction = value
9074                 Dim i As Integer = 0
9075                 Do While (i < Me.CommandCollection.Length)
9076                     Me.CommandCollection(i).Transaction = Me._transaction
9077                     i = (i + 1)
9078                 Loop
9079                 If ((Not (Me.Adapter) Is Nothing)  _
9080                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
9081                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
9082                 End If
9083                 If ((Not (Me.Adapter) Is Nothing)  _
9084                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
9085                     Me.Adapter.InsertCommand.Transaction = Me._transaction
9086                 End If
9087                 If ((Not (Me.Adapter) Is Nothing)  _
9088                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
9089                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
9090                 End If
9091             End Set
9092         End Property
9093
9094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9096         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
9097             Get
9098                 If (Me._commandCollection Is Nothing) Then
9099                     Me.InitCommandCollection
9100                 End If
9101                 Return Me._commandCollection
9102             End Get
9103         End Property
9104
9105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9107         Public Property ClearBeforeFill() As Boolean
9108             Get
9109                 Return Me._clearBeforeFill
9110             End Get
9111             Set
9112                 Me._clearBeforeFill = value
9113             End Set
9114         End Property
9115
9116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9118         Private Sub InitAdapter()
9119             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
9120             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
9121             tableMapping.SourceTable = "Table"
9122             tableMapping.DataSetTable = "Wishlist"
9123             tableMapping.ColumnMappings.Add("WishlistID", "WishlistID")
9124             tableMapping.ColumnMappings.Add("UserID", "UserID")
9125             tableMapping.ColumnMappings.Add("GameID", "GameID")
9126             Me._adapter.TableMappings.Add(tableMapping)
9127             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
9128             Me._adapter.DeleteCommand.Connection = Me.Connection
9129             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Wishlist` WHERE ((`WishlistID` = ?) AND ((? = 1 AND `UserID` IS NULL"& _
9130                 ") OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
9131             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
9132             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WishlistID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WishlistID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9133             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9134             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9135             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9136             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9137             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
9138             Me._adapter.InsertCommand.Connection = Me.Connection
9139             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Wishlist` (`UserID`, `GameID`) VALUES (?, ?)"
9140             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
9141             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9142             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9143             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
9144             Me._adapter.UpdateCommand.Connection = Me.Connection
9145             Me._adapter.UpdateCommand.CommandText = "UPDATE `Wishlist` SET `UserID` = ?, `GameID` = ? WHERE ((`WishlistID` = ?) AND (("& _
9146                 "? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL)"& _
9147                 " OR (`GameID` = ?)))"
9148             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
9149             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9150             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9151             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WishlistID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WishlistID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9152             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9153             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9154             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9155             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9156         End Sub
9157
9158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9160         Private Sub InitConnection()
9161             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
9162             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
9163         End Sub
9164
9165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9167         Private Sub InitCommandCollection()
9168             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
9169             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
9170             Me._commandCollection(0).Connection = Me.Connection
9171             Me._commandCollection(0).CommandText = "SELECT WishlistID, UserID, GameID FROM Wishlist"
9172             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
9173         End Sub
9174
9175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9177          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9178          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
9179         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9180             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9181             If (Me.ClearBeforeFill = true) Then
9182                 dataTable.Clear
9183             End If
9184             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
9185             Return returnValue
9186         End Function
9187
9188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9190          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9191          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
9192         Public Overloads Overridable Function GetData() As NEADataSet.WishlistDataTable
9193             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9194             Dim dataTable As NEADataSet.WishlistDataTable = New NEADataSet.WishlistDataTable()
9195             Me.Adapter.Fill(dataTable)
9196             Return dataTable
9197         End Function
9198
9199         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9200          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9201          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9202         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9203             Return Me.Adapter.Update(dataTable)
9204         End Function
9205
9206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9208          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9209         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
9210             Return Me.Adapter.Update(dataSet, "Wishlist")
9211         End Function
9212
9213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9215          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9216         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
9217             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
9218         End Function
9219
9220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9222          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9223         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
9224             Return Me.Adapter.Update(dataRows)
9225         End Function
9226
9227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9229          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9230          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
9231         Public Overloads Overridable Function Delete(ByVal Original_WishlistID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
9232             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_WishlistID,Integer)
9233             If (Original_UserID.HasValue = true) Then
9234                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
9235                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
9236             Else
9237                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
9238                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
9239             End If
9240             If (Original_GameID.HasValue = true) Then
9241                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
9242                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
9243             Else
9244                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
9245                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
9246             End If
9247             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
9248             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9249                         <> Global.System.Data.ConnectionState.Open) Then
9250                 Me.Adapter.DeleteCommand.Connection.Open
9251             End If
9252             Try
9253                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
9254                 Return returnValue
9255             Finally
9256                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9257                     Me.Adapter.DeleteCommand.Connection.Close
9258                 End If
9259             End Try
9260         End Function
9261
9262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9264          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9265          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
9266         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
9267             If (UserID.HasValue = true) Then
9268                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9269             Else
9270                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
9271             End If
9272             If (GameID.HasValue = true) Then
9273                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9274             Else
9275                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
9276             End If
9277             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
9278             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9279                         <> Global.System.Data.ConnectionState.Open) Then
9280                 Me.Adapter.InsertCommand.Connection.Open
9281             End If
9282             Try
9283                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
9284                 Return returnValue
9285             Finally
9286                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9287                     Me.Adapter.InsertCommand.Connection.Close
9288                 End If
9289             End Try
9290         End Function
9291
9292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9294          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9295          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
9296         Public Overloads Overridable Function Update(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_WishlistID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
9297             If (UserID.HasValue = true) Then
9298                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9299             Else
9300                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
9301             End If
9302             If (GameID.HasValue = true) Then
9303                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9304             Else
9305                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
9306             End If
9307             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_WishlistID,Integer)
9308             If (Original_UserID.HasValue = true) Then
9309                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
9310                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
9311             Else
9312                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
9313                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
9314             End If
9315             If (Original_GameID.HasValue = true) Then
9316                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
9317                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
9318             Else
9319                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
9320                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
9321             End If
9322             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
9323             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9324                         <> Global.System.Data.ConnectionState.Open) Then
9325                 Me.Adapter.UpdateCommand.Connection.Open
9326             End If
9327             Try
9328                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
9329                 Return returnValue
9330             Finally
9331                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9332                     Me.Adapter.UpdateCommand.Connection.Close
9333                 End If
9334             End Try
9335         End Function
9336     End Class
9337
9338     '''<summary>
9339     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
9340     '''</summary>
9341     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9342      Global.System.ComponentModel.ToolboxItem(true),  _
9343      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
9344         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9345      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")>  _
9346     Partial Public Class TableAdapterManager
9347         Inherits Global.System.ComponentModel.Component
9348
9349         Private _updateOrder As UpdateOrderOption
9350
9351         Private _achievementTableAdapter As AchievementTableAdapter
9352
9353         Private _dOWTableAdapter As DOWTableAdapter
9354
9355         Private _friendsTableAdapter As FriendsTableAdapter
9356
9357         Private _gamesTableAdapter As GamesTableAdapter
9358
9359         Private _purchasedTableAdapter As PurchasedTableAdapter
9360
9361         Private _reviewsTableAdapter As ReviewsTableAdapter
9362
9363         Private _tagsTableAdapter As TagsTableAdapter
9364
9365         Private _user_DetailsTableAdapter As User_DetailsTableAdapter
9366
9367         Private _usersTableAdapter As UsersTableAdapter
9368
9369         Private _wishlistTableAdapter As WishlistTableAdapter
9370
9371         Private _backupDataSetBeforeUpdate As Boolean
9372
9373         Private _connection As Global.System.Data.IDbConnection
9374
9375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9377         Public Property UpdateOrder() As UpdateOrderOption
9378             Get
9379                 Return Me._updateOrder
9380             End Get
9381             Set
9382                 Me._updateOrder = value
9383             End Set
9384         End Property
9385
9386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9388          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9389             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9390             "a", "System.Drawing.Design.UITypeEditor")>  _
9391         Public Property AchievementTableAdapter() As AchievementTableAdapter
9392             Get
9393                 Return Me._achievementTableAdapter
9394             End Get
9395             Set
9396                 Me._achievementTableAdapter = value
9397             End Set
9398         End Property
9399
9400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9402          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9403             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9404             "a", "System.Drawing.Design.UITypeEditor")>  _
9405         Public Property DOWTableAdapter() As DOWTableAdapter
9406             Get
9407                 Return Me._dOWTableAdapter
9408             End Get
9409             Set
9410                 Me._dOWTableAdapter = value
9411             End Set
9412         End Property
9413
9414         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9415          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9416          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9417             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9418             "a", "System.Drawing.Design.UITypeEditor")>  _
9419         Public Property FriendsTableAdapter() As FriendsTableAdapter
9420             Get
9421                 Return Me._friendsTableAdapter
9422             End Get
9423             Set
9424                 Me._friendsTableAdapter = value
9425             End Set
9426         End Property
9427
9428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9430          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9431             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9432             "a", "System.Drawing.Design.UITypeEditor")>  _
9433         Public Property GamesTableAdapter() As GamesTableAdapter
9434             Get
9435                 Return Me._gamesTableAdapter
9436             End Get
9437             Set
9438                 Me._gamesTableAdapter = value
9439             End Set
9440         End Property
9441
9442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9444          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9445             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9446             "a", "System.Drawing.Design.UITypeEditor")>  _
9447         Public Property PurchasedTableAdapter() As PurchasedTableAdapter
9448             Get
9449                 Return Me._purchasedTableAdapter
9450             End Get
9451             Set
9452                 Me._purchasedTableAdapter = value
9453             End Set
9454         End Property
9455
9456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9458          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9459             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9460             "a", "System.Drawing.Design.UITypeEditor")>  _
9461         Public Property ReviewsTableAdapter() As ReviewsTableAdapter
9462             Get
9463                 Return Me._reviewsTableAdapter
9464             End Get
9465             Set
9466                 Me._reviewsTableAdapter = value
9467             End Set
9468         End Property
9469
9470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9472          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9473             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9474             "a", "System.Drawing.Design.UITypeEditor")>  _
9475         Public Property TagsTableAdapter() As TagsTableAdapter
9476             Get
9477                 Return Me._tagsTableAdapter
9478             End Get
9479             Set
9480                 Me._tagsTableAdapter = value
9481             End Set
9482         End Property
9483
9484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9486          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9487             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9488             "a", "System.Drawing.Design.UITypeEditor")>  _
9489         Public Property User_DetailsTableAdapter() As User_DetailsTableAdapter
9490             Get
9491                 Return Me._user_DetailsTableAdapter
9492             End Get
9493             Set
9494                 Me._user_DetailsTableAdapter = value
9495             End Set
9496         End Property
9497
9498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9500          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9501             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9502             "a", "System.Drawing.Design.UITypeEditor")>  _
9503         Public Property UsersTableAdapter() As UsersTableAdapter
9504             Get
9505                 Return Me._usersTableAdapter
9506             End Get
9507             Set
9508                 Me._usersTableAdapter = value
9509             End Set
9510         End Property
9511
9512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9514          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9515             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9516             "a", "System.Drawing.Design.UITypeEditor")>  _
9517         Public Property WishlistTableAdapter() As WishlistTableAdapter
9518             Get
9519                 Return Me._wishlistTableAdapter
9520             End Get
9521             Set
9522                 Me._wishlistTableAdapter = value
9523             End Set
9524         End Property
9525
9526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9528         Public Property BackupDataSetBeforeUpdate() As Boolean
9529             Get
9530                 Return Me._backupDataSetBeforeUpdate
9531             End Get
9532             Set
9533                 Me._backupDataSetBeforeUpdate = value
9534             End Set
9535         End Property
9536
9537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9539          Global.System.ComponentModel.Browsable(false)>  _
9540         Public Property Connection() As Global.System.Data.IDbConnection
9541             Get
9542                 If (Not (Me._connection) Is Nothing) Then
9543                     Return Me._connection
9544                 End If
9545                 If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9546                             AndAlso (Not (Me._achievementTableAdapter.Connection) Is Nothing)) Then
9547                     Return Me._achievementTableAdapter.Connection
9548                 End If
9549                 If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9550                             AndAlso (Not (Me._dOWTableAdapter.Connection) Is Nothing)) Then
9551                     Return Me._dOWTableAdapter.Connection
9552                 End If
9553                 If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9554                             AndAlso (Not (Me._friendsTableAdapter.Connection) Is Nothing)) Then
9555                     Return Me._friendsTableAdapter.Connection
9556                 End If
9557                 If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9558                             AndAlso (Not (Me._gamesTableAdapter.Connection) Is Nothing)) Then
9559                     Return Me._gamesTableAdapter.Connection
9560                 End If
9561                 If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9562                             AndAlso (Not (Me._purchasedTableAdapter.Connection) Is Nothing)) Then
9563                     Return Me._purchasedTableAdapter.Connection
9564                 End If
9565                 If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9566                             AndAlso (Not (Me._reviewsTableAdapter.Connection) Is Nothing)) Then
9567                     Return Me._reviewsTableAdapter.Connection
9568                 End If
9569                 If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9570                             AndAlso (Not (Me._tagsTableAdapter.Connection) Is Nothing)) Then
9571                     Return Me._tagsTableAdapter.Connection
9572                 End If
9573                 If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9574                             AndAlso (Not (Me._user_DetailsTableAdapter.Connection) Is Nothing)) Then
9575                     Return Me._user_DetailsTableAdapter.Connection
9576                 End If
9577                 If ((Not (Me._usersTableAdapter) Is Nothing)  _
9578                             AndAlso (Not (Me._usersTableAdapter.Connection) Is Nothing)) Then
9579                     Return Me._usersTableAdapter.Connection
9580                 End If
9581                 If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9582                             AndAlso (Not (Me._wishlistTableAdapter.Connection) Is Nothing)) Then
9583                     Return Me._wishlistTableAdapter.Connection
9584                 End If
9585                 Return Nothing
9586             End Get
9587             Set
9588                 Me._connection = value
9589             End Set
9590         End Property
9591
9592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9594          Global.System.ComponentModel.Browsable(false)>  _
9595         Public ReadOnly Property TableAdapterInstanceCount() As Integer
9596             Get
9597                 Dim count As Integer = 0
9598                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
9599                     count = (count + 1)
9600                 End If
9601                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
9602                     count = (count + 1)
9603                 End If
9604                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
9605                     count = (count + 1)
9606                 End If
9607                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
9608                     count = (count + 1)
9609                 End If
9610                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9611                     count = (count + 1)
9612                 End If
9613                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9614                     count = (count + 1)
9615                 End If
9616                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
9617                     count = (count + 1)
9618                 End If
9619                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9620                     count = (count + 1)
9621                 End If
9622                 If (Not (Me._usersTableAdapter) Is Nothing) Then
9623                     count = (count + 1)
9624                 End If
9625                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9626                     count = (count + 1)
9627                 End If
9628                 Return count
9629             End Get
9630         End Property
9631
9632         '''<summary>
9633         '''Update rows in top-down order.
9634         '''</summary>
9635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9637         Private Function UpdateUpdatedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9638             Dim result As Integer = 0
9639             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9640                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9641                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9642                 If ((Not (updatedRows) Is Nothing)  _
9643                             AndAlso (0 < updatedRows.Length)) Then
9644                     result = (result + Me._gamesTableAdapter.Update(updatedRows))
9645                     allChangedRows.AddRange(updatedRows)
9646                 End If
9647             End If
9648             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9649                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9650                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9651                 If ((Not (updatedRows) Is Nothing)  _
9652                             AndAlso (0 < updatedRows.Length)) Then
9653                     result = (result + Me._user_DetailsTableAdapter.Update(updatedRows))
9654                     allChangedRows.AddRange(updatedRows)
9655                 End If
9656             End If
9657             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9658                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9659                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9660                 If ((Not (updatedRows) Is Nothing)  _
9661                             AndAlso (0 < updatedRows.Length)) Then
9662                     result = (result + Me._achievementTableAdapter.Update(updatedRows))
9663                     allChangedRows.AddRange(updatedRows)
9664                 End If
9665             End If
9666             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9667                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9668                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9669                 If ((Not (updatedRows) Is Nothing)  _
9670                             AndAlso (0 < updatedRows.Length)) Then
9671                     result = (result + Me._dOWTableAdapter.Update(updatedRows))
9672                     allChangedRows.AddRange(updatedRows)
9673                 End If
9674             End If
9675             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9676                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9677                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9678                 If ((Not (updatedRows) Is Nothing)  _
9679                             AndAlso (0 < updatedRows.Length)) Then
9680                     result = (result + Me._friendsTableAdapter.Update(updatedRows))
9681                     allChangedRows.AddRange(updatedRows)
9682                 End If
9683             End If
9684             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9685                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9686                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9687                 If ((Not (updatedRows) Is Nothing)  _
9688                             AndAlso (0 < updatedRows.Length)) Then
9689                     result = (result + Me._purchasedTableAdapter.Update(updatedRows))
9690                     allChangedRows.AddRange(updatedRows)
9691                 End If
9692             End If
9693             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9694                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9695                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9696                 If ((Not (updatedRows) Is Nothing)  _
9697                             AndAlso (0 < updatedRows.Length)) Then
9698                     result = (result + Me._reviewsTableAdapter.Update(updatedRows))
9699                     allChangedRows.AddRange(updatedRows)
9700                 End If
9701             End If
9702             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9703                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9704                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9705                 If ((Not (updatedRows) Is Nothing)  _
9706                             AndAlso (0 < updatedRows.Length)) Then
9707                     result = (result + Me._tagsTableAdapter.Update(updatedRows))
9708                     allChangedRows.AddRange(updatedRows)
9709                 End If
9710             End If
9711             If (Not (Me._usersTableAdapter) Is Nothing) Then
9712                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9713                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9714                 If ((Not (updatedRows) Is Nothing)  _
9715                             AndAlso (0 < updatedRows.Length)) Then
9716                     result = (result + Me._usersTableAdapter.Update(updatedRows))
9717                     allChangedRows.AddRange(updatedRows)
9718                 End If
9719             End If
9720             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9721                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9722                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9723                 If ((Not (updatedRows) Is Nothing)  _
9724                             AndAlso (0 < updatedRows.Length)) Then
9725                     result = (result + Me._wishlistTableAdapter.Update(updatedRows))
9726                     allChangedRows.AddRange(updatedRows)
9727                 End If
9728             End If
9729             Return result
9730         End Function
9731
9732         '''<summary>
9733         '''Insert rows in top-down order.
9734         '''</summary>
9735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9737         Private Function UpdateInsertedRows(ByVal dataSet As NEADataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9738             Dim result As Integer = 0
9739             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9740                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9741                 If ((Not (addedRows) Is Nothing)  _
9742                             AndAlso (0 < addedRows.Length)) Then
9743                     result = (result + Me._gamesTableAdapter.Update(addedRows))
9744                     allAddedRows.AddRange(addedRows)
9745                 End If
9746             End If
9747             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9748                 Dim addedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9749                 If ((Not (addedRows) Is Nothing)  _
9750                             AndAlso (0 < addedRows.Length)) Then
9751                     result = (result + Me._user_DetailsTableAdapter.Update(addedRows))
9752                     allAddedRows.AddRange(addedRows)
9753                 End If
9754             End If
9755             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9756                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9757                 If ((Not (addedRows) Is Nothing)  _
9758                             AndAlso (0 < addedRows.Length)) Then
9759                     result = (result + Me._achievementTableAdapter.Update(addedRows))
9760                     allAddedRows.AddRange(addedRows)
9761                 End If
9762             End If
9763             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9764                 Dim addedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9765                 If ((Not (addedRows) Is Nothing)  _
9766                             AndAlso (0 < addedRows.Length)) Then
9767                     result = (result + Me._dOWTableAdapter.Update(addedRows))
9768                     allAddedRows.AddRange(addedRows)
9769                 End If
9770             End If
9771             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9772                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9773                 If ((Not (addedRows) Is Nothing)  _
9774                             AndAlso (0 < addedRows.Length)) Then
9775                     result = (result + Me._friendsTableAdapter.Update(addedRows))
9776                     allAddedRows.AddRange(addedRows)
9777                 End If
9778             End If
9779             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9780                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9781                 If ((Not (addedRows) Is Nothing)  _
9782                             AndAlso (0 < addedRows.Length)) Then
9783                     result = (result + Me._purchasedTableAdapter.Update(addedRows))
9784                     allAddedRows.AddRange(addedRows)
9785                 End If
9786             End If
9787             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9788                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9789                 If ((Not (addedRows) Is Nothing)  _
9790                             AndAlso (0 < addedRows.Length)) Then
9791                     result = (result + Me._reviewsTableAdapter.Update(addedRows))
9792                     allAddedRows.AddRange(addedRows)
9793                 End If
9794             End If
9795             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9796                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9797                 If ((Not (addedRows) Is Nothing)  _
9798                             AndAlso (0 < addedRows.Length)) Then
9799                     result = (result + Me._tagsTableAdapter.Update(addedRows))
9800                     allAddedRows.AddRange(addedRows)
9801                 End If
9802             End If
9803             If (Not (Me._usersTableAdapter) Is Nothing) Then
9804                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9805                 If ((Not (addedRows) Is Nothing)  _
9806                             AndAlso (0 < addedRows.Length)) Then
9807                     result = (result + Me._usersTableAdapter.Update(addedRows))
9808                     allAddedRows.AddRange(addedRows)
9809                 End If
9810             End If
9811             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9812                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9813                 If ((Not (addedRows) Is Nothing)  _
9814                             AndAlso (0 < addedRows.Length)) Then
9815                     result = (result + Me._wishlistTableAdapter.Update(addedRows))
9816                     allAddedRows.AddRange(addedRows)
9817                 End If
9818             End If
9819             Return result
9820         End Function
9821
9822         '''<summary>
9823         '''Delete rows in bottom-up order.
9824         '''</summary>
9825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9827         Private Function UpdateDeletedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9828             Dim result As Integer = 0
9829             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9830                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9831                 If ((Not (deletedRows) Is Nothing)  _
9832                             AndAlso (0 < deletedRows.Length)) Then
9833                     result = (result + Me._wishlistTableAdapter.Update(deletedRows))
9834                     allChangedRows.AddRange(deletedRows)
9835                 End If
9836             End If
9837             If (Not (Me._usersTableAdapter) Is Nothing) Then
9838                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9839                 If ((Not (deletedRows) Is Nothing)  _
9840                             AndAlso (0 < deletedRows.Length)) Then
9841                     result = (result + Me._usersTableAdapter.Update(deletedRows))
9842                     allChangedRows.AddRange(deletedRows)
9843                 End If
9844             End If
9845             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9846                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9847                 If ((Not (deletedRows) Is Nothing)  _
9848                             AndAlso (0 < deletedRows.Length)) Then
9849                     result = (result + Me._tagsTableAdapter.Update(deletedRows))
9850                     allChangedRows.AddRange(deletedRows)
9851                 End If
9852             End If
9853             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9854                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9855                 If ((Not (deletedRows) Is Nothing)  _
9856                             AndAlso (0 < deletedRows.Length)) Then
9857                     result = (result + Me._reviewsTableAdapter.Update(deletedRows))
9858                     allChangedRows.AddRange(deletedRows)
9859                 End If
9860             End If
9861             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9862                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9863                 If ((Not (deletedRows) Is Nothing)  _
9864                             AndAlso (0 < deletedRows.Length)) Then
9865                     result = (result + Me._purchasedTableAdapter.Update(deletedRows))
9866                     allChangedRows.AddRange(deletedRows)
9867                 End If
9868             End If
9869             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9870                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9871                 If ((Not (deletedRows) Is Nothing)  _
9872                             AndAlso (0 < deletedRows.Length)) Then
9873                     result = (result + Me._friendsTableAdapter.Update(deletedRows))
9874                     allChangedRows.AddRange(deletedRows)
9875                 End If
9876             End If
9877             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9878                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9879                 If ((Not (deletedRows) Is Nothing)  _
9880                             AndAlso (0 < deletedRows.Length)) Then
9881                     result = (result + Me._dOWTableAdapter.Update(deletedRows))
9882                     allChangedRows.AddRange(deletedRows)
9883                 End If
9884             End If
9885             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9886                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9887                 If ((Not (deletedRows) Is Nothing)  _
9888                             AndAlso (0 < deletedRows.Length)) Then
9889                     result = (result + Me._achievementTableAdapter.Update(deletedRows))
9890                     allChangedRows.AddRange(deletedRows)
9891                 End If
9892             End If
9893             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9894                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9895                 If ((Not (deletedRows) Is Nothing)  _
9896                             AndAlso (0 < deletedRows.Length)) Then
9897                     result = (result + Me._user_DetailsTableAdapter.Update(deletedRows))
9898                     allChangedRows.AddRange(deletedRows)
9899                 End If
9900             End If
9901             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9902                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9903                 If ((Not (deletedRows) Is Nothing)  _
9904                             AndAlso (0 < deletedRows.Length)) Then
9905                     result = (result + Me._gamesTableAdapter.Update(deletedRows))
9906                     allChangedRows.AddRange(deletedRows)
9907                 End If
9908             End If
9909             Return result
9910         End Function
9911
9912         '''<summary>
9913         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
9914         '''</summary>
9915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9917         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
9918             If ((updatedRows Is Nothing)  _
9919                         OrElse (updatedRows.Length < 1)) Then
9920                 Return updatedRows
9921             End If
9922             If ((allAddedRows Is Nothing)  _
9923                         OrElse (allAddedRows.Count < 1)) Then
9924                 Return updatedRows
9925             End If
9926             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
9927             Dim i As Integer = 0
9928             Do While (i < updatedRows.Length)
9929                 Dim row As Global.System.Data.DataRow = updatedRows(i)
9930                 If (allAddedRows.Contains(row) = false) Then
9931                     realUpdatedRows.Add(row)
9932                 End If
9933                 i = (i + 1)
9934             Loop
9935             Return realUpdatedRows.ToArray
9936         End Function
9937
9938         '''<summary>
9939         '''Update all changes to the dataset.
9940         '''</summary>
9941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9943         Public Overridable Function UpdateAll(ByVal dataSet As NEADataSet) As Integer
9944             If (dataSet Is Nothing) Then
9945                 Throw New Global.System.ArgumentNullException("dataSet")
9946             End If
9947             If (dataSet.HasChanges = false) Then
9948                 Return 0
9949             End If
9950             If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9951                         AndAlso (Me.MatchTableAdapterConnection(Me._achievementTableAdapter.Connection) = false)) Then
9952                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9953                         "tring.")
9954             End If
9955             If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9956                         AndAlso (Me.MatchTableAdapterConnection(Me._dOWTableAdapter.Connection) = false)) Then
9957                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9958                         "tring.")
9959             End If
9960             If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9961                         AndAlso (Me.MatchTableAdapterConnection(Me._friendsTableAdapter.Connection) = false)) Then
9962                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9963                         "tring.")
9964             End If
9965             If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9966                         AndAlso (Me.MatchTableAdapterConnection(Me._gamesTableAdapter.Connection) = false)) Then
9967                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9968                         "tring.")
9969             End If
9970             If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9971                         AndAlso (Me.MatchTableAdapterConnection(Me._purchasedTableAdapter.Connection) = false)) Then
9972                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9973                         "tring.")
9974             End If
9975             If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9976                         AndAlso (Me.MatchTableAdapterConnection(Me._reviewsTableAdapter.Connection) = false)) Then
9977                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9978                         "tring.")
9979             End If
9980             If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9981                         AndAlso (Me.MatchTableAdapterConnection(Me._tagsTableAdapter.Connection) = false)) Then
9982                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9983                         "tring.")
9984             End If
9985             If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9986                         AndAlso (Me.MatchTableAdapterConnection(Me._user_DetailsTableAdapter.Connection) = false)) Then
9987                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9988                         "tring.")
9989             End If
9990             If ((Not (Me._usersTableAdapter) Is Nothing)  _
9991                         AndAlso (Me.MatchTableAdapterConnection(Me._usersTableAdapter.Connection) = false)) Then
9992                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9993                         "tring.")
9994             End If
9995             If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9996                         AndAlso (Me.MatchTableAdapterConnection(Me._wishlistTableAdapter.Connection) = false)) Then
9997                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9998                         "tring.")
9999             End If
10000             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
10001             If (workConnection Is Nothing) Then
10002                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
10003                         "ger TableAdapter property to a valid TableAdapter instance.")
10004             End If
10005             Dim workConnOpened As Boolean = false
10006             If ((workConnection.State And Global.System.Data.ConnectionState.Broken)  _
10007                         = Global.System.Data.ConnectionState.Broken) Then
10008                 workConnection.Close
10009             End If
10010             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
10011                 workConnection.Open
10012                 workConnOpened = true
10013             End If
10014             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
10015             If (workTransaction Is Nothing) Then
10016                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
10017                         "ctions or the current state is not allowing the transaction to begin.")
10018             End If
10019             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10020             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10021             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
10022             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
10023             Dim result As Integer = 0
10024             Dim backupDataSet As Global.System.Data.DataSet = Nothing
10025             If Me.BackupDataSetBeforeUpdate Then
10026                 backupDataSet = New Global.System.Data.DataSet()
10027                 backupDataSet.Merge(dataSet)
10028             End If
10029             Try
10030                 '---- Prepare for update -----------
10031                 '
10032                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10033                     revertConnections.Add(Me._achievementTableAdapter, Me._achievementTableAdapter.Connection)
10034                     Me._achievementTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10035                     Me._achievementTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10036                     If Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10037                         Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10038                         adaptersWithAcceptChangesDuringUpdate.Add(Me._achievementTableAdapter.Adapter)
10039                     End If
10040                 End If
10041                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10042                     revertConnections.Add(Me._dOWTableAdapter, Me._dOWTableAdapter.Connection)
10043                     Me._dOWTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10044                     Me._dOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10045                     If Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10046                         Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10047                         adaptersWithAcceptChangesDuringUpdate.Add(Me._dOWTableAdapter.Adapter)
10048                     End If
10049                 End If
10050                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10051                     revertConnections.Add(Me._friendsTableAdapter, Me._friendsTableAdapter.Connection)
10052                     Me._friendsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10053                     Me._friendsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10054                     If Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10055                         Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10056                         adaptersWithAcceptChangesDuringUpdate.Add(Me._friendsTableAdapter.Adapter)
10057                     End If
10058                 End If
10059                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10060                     revertConnections.Add(Me._gamesTableAdapter, Me._gamesTableAdapter.Connection)
10061                     Me._gamesTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10062                     Me._gamesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10063                     If Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10064                         Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10065                         adaptersWithAcceptChangesDuringUpdate.Add(Me._gamesTableAdapter.Adapter)
10066                     End If
10067                 End If
10068                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10069                     revertConnections.Add(Me._purchasedTableAdapter, Me._purchasedTableAdapter.Connection)
10070                     Me._purchasedTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10071                     Me._purchasedTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10072                     If Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10073                         Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10074                         adaptersWithAcceptChangesDuringUpdate.Add(Me._purchasedTableAdapter.Adapter)
10075                     End If
10076                 End If
10077                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10078                     revertConnections.Add(Me._reviewsTableAdapter, Me._reviewsTableAdapter.Connection)
10079                     Me._reviewsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10080                     Me._reviewsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10081                     If Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10082                         Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10083                         adaptersWithAcceptChangesDuringUpdate.Add(Me._reviewsTableAdapter.Adapter)
10084                     End If
10085                 End If
10086                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10087                     revertConnections.Add(Me._tagsTableAdapter, Me._tagsTableAdapter.Connection)
10088                     Me._tagsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10089                     Me._tagsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10090                     If Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10091                         Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10092                         adaptersWithAcceptChangesDuringUpdate.Add(Me._tagsTableAdapter.Adapter)
10093                     End If
10094                 End If
10095                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10096                     revertConnections.Add(Me._user_DetailsTableAdapter, Me._user_DetailsTableAdapter.Connection)
10097                     Me._user_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10098                     Me._user_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10099                     If Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10100                         Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10101                         adaptersWithAcceptChangesDuringUpdate.Add(Me._user_DetailsTableAdapter.Adapter)
10102                     End If
10103                 End If
10104                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10105                     revertConnections.Add(Me._usersTableAdapter, Me._usersTableAdapter.Connection)
10106                     Me._usersTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10107                     Me._usersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10108                     If Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10109                         Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10110                         adaptersWithAcceptChangesDuringUpdate.Add(Me._usersTableAdapter.Adapter)
10111                     End If
10112                 End If
10113                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10114                     revertConnections.Add(Me._wishlistTableAdapter, Me._wishlistTableAdapter.Connection)
10115                     Me._wishlistTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10116                     Me._wishlistTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10117                     If Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10118                         Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10119                         adaptersWithAcceptChangesDuringUpdate.Add(Me._wishlistTableAdapter.Adapter)
10120                     End If
10121                 End If
10122                 '
10123                 '---- Perform updates -----------
10124                 '
10125                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
10126                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10127                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10128                 Else
10129                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10130                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10131                 End If
10132                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
10133                 '
10134                 '---- Commit updates -----------
10135                 '
10136                 workTransaction.Commit
10137                 If (0 < allAddedRows.Count) Then
10138                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10139                     allAddedRows.CopyTo(rows)
10140                     Dim i As Integer = 0
10141                     Do While (i < rows.Length)
10142                         Dim row As Global.System.Data.DataRow = rows(i)
10143                         row.AcceptChanges
10144                         i = (i + 1)
10145                     Loop
10146                 End If
10147                 If (0 < allChangedRows.Count) Then
10148                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
10149                     allChangedRows.CopyTo(rows)
10150                     Dim i As Integer = 0
10151                     Do While (i < rows.Length)
10152                         Dim row As Global.System.Data.DataRow = rows(i)
10153                         row.AcceptChanges
10154                         i = (i + 1)
10155                     Loop
10156                 End If
10157             Catch ex As Global.System.Exception
10158                 workTransaction.Rollback
10159                 '---- Restore the dataset -----------
10160                 If Me.BackupDataSetBeforeUpdate Then
10161                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
10162                     dataSet.Clear
10163                     dataSet.Merge(backupDataSet)
10164                 Else
10165                     If (0 < allAddedRows.Count) Then
10166                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10167                         allAddedRows.CopyTo(rows)
10168                         Dim i As Integer = 0
10169                         Do While (i < rows.Length)
10170                             Dim row As Global.System.Data.DataRow = rows(i)
10171                             row.AcceptChanges
10172                             row.SetAdded
10173                             i = (i + 1)
10174                         Loop
10175                     End If
10176                 End If
10177                 Throw ex
10178             Finally
10179                 If workConnOpened Then
10180                     workConnection.Close
10181                 End If
10182                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10183                     Me._achievementTableAdapter.Connection = CType(revertConnections(Me._achievementTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10184                     Me._achievementTableAdapter.Transaction = Nothing
10185                 End If
10186                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10187                     Me._dOWTableAdapter.Connection = CType(revertConnections(Me._dOWTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10188                     Me._dOWTableAdapter.Transaction = Nothing
10189                 End If
10190                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10191                     Me._friendsTableAdapter.Connection = CType(revertConnections(Me._friendsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10192                     Me._friendsTableAdapter.Transaction = Nothing
10193                 End If
10194                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10195                     Me._gamesTableAdapter.Connection = CType(revertConnections(Me._gamesTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10196                     Me._gamesTableAdapter.Transaction = Nothing
10197                 End If
10198                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10199                     Me._purchasedTableAdapter.Connection = CType(revertConnections(Me._purchasedTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10200                     Me._purchasedTableAdapter.Transaction = Nothing
10201                 End If
10202                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10203                     Me._reviewsTableAdapter.Connection = CType(revertConnections(Me._reviewsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10204                     Me._reviewsTableAdapter.Transaction = Nothing
10205                 End If
10206                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10207                     Me._tagsTableAdapter.Connection = CType(revertConnections(Me._tagsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10208                     Me._tagsTableAdapter.Transaction = Nothing
10209                 End If
10210                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10211                     Me._user_DetailsTableAdapter.Connection = CType(revertConnections(Me._user_DetailsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10212                     Me._user_DetailsTableAdapter.Transaction = Nothing
10213                 End If
10214                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10215                     Me._usersTableAdapter.Connection = CType(revertConnections(Me._usersTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10216                     Me._usersTableAdapter.Transaction = Nothing
10217                 End If
10218                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10219                     Me._wishlistTableAdapter.Connection = CType(revertConnections(Me._wishlistTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10220                     Me._wishlistTableAdapter.Transaction = Nothing
10221                 End If
10222                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
10223                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
10224                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
10225                     Dim i As Integer = 0
10226                     Do While (i < adapters.Length)
10227                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
10228                         adapter.AcceptChangesDuringUpdate = true
10229                         i = (i + 1)
10230                     Loop
10231                 End If
10232             End Try
10233             Return result
10234         End Function
10235
10236         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10237          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10238         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10239             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
10240         End Sub
10241
10242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10244         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
10245             If (Not (Me._connection) Is Nothing) Then
10246                 Return true
10247             End If
10248             If ((Me.Connection Is Nothing)  _
10249                         OrElse (inputConnection Is Nothing)) Then
10250                 Return true
10251             End If
10252             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
10253                 Return true
10254             End If
10255             Return false
10256         End Function
10257
10258         '''<summary>
10259         '''Update Order Option
10260         '''</summary>
10261         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10262         Public Enum UpdateOrderOption
10263
10264             InsertUpdateDelete = 0
10265
10266             UpdateInsertDelete = 1
10267         End Enum
10268
10269         '''<summary>
10270         '''Used to sort self-referenced table's rows
10271         '''</summary>
10272         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10273         Private Class SelfReferenceComparer
10274             Inherits Object
10275             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
10276
10277             Private _relation As Global.System.Data.DataRelation
10278
10279             Private _childFirst As Integer
10280
10281             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10282              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10283             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10284                 MyBase.New
10285                 Me._relation = relation
10286                 If childFirst Then
10287                     Me._childFirst = -1
10288                 Else
10289                     Me._childFirst = 1
10290                 End If
10291             End Sub
10292
10293             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10294              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10295             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
10296                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
10297                 Dim root As Global.System.Data.DataRow = row
10298                 distance = 0
10299
10300                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
10301                 traversedRows(row) = row
10302
10303                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10304
10305                 Do While ((Not (parent) Is Nothing)  _
10306                             AndAlso (traversedRows.ContainsKey(parent) = false))
10307                     distance = (distance + 1)
10308                     root = parent
10309                     traversedRows(parent) = parent
10310                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10311
10312                 Loop
10313
10314                 If (distance = 0) Then
10315                     traversedRows.Clear
10316                     traversedRows(row) = row
10317                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10318
10319                     Do While ((Not (parent) Is Nothing)  _
10320                                 AndAlso (traversedRows.ContainsKey(parent) = false))
10321                         distance = (distance + 1)
10322                         root = parent
10323                         traversedRows(parent) = parent
10324                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10325
10326                     Loop
10327                 End If
10328
10329                 Return root
10330             End Function
10331
10332             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10333              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10334             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
10335                 If Object.ReferenceEquals(row1, row2) Then
10336                     Return 0
10337                 End If
10338                 If (row1 Is Nothing) Then
10339                     Return -1
10340                 End If
10341                 If (row2 Is Nothing) Then
10342                     Return 1
10343                 End If
10344
10345                 Dim distance1 As Integer = 0
10346                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
10347
10348                 Dim distance2 As Integer = 0
10349                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
10350
10351                 If Object.ReferenceEquals(root1, root2) Then
10352                     Return (Me._childFirst * distance1.CompareTo(distance2))
10353                 Else
10354                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing)  _
10355                                     AndAlso (Not (root2.Table) Is Nothing)))
10356                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
10357                         Return -1
10358                     Else
10359                         Return 1
10360                     End If
10361                 End If
10362             End Function
10363         End Class
10364     End Class
10365 End Namespace