Private tableTags As TagsDataTable
- Private tableWishlist As WishlistDataTable
+ Private tableUser_Details As User_DetailsDataTable
Private tableUsers As UsersDataTable
- Private tableUser_Details As User_DetailsDataTable
+ Private tableWishlist As WishlistDataTable
Private relationGamesAchievement As Global.System.Data.DataRelation
Private relationGamesReviews As Global.System.Data.DataRelation
- Private relationGamesWishlist As Global.System.Data.DataRelation
-
Private relationUser_DetailsUsers As Global.System.Data.DataRelation
+ Private relationGamesWishlist As Global.System.Data.DataRelation
+
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
If (Not (ds.Tables("Tags")) Is Nothing) Then
MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
End If
- If (Not (ds.Tables("Wishlist")) Is Nothing) Then
- MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
+ If (Not (ds.Tables("User_Details")) Is Nothing) Then
+ MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
End If
If (Not (ds.Tables("Users")) Is Nothing) Then
MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
End If
- If (Not (ds.Tables("User_Details")) Is Nothing) Then
- MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
+ If (Not (ds.Tables("Wishlist")) Is Nothing) Then
+ MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Wishlist() As WishlistDataTable
+ Public ReadOnly Property User_Details() As User_DetailsDataTable
Get
- Return Me.tableWishlist
+ Return Me.tableUser_Details
End Get
End Property
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property User_Details() As User_DetailsDataTable
+ Public ReadOnly Property Wishlist() As WishlistDataTable
Get
- Return Me.tableUser_Details
+ Return Me.tableWishlist
End Get
End Property
If (Not (ds.Tables("Tags")) Is Nothing) Then
MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
End If
- If (Not (ds.Tables("Wishlist")) Is Nothing) Then
- MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
+ If (Not (ds.Tables("User_Details")) Is Nothing) Then
+ MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
End If
If (Not (ds.Tables("Users")) Is Nothing) Then
MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
End If
- If (Not (ds.Tables("User_Details")) Is Nothing) Then
- MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
+ If (Not (ds.Tables("Wishlist")) Is Nothing) Then
+ MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.tableTags.InitVars
End If
End If
- Me.tableWishlist = CType(MyBase.Tables("Wishlist"),WishlistDataTable)
+ Me.tableUser_Details = CType(MyBase.Tables("User_Details"),User_DetailsDataTable)
If (initTable = true) Then
- If (Not (Me.tableWishlist) Is Nothing) Then
- Me.tableWishlist.InitVars
+ If (Not (Me.tableUser_Details) Is Nothing) Then
+ Me.tableUser_Details.InitVars
End If
End If
Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable)
Me.tableUsers.InitVars
End If
End If
- Me.tableUser_Details = CType(MyBase.Tables("User_Details"),User_DetailsDataTable)
+ Me.tableWishlist = CType(MyBase.Tables("Wishlist"),WishlistDataTable)
If (initTable = true) Then
- If (Not (Me.tableUser_Details) Is Nothing) Then
- Me.tableUser_Details.InitVars
+ If (Not (Me.tableWishlist) Is Nothing) Then
+ Me.tableWishlist.InitVars
End If
End If
Me.relationGamesAchievement = Me.Relations("GamesAchievement")
Me.relationGamesDOW = Me.Relations("GamesDOW")
Me.relationGamesPurchased = Me.Relations("GamesPurchased")
Me.relationGamesReviews = Me.Relations("GamesReviews")
- Me.relationGamesWishlist = Me.Relations("GamesWishlist")
Me.relationUser_DetailsUsers = Me.Relations("User_DetailsUsers")
+ Me.relationGamesWishlist = Me.Relations("GamesWishlist")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
MyBase.Tables.Add(Me.tableReviews)
Me.tableTags = New TagsDataTable()
MyBase.Tables.Add(Me.tableTags)
- Me.tableWishlist = New WishlistDataTable()
- MyBase.Tables.Add(Me.tableWishlist)
- Me.tableUsers = New UsersDataTable()
- MyBase.Tables.Add(Me.tableUsers)
Me.tableUser_Details = New User_DetailsDataTable()
MyBase.Tables.Add(Me.tableUser_Details)
+ Me.tableUsers = New UsersDataTable()
+ MyBase.Tables.Add(Me.tableUsers)
+ Me.tableWishlist = New WishlistDataTable()
+ MyBase.Tables.Add(Me.tableWishlist)
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)
Me.Relations.Add(Me.relationGamesAchievement)
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)
Me.Relations.Add(Me.relationGamesPurchased)
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)
Me.Relations.Add(Me.relationGamesReviews)
- 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)
- Me.Relations.Add(Me.relationGamesWishlist)
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)
Me.Relations.Add(Me.relationUser_DetailsUsers)
+ 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)
+ Me.Relations.Add(Me.relationGamesWishlist)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Private Function ShouldSerializeWishlist() As Boolean
+ Private Function ShouldSerializeUser_Details() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Private Function ShouldSerializeUser_Details() As Boolean
+ Private Function ShouldSerializeWishlist() As Boolean
Return false
End Function
Public Delegate Sub TagsRowChangeEventHandler(ByVal sender As Object, ByVal e As TagsRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Delegate Sub WishlistRowChangeEventHandler(ByVal sender As Object, ByVal e As WishlistRowChangeEvent)
+ Public Delegate Sub User_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As User_DetailsRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Delegate Sub User_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As User_DetailsRowChangeEvent)
+ Public Delegate Sub WishlistRowChangeEventHandler(ByVal sender As Object, ByVal e As WishlistRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class WishlistDataTable
- Inherits Global.System.Data.TypedTableBase(Of WishlistRow)
+ Partial Public Class User_DetailsDataTable
+ Inherits Global.System.Data.TypedTableBase(Of User_DetailsRow)
- Private columnWishlistID As Global.System.Data.DataColumn
+ Private columnUserDetailsID As Global.System.Data.DataColumn
- Private columnUserID As Global.System.Data.DataColumn
+ Private columnFirstName As Global.System.Data.DataColumn
- Private columnGameID As Global.System.Data.DataColumn
+ Private columnLastName As Global.System.Data.DataColumn
+
+ Private columnAddressLine1 As Global.System.Data.DataColumn
+
+ Private columnTown As Global.System.Data.DataColumn
+
+ Private columnPostcode As Global.System.Data.DataColumn
+
+ Private columnCardNumber As Global.System.Data.DataColumn
+
+ Private columnCVC As Global.System.Data.DataColumn
+
+ Private columnIGN As Global.System.Data.DataColumn
+
+ Private columnEmail As Global.System.Data.DataColumn
+
+ Private columnProfilePic As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
- Me.TableName = "Wishlist"
+ Me.TableName = "User_Details"
Me.BeginInit
Me.InitClass
Me.EndInit
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property WishlistIDColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property UserDetailsIDColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnWishlistID
+ Return Me.columnUserDetailsID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnUserID
+ Return Me.columnFirstName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnGameID
+ Return Me.columnLastName
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property AddressLine1Column() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnAddressLine1
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property TownColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnTown
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property PostcodeColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnPostcode
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property CardNumberColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCardNumber
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property CVCColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCVC
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property IGNColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnIGN
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnEmail
+ End Get
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public ReadOnly Property ProfilePicColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnProfilePic
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As WishlistRow
+ Public Default ReadOnly Property Item(ByVal index As Integer) As User_DetailsRow
Get
- Return CType(Me.Rows(index),WishlistRow)
+ Return CType(Me.Rows(index),User_DetailsRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event WishlistRowChanging As WishlistRowChangeEventHandler
+ Public Event User_DetailsRowChanging As User_DetailsRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event WishlistRowChanged As WishlistRowChangeEventHandler
+ Public Event User_DetailsRowChanged As User_DetailsRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event WishlistRowDeleting As WishlistRowChangeEventHandler
+ Public Event User_DetailsRowDeleting As User_DetailsRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event WishlistRowDeleted As WishlistRowChangeEventHandler
+ Public Event User_DetailsRowDeleted As User_DetailsRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Overloads Sub AddWishlistRow(ByVal row As WishlistRow)
+ Public Overloads Sub AddUser_DetailsRow(ByVal row As User_DetailsRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Overloads Function AddWishlistRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesWishlist As GamesRow) As WishlistRow
- Dim rowWishlistRow As WishlistRow = CType(Me.NewRow,WishlistRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
- If (Not (parentGamesRowByGamesWishlist) Is Nothing) Then
- columnValuesArray(2) = parentGamesRowByGamesWishlist(0)
- End If
- rowWishlistRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowWishlistRow)
- Return rowWishlistRow
+ 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
+ Dim rowUser_DetailsRow As User_DetailsRow = CType(Me.NewRow,User_DetailsRow)
+ Dim columnValuesArray() As Object = New Object() {Nothing, FirstName, LastName, AddressLine1, Town, Postcode, CardNumber, CVC, IGN, Email, ProfilePic}
+ rowUser_DetailsRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowUser_DetailsRow)
+ Return rowUser_DetailsRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function FindByWishlistID(ByVal WishlistID As Integer) As WishlistRow
- Return CType(Me.Rows.Find(New Object() {WishlistID}),WishlistRow)
+ Public Function FindByUserDetailsID(ByVal UserDetailsID As Integer) As User_DetailsRow
+ Return CType(Me.Rows.Find(New Object() {UserDetailsID}),User_DetailsRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As WishlistDataTable = CType(MyBase.Clone,WishlistDataTable)
+ Dim cln As User_DetailsDataTable = CType(MyBase.Clone,User_DetailsDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New WishlistDataTable()
+ Return New User_DetailsDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
- Me.columnWishlistID = MyBase.Columns("WishlistID")
- Me.columnUserID = MyBase.Columns("UserID")
- Me.columnGameID = MyBase.Columns("GameID")
+ Me.columnUserDetailsID = MyBase.Columns("UserDetailsID")
+ Me.columnFirstName = MyBase.Columns("FirstName")
+ Me.columnLastName = MyBase.Columns("LastName")
+ Me.columnAddressLine1 = MyBase.Columns("AddressLine1")
+ Me.columnTown = MyBase.Columns("Town")
+ Me.columnPostcode = MyBase.Columns("Postcode")
+ Me.columnCardNumber = MyBase.Columns("CardNumber")
+ Me.columnCVC = MyBase.Columns("CVC")
+ Me.columnIGN = MyBase.Columns("IGN")
+ Me.columnEmail = MyBase.Columns("Email")
+ Me.columnProfilePic = MyBase.Columns("ProfilePic")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
- Me.columnWishlistID = New Global.System.Data.DataColumn("WishlistID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWishlistID)
- Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnUserID)
- Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnGameID)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWishlistID}, true))
- Me.columnWishlistID.AutoIncrement = true
- Me.columnWishlistID.AutoIncrementSeed = -1
- Me.columnWishlistID.AutoIncrementStep = -1
- Me.columnWishlistID.AllowDBNull = false
- Me.columnWishlistID.Unique = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function NewWishlistRow() As WishlistRow
- Return CType(Me.NewRow,WishlistRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New WishlistRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(WishlistRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ Me.columnUserDetailsID = New Global.System.Data.DataColumn("UserDetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnUserDetailsID)
+ Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFirstName)
+ Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnLastName)
+ Me.columnAddressLine1 = New Global.System.Data.DataColumn("AddressLine1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnAddressLine1)
+ Me.columnTown = New Global.System.Data.DataColumn("Town", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnTown)
+ Me.columnPostcode = New Global.System.Data.DataColumn("Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnPostcode)
+ Me.columnCardNumber = New Global.System.Data.DataColumn("CardNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCardNumber)
+ Me.columnCVC = New Global.System.Data.DataColumn("CVC", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCVC)
+ Me.columnIGN = New Global.System.Data.DataColumn("IGN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnIGN)
+ Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnEmail)
+ Me.columnProfilePic = New Global.System.Data.DataColumn("ProfilePic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnProfilePic)
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserDetailsID}, true))
+ Me.columnUserDetailsID.AutoIncrement = true
+ Me.columnUserDetailsID.AutoIncrementSeed = -1
+ Me.columnUserDetailsID.AutoIncrementStep = -1
+ Me.columnUserDetailsID.AllowDBNull = false
+ Me.columnUserDetailsID.Unique = true
+ Me.columnFirstName.MaxLength = 536870910
+ Me.columnLastName.MaxLength = 536870910
+ Me.columnAddressLine1.MaxLength = 536870910
+ Me.columnTown.MaxLength = 255
+ Me.columnPostcode.MaxLength = 536870910
+ Me.columnIGN.MaxLength = 536870910
+ Me.columnEmail.MaxLength = 536870910
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function NewUser_DetailsRow() As User_DetailsRow
+ Return CType(Me.NewRow,User_DetailsRow)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New User_DetailsRow(builder)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(User_DetailsRow)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
- If (Not (Me.WishlistRowChangedEvent) Is Nothing) Then
- RaiseEvent WishlistRowChanged(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
+ If (Not (Me.User_DetailsRowChangedEvent) Is Nothing) Then
+ RaiseEvent User_DetailsRowChanged(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
- If (Not (Me.WishlistRowChangingEvent) Is Nothing) Then
- RaiseEvent WishlistRowChanging(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
+ If (Not (Me.User_DetailsRowChangingEvent) Is Nothing) Then
+ RaiseEvent User_DetailsRowChanging(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
- If (Not (Me.WishlistRowDeletedEvent) Is Nothing) Then
- RaiseEvent WishlistRowDeleted(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
+ If (Not (Me.User_DetailsRowDeletedEvent) Is Nothing) Then
+ RaiseEvent User_DetailsRowDeleted(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
- If (Not (Me.WishlistRowDeletingEvent) Is Nothing) Then
- RaiseEvent WishlistRowDeleting(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
+ If (Not (Me.User_DetailsRowDeletingEvent) Is Nothing) Then
+ RaiseEvent User_DetailsRowDeleting(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub RemoveWishlistRow(ByVal row As WishlistRow)
+ Public Sub RemoveUser_DetailsRow(ByVal row As User_DetailsRow)
Me.Rows.Remove(row)
End Sub
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "WishlistDataTable"
+ attribute2.FixedValue = "User_DetailsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class User_DetailsDataTable
- Inherits Global.System.Data.TypedTableBase(Of User_DetailsRow)
-
- Private columnUserDetailsID As Global.System.Data.DataColumn
-
- Private columnFirstName As Global.System.Data.DataColumn
-
- Private columnLastName As Global.System.Data.DataColumn
-
- Private columnAddressLine1 As Global.System.Data.DataColumn
-
- Private columnTown As Global.System.Data.DataColumn
-
- Private columnPostcode As Global.System.Data.DataColumn
-
- Private columnCardNumber As Global.System.Data.DataColumn
-
- Private columnCVC As Global.System.Data.DataColumn
+ Partial Public Class WishlistDataTable
+ Inherits Global.System.Data.TypedTableBase(Of WishlistRow)
- Private columnIGN As Global.System.Data.DataColumn
+ Private columnWishlistID As Global.System.Data.DataColumn
- Private columnEmail As Global.System.Data.DataColumn
+ Private columnUserID As Global.System.Data.DataColumn
- Private columnProfilePic As Global.System.Data.DataColumn
+ Private columnGameID As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
- Me.TableName = "User_Details"
+ Me.TableName = "Wishlist"
Me.BeginInit
Me.InitClass
Me.EndInit
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property UserDetailsIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnUserDetailsID
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnFirstName
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnLastName
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property AddressLine1Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnAddressLine1
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property TownColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTown
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property PostcodeColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnPostcode
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property CardNumberColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCardNumber
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property CVCColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCVC
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property IGNColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property WishlistIDColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnIGN
+ Return Me.columnWishlistID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnEmail
+ Return Me.columnUserID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property ProfilePicColumn() As Global.System.Data.DataColumn
+ Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnProfilePic
+ Return Me.columnGameID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As User_DetailsRow
+ Public Default ReadOnly Property Item(ByVal index As Integer) As WishlistRow
Get
- Return CType(Me.Rows(index),User_DetailsRow)
+ Return CType(Me.Rows(index),WishlistRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event User_DetailsRowChanging As User_DetailsRowChangeEventHandler
+ Public Event WishlistRowChanging As WishlistRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event User_DetailsRowChanged As User_DetailsRowChangeEventHandler
+ Public Event WishlistRowChanged As WishlistRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event User_DetailsRowDeleting As User_DetailsRowChangeEventHandler
+ Public Event WishlistRowDeleting As WishlistRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Event User_DetailsRowDeleted As User_DetailsRowChangeEventHandler
+ Public Event WishlistRowDeleted As WishlistRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Overloads Sub AddUser_DetailsRow(ByVal row As User_DetailsRow)
+ Public Overloads Sub AddWishlistRow(ByVal row As WishlistRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- 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
- Dim rowUser_DetailsRow As User_DetailsRow = CType(Me.NewRow,User_DetailsRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, FirstName, LastName, AddressLine1, Town, Postcode, CardNumber, CVC, IGN, Email, ProfilePic}
- rowUser_DetailsRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowUser_DetailsRow)
- Return rowUser_DetailsRow
+ Public Overloads Function AddWishlistRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesWishlist As GamesRow) As WishlistRow
+ Dim rowWishlistRow As WishlistRow = CType(Me.NewRow,WishlistRow)
+ Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
+ If (Not (parentGamesRowByGamesWishlist) Is Nothing) Then
+ columnValuesArray(2) = parentGamesRowByGamesWishlist(0)
+ End If
+ rowWishlistRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowWishlistRow)
+ Return rowWishlistRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function FindByUserDetailsID(ByVal UserDetailsID As Integer) As User_DetailsRow
- Return CType(Me.Rows.Find(New Object() {UserDetailsID}),User_DetailsRow)
+ Public Function FindByWishlistID(ByVal WishlistID As Integer) As WishlistRow
+ Return CType(Me.Rows.Find(New Object() {WishlistID}),WishlistRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As User_DetailsDataTable = CType(MyBase.Clone,User_DetailsDataTable)
+ Dim cln As WishlistDataTable = CType(MyBase.Clone,WishlistDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New User_DetailsDataTable()
+ Return New WishlistDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
- Me.columnUserDetailsID = MyBase.Columns("UserDetailsID")
- Me.columnFirstName = MyBase.Columns("FirstName")
- Me.columnLastName = MyBase.Columns("LastName")
- Me.columnAddressLine1 = MyBase.Columns("AddressLine1")
- Me.columnTown = MyBase.Columns("Town")
- Me.columnPostcode = MyBase.Columns("Postcode")
- Me.columnCardNumber = MyBase.Columns("CardNumber")
- Me.columnCVC = MyBase.Columns("CVC")
- Me.columnIGN = MyBase.Columns("IGN")
- Me.columnEmail = MyBase.Columns("Email")
- Me.columnProfilePic = MyBase.Columns("ProfilePic")
+ Me.columnWishlistID = MyBase.Columns("WishlistID")
+ Me.columnUserID = MyBase.Columns("UserID")
+ Me.columnGameID = MyBase.Columns("GameID")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
- Me.columnUserDetailsID = New Global.System.Data.DataColumn("UserDetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnUserDetailsID)
- Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnFirstName)
- Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnLastName)
- Me.columnAddressLine1 = New Global.System.Data.DataColumn("AddressLine1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnAddressLine1)
- Me.columnTown = New Global.System.Data.DataColumn("Town", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTown)
- Me.columnPostcode = New Global.System.Data.DataColumn("Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnPostcode)
- Me.columnCardNumber = New Global.System.Data.DataColumn("CardNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCardNumber)
- Me.columnCVC = New Global.System.Data.DataColumn("CVC", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCVC)
- Me.columnIGN = New Global.System.Data.DataColumn("IGN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnIGN)
- Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnEmail)
- Me.columnProfilePic = New Global.System.Data.DataColumn("ProfilePic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnProfilePic)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserDetailsID}, true))
- Me.columnUserDetailsID.AutoIncrement = true
- Me.columnUserDetailsID.AutoIncrementSeed = -1
- Me.columnUserDetailsID.AutoIncrementStep = -1
- Me.columnUserDetailsID.AllowDBNull = false
- Me.columnUserDetailsID.Unique = true
- Me.columnFirstName.MaxLength = 536870910
- Me.columnLastName.MaxLength = 536870910
- Me.columnAddressLine1.MaxLength = 536870910
- Me.columnTown.MaxLength = 255
- Me.columnPostcode.MaxLength = 536870910
- Me.columnIGN.MaxLength = 536870910
- Me.columnEmail.MaxLength = 536870910
+ Me.columnWishlistID = New Global.System.Data.DataColumn("WishlistID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWishlistID)
+ Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnUserID)
+ Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGameID)
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWishlistID}, true))
+ Me.columnWishlistID.AutoIncrement = true
+ Me.columnWishlistID.AutoIncrementSeed = -1
+ Me.columnWishlistID.AutoIncrementStep = -1
+ Me.columnWishlistID.AllowDBNull = false
+ Me.columnWishlistID.Unique = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function NewUser_DetailsRow() As User_DetailsRow
- Return CType(Me.NewRow,User_DetailsRow)
+ Public Function NewWishlistRow() As WishlistRow
+ Return CType(Me.NewRow,WishlistRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New User_DetailsRow(builder)
+ Return New WishlistRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(User_DetailsRow)
+ Return GetType(WishlistRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
- If (Not (Me.User_DetailsRowChangedEvent) Is Nothing) Then
- RaiseEvent User_DetailsRowChanged(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
+ If (Not (Me.WishlistRowChangedEvent) Is Nothing) Then
+ RaiseEvent WishlistRowChanged(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
- If (Not (Me.User_DetailsRowChangingEvent) Is Nothing) Then
- RaiseEvent User_DetailsRowChanging(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
+ If (Not (Me.WishlistRowChangingEvent) Is Nothing) Then
+ RaiseEvent WishlistRowChanging(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
- If (Not (Me.User_DetailsRowDeletedEvent) Is Nothing) Then
- RaiseEvent User_DetailsRowDeleted(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
+ If (Not (Me.WishlistRowDeletedEvent) Is Nothing) Then
+ RaiseEvent WishlistRowDeleted(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
End If
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
- If (Not (Me.User_DetailsRowDeletingEvent) Is Nothing) Then
- RaiseEvent User_DetailsRowDeleting(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
+ If (Not (Me.WishlistRowDeletingEvent) Is Nothing) Then
+ RaiseEvent WishlistRowDeleting(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub RemoveUser_DetailsRow(ByVal row As User_DetailsRow)
+ Public Sub RemoveWishlistRow(ByVal row As WishlistRow)
Me.Rows.Remove(row)
End Sub
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "User_DetailsDataTable"
+ attribute2.FixedValue = "WishlistDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
End Property
End Class
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class WishlistRow
- Inherits Global.System.Data.DataRow
-
- Private tableWishlist As WishlistDataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableWishlist = CType(Me.Table,WishlistDataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property WishlistID() As Integer
- Get
- Return CType(Me(Me.tableWishlist.WishlistIDColumn),Integer)
- End Get
- Set
- Me(Me.tableWishlist.WishlistIDColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property UserID() As Integer
- Get
- Try
- Return CType(Me(Me.tableWishlist.UserIDColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Wishlist' is DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableWishlist.UserIDColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property GameID() As Integer
- Get
- Try
- Return CType(Me(Me.tableWishlist.GameIDColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Wishlist' is DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableWishlist.GameIDColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property GamesRow() As GamesRow
- Get
- Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesWishlist")),GamesRow)
- End Get
- Set
- Me.SetParentRow(value, Me.Table.ParentRelations("GamesWishlist"))
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsUserIDNull() As Boolean
- Return Me.IsNull(Me.tableWishlist.UserIDColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetUserIDNull()
- Me(Me.tableWishlist.UserIDColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsGameIDNull() As Boolean
- Return Me.IsNull(Me.tableWishlist.GameIDColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetGameIDNull()
- Me(Me.tableWishlist.GameIDColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class UsersRow
- Inherits Global.System.Data.DataRow
-
- Private tableUsers As UsersDataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableUsers = CType(Me.Table,UsersDataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property UserID() As Integer
- Get
- Return CType(Me(Me.tableUsers.UserIDColumn),Integer)
- End Get
- Set
- Me(Me.tableUsers.UserIDColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property User_DetailsID() As Integer
- Get
- Try
- Return CType(Me(Me.tableUsers.User_DetailsIDColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("The value for column 'User_DetailsID' in table 'Users' is DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableUsers.User_DetailsIDColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property Username() As String
- Get
- Try
- Return CType(Me(Me.tableUsers.UsernameColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableUsers.UsernameColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property Password() As String
- Get
- Try
- Return CType(Me(Me.tableUsers.PasswordColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableUsers.PasswordColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Property User_DetailsRow() As User_DetailsRow
- Get
- Return CType(Me.GetParentRow(Me.Table.ParentRelations("User_DetailsUsers")),User_DetailsRow)
- End Get
- Set
- Me.SetParentRow(value, Me.Table.ParentRelations("User_DetailsUsers"))
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsUser_DetailsIDNull() As Boolean
- Return Me.IsNull(Me.tableUsers.User_DetailsIDColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetUser_DetailsIDNull()
- Me(Me.tableUsers.User_DetailsIDColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsUsernameNull() As Boolean
- Return Me.IsNull(Me.tableUsers.UsernameColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetUsernameNull()
- Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsPasswordNull() As Boolean
- Return Me.IsNull(Me.tableUsers.PasswordColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetPasswordNull()
- Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetCVCNull()
- Me(Me.tableUser_Details.CVCColumn) = Global.System.Convert.DBNull
- End Sub
+ Public Sub SetCVCNull()
+ Me(Me.tableUser_Details.CVCColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsIGNNull() As Boolean
+ Return Me.IsNull(Me.tableUser_Details.IGNColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetIGNNull()
+ Me(Me.tableUser_Details.IGNColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsEmailNull() As Boolean
+ Return Me.IsNull(Me.tableUser_Details.EmailColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetEmailNull()
+ Me(Me.tableUser_Details.EmailColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsProfilePicNull() As Boolean
+ Return Me.IsNull(Me.tableUser_Details.ProfilePicColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetProfilePicNull()
+ Me(Me.tableUser_Details.ProfilePicColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function GetUsersRows() As UsersRow()
+ If (Me.Table.ChildRelations("User_DetailsUsers") Is Nothing) Then
+ Return New UsersRow(-1) {}
+ Else
+ Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("User_DetailsUsers")),UsersRow())
+ End If
+ End Function
+ End Class
+
+ '''<summary>
+ '''Represents strongly named DataRow class.
+ '''</summary>
+ Partial Public Class UsersRow
+ Inherits Global.System.Data.DataRow
+
+ Private tableUsers As UsersDataTable
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+ MyBase.New(rb)
+ Me.tableUsers = CType(Me.Table,UsersDataTable)
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property UserID() As Integer
+ Get
+ Return CType(Me(Me.tableUsers.UserIDColumn),Integer)
+ End Get
+ Set
+ Me(Me.tableUsers.UserIDColumn) = value
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property User_DetailsID() As Integer
+ Get
+ Try
+ Return CType(Me(Me.tableUsers.User_DetailsIDColumn),Integer)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("The value for column 'User_DetailsID' in table 'Users' is DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableUsers.User_DetailsIDColumn) = value
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property Username() As String
+ Get
+ Try
+ Return CType(Me(Me.tableUsers.UsernameColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableUsers.UsernameColumn) = value
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property Password() As String
+ Get
+ Try
+ Return CType(Me(Me.tableUsers.PasswordColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableUsers.PasswordColumn) = value
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property User_DetailsRow() As User_DetailsRow
+ Get
+ Return CType(Me.GetParentRow(Me.Table.ParentRelations("User_DetailsUsers")),User_DetailsRow)
+ End Get
+ Set
+ Me.SetParentRow(value, Me.Table.ParentRelations("User_DetailsUsers"))
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsUser_DetailsIDNull() As Boolean
+ Return Me.IsNull(Me.tableUsers.User_DetailsIDColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetUser_DetailsIDNull()
+ Me(Me.tableUsers.User_DetailsIDColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsUsernameNull() As Boolean
+ Return Me.IsNull(Me.tableUsers.UsernameColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetUsernameNull()
+ Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Function IsPasswordNull() As Boolean
+ Return Me.IsNull(Me.tableUsers.PasswordColumn)
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Sub SetPasswordNull()
+ Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull
+ End Sub
+ End Class
+
+ '''<summary>
+ '''Represents strongly named DataRow class.
+ '''</summary>
+ Partial Public Class WishlistRow
+ Inherits Global.System.Data.DataRow
+
+ Private tableWishlist As WishlistDataTable
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+ MyBase.New(rb)
+ Me.tableWishlist = CType(Me.Table,WishlistDataTable)
+ End Sub
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property WishlistID() As Integer
+ Get
+ Return CType(Me(Me.tableWishlist.WishlistIDColumn),Integer)
+ End Get
+ Set
+ Me(Me.tableWishlist.WishlistIDColumn) = value
+ End Set
+ End Property
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
+ Public Property UserID() As Integer
+ Get
+ Try
+ Return CType(Me(Me.tableWishlist.UserIDColumn),Integer)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Wishlist' is DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableWishlist.UserIDColumn) = value
+ End Set
+ End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsIGNNull() As Boolean
- Return Me.IsNull(Me.tableUser_Details.IGNColumn)
- End Function
+ Public Property GameID() As Integer
+ Get
+ Try
+ Return CType(Me(Me.tableWishlist.GameIDColumn),Integer)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Wishlist' is DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableWishlist.GameIDColumn) = value
+ End Set
+ End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetIGNNull()
- Me(Me.tableUser_Details.IGNColumn) = Global.System.Convert.DBNull
- End Sub
+ Public Property GamesRow() As GamesRow
+ Get
+ Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesWishlist")),GamesRow)
+ End Get
+ Set
+ Me.SetParentRow(value, Me.Table.ParentRelations("GamesWishlist"))
+ End Set
+ End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsEmailNull() As Boolean
- Return Me.IsNull(Me.tableUser_Details.EmailColumn)
+ Public Function IsUserIDNull() As Boolean
+ Return Me.IsNull(Me.tableWishlist.UserIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetEmailNull()
- Me(Me.tableUser_Details.EmailColumn) = Global.System.Convert.DBNull
+ Public Sub SetUserIDNull()
+ Me(Me.tableWishlist.UserIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function IsProfilePicNull() As Boolean
- Return Me.IsNull(Me.tableUser_Details.ProfilePicColumn)
+ Public Function IsGameIDNull() As Boolean
+ Return Me.IsNull(Me.tableWishlist.GameIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub SetProfilePicNull()
- Me(Me.tableUser_Details.ProfilePicColumn) = Global.System.Convert.DBNull
+ Public Sub SetGameIDNull()
+ Me(Me.tableWishlist.GameIDColumn) = Global.System.Convert.DBNull
End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Function GetUsersRows() As UsersRow()
- If (Me.Table.ChildRelations("User_DetailsUsers") Is Nothing) Then
- Return New UsersRow(-1) {}
- Else
- Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("User_DetailsUsers")),UsersRow())
- End If
- End Function
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Class WishlistRowChangeEvent
+ Public Class User_DetailsRowChangeEvent
Inherits Global.System.EventArgs
- Private eventRow As WishlistRow
+ Private eventRow As User_DetailsRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub New(ByVal row As WishlistRow, ByVal action As Global.System.Data.DataRowAction)
+ Public Sub New(ByVal row As User_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property Row() As WishlistRow
+ Public ReadOnly Property Row() As User_DetailsRow
Get
Return Me.eventRow
End Get
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Class User_DetailsRowChangeEvent
+ Public Class WishlistRowChangeEvent
Inherits Global.System.EventArgs
- Private eventRow As User_DetailsRow
+ Private eventRow As WishlistRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public Sub New(ByVal row As User_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
+ Public Sub New(ByVal row As WishlistRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
- Public ReadOnly Property Row() As User_DetailsRow
+ Public ReadOnly Property Row() As WishlistRow
Get
Return Me.eventRow
End Get
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class WishlistTableAdapter
+ Partial Public Class User_DetailsTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "Wishlist"
- tableMapping.ColumnMappings.Add("WishlistID", "WishlistID")
- tableMapping.ColumnMappings.Add("UserID", "UserID")
- tableMapping.ColumnMappings.Add("GameID", "GameID")
+ tableMapping.DataSetTable = "User_Details"
+ tableMapping.ColumnMappings.Add("UserDetailsID", "UserDetailsID")
+ tableMapping.ColumnMappings.Add("FirstName", "FirstName")
+ tableMapping.ColumnMappings.Add("LastName", "LastName")
+ tableMapping.ColumnMappings.Add("AddressLine1", "AddressLine1")
+ tableMapping.ColumnMappings.Add("Town", "Town")
+ tableMapping.ColumnMappings.Add("Postcode", "Postcode")
+ tableMapping.ColumnMappings.Add("CardNumber", "CardNumber")
+ tableMapping.ColumnMappings.Add("CVC", "CVC")
+ tableMapping.ColumnMappings.Add("IGN", "IGN")
+ tableMapping.ColumnMappings.Add("Email", "Email")
+ tableMapping.ColumnMappings.Add("ProfilePic", "ProfilePic")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Wishlist` WHERE ((`WishlistID` = ?) AND ((? = 1 AND `UserID` IS NULL"& _
- ") OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
+ Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Details` WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS"& _
+ " NULL) OR (`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` ="& _
+ " ?)) AND ((? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
- 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))
- 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))
- 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO `Wishlist` (`UserID`, `GameID`) VALUES (?, ?)"
+ Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
+ "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
+ ", ?, ?, ?, ?, ?)"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE `Wishlist` SET `UserID` = ?, `GameID` = ? WHERE ((`WishlistID` = ?) AND (("& _
- "? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL)"& _
- " OR (`GameID` = ?)))"
+ Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Details` SET `FirstName` = ?, `LastName` = ?, `AddressLine1` = ?, `T"& _
+ "own` = ?, `Postcode` = ?, `CardNumber` = ?, `CVC` = ?, `IGN` = ?, `Email` = ?, `"& _
+ "ProfilePic` = ? WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS NULL) OR "& _
+ "(`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` = ?)) AND ("& _
+ "(? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
- Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
+ Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT WishlistID, UserID, GameID FROM Wishlist"
+ Me._commandCollection(0).CommandText = "SELECT UserDetailsID, FirstName, LastName, AddressLine1, Town, Postcode, CardNumb"& _
+ "er, CVC, IGN, Email, ProfilePic FROM User_Details"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
+ Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As NEADataSet.WishlistDataTable
+ Public Overloads Overridable Function GetData() As NEADataSet.User_DetailsDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As NEADataSet.WishlistDataTable = New NEADataSet.WishlistDataTable()
+ Dim dataTable As NEADataSet.User_DetailsDataTable = New NEADataSet.User_DetailsDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
+ Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
- Return Me.Adapter.Update(dataSet, "Wishlist")
+ Return Me.Adapter.Update(dataSet, "User_Details")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- 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
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_WishlistID,Integer)
- If (Original_UserID.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
- Else
+ 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
+ Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserDetailsID,Integer)
+ If (Original_Town Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
+ Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Town,String)
End If
- If (Original_GameID.HasValue = true) Then
+ If (Original_CardNumber.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
+ Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CardNumber.Value,Integer)
Else
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
End If
+ If (Original_CVC.HasValue = true) Then
+ Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
+ Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CVC.Value,Integer)
+ Else
+ Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
+ Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
+ End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
- If (UserID.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
- Else
+ 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
+ If (FirstName Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirstName,String)
+ End If
+ If (LastName Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(1).Value = CType(LastName,String)
+ End If
+ If (AddressLine1 Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(2).Value = CType(AddressLine1,String)
+ End If
+ If (Town Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(3).Value = CType(Town,String)
+ End If
+ If (Postcode Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(4).Value = CType(Postcode,String)
+ End If
+ If (CardNumber.HasValue = true) Then
+ Me.Adapter.InsertCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
+ Else
+ Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
+ End If
+ If (CVC.HasValue = true) Then
+ Me.Adapter.InsertCommand.Parameters(6).Value = CType(CVC.Value,Integer)
+ Else
+ Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
+ End If
+ If (IGN Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(7).Value = CType(IGN,String)
+ End If
+ If (Email Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.InsertCommand.Parameters(8).Value = CType(Email,String)
End If
- If (GameID.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
+ If (ProfilePic Is Nothing) Then
+ Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
Else
- Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
+ Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,Byte())
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- 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
- If (UserID.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
- Else
+ 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
+ If (FirstName Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- End If
- If (GameID.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
Else
+ Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirstName,String)
+ End If
+ If (LastName Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LastName,String)
End If
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_WishlistID,Integer)
- If (Original_UserID.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
+ If (AddressLine1 Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
+ Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AddressLine1,String)
+ End If
+ If (Town Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Town,String)
+ End If
+ If (Postcode Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Postcode,String)
End If
- If (Original_GameID.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
+ If (CardNumber.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
+ Else
+ Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
+ End If
+ If (CVC.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CVC.Value,Integer)
Else
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
End If
+ If (IGN Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IGN,String)
+ End If
+ If (Email Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Email,String)
+ End If
+ If (ProfilePic Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,Byte())
+ End If
+ Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_UserDetailsID,Integer)
+ If (Original_Town Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
+ Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
+ Else
+ Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
+ Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Town,String)
+ End If
+ If (Original_CardNumber.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
+ Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CardNumber.Value,Integer)
+ Else
+ Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
+ Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
+ End If
+ If (Original_CVC.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
+ Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CVC.Value,Integer)
+ Else
+ Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
+ Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
+ End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT Users.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Users"
+ Me._commandCollection(0).CommandText = "SELECT UserID, User_DetailsID, Username, [Password] FROM Users"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class User_DetailsTableAdapter
+ Partial Public Class WishlistTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "User_Details"
- tableMapping.ColumnMappings.Add("UserDetailsID", "UserDetailsID")
- tableMapping.ColumnMappings.Add("FirstName", "FirstName")
- tableMapping.ColumnMappings.Add("LastName", "LastName")
- tableMapping.ColumnMappings.Add("AddressLine1", "AddressLine1")
- tableMapping.ColumnMappings.Add("Town", "Town")
- tableMapping.ColumnMappings.Add("Postcode", "Postcode")
- tableMapping.ColumnMappings.Add("CardNumber", "CardNumber")
- tableMapping.ColumnMappings.Add("CVC", "CVC")
- tableMapping.ColumnMappings.Add("IGN", "IGN")
- tableMapping.ColumnMappings.Add("Email", "Email")
- tableMapping.ColumnMappings.Add("ProfilePic", "ProfilePic")
+ tableMapping.DataSetTable = "Wishlist"
+ tableMapping.ColumnMappings.Add("WishlistID", "WishlistID")
+ tableMapping.ColumnMappings.Add("UserID", "UserID")
+ tableMapping.ColumnMappings.Add("GameID", "GameID")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Details` WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS"& _
- " NULL) OR (`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` ="& _
- " ?)) AND ((? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
+ Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Wishlist` WHERE ((`WishlistID` = ?) AND ((? = 1 AND `UserID` IS NULL"& _
+ ") OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
- "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
- ", ?, ?, ?, ?, ?)"
+ Me._adapter.InsertCommand.CommandText = "INSERT INTO `Wishlist` (`UserID`, `GameID`) VALUES (?, ?)"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
+ 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))
+ 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))
Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Details` SET `FirstName` = ?, `LastName` = ?, `AddressLine1` = ?, `T"& _
- "own` = ?, `Postcode` = ?, `CardNumber` = ?, `CVC` = ?, `IGN` = ?, `Email` = ?, `"& _
- "ProfilePic` = ? WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS NULL) OR "& _
- "(`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` = ?)) AND ("& _
- "(? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
+ Me._adapter.UpdateCommand.CommandText = "UPDATE `Wishlist` SET `UserID` = ?, `GameID` = ? WHERE ((`WishlistID` = ?) AND (("& _
+ "? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL)"& _
+ " OR (`GameID` = ?)))"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
- 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
+ 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))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitCommandCollection()
- Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {}
+ Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT User_Details.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM User_Details"
+ Me._commandCollection(0).CommandText = "SELECT WishlistID, UserID, GameID FROM Wishlist"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand()
- Me._commandCollection(1).Connection = Me.Connection
- Me._commandCollection(1).CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
- "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
- ", ?, ?, ?, ?, ?)"
- Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FirstName", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("LastName", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("AddressLine1", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AddressLine1", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Town", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Postcode", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).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))
- Me._commandCollection(1).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))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IGN", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "IGN", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
- Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.Binary, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
+ Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As NEADataSet.User_DetailsDataTable
+ Public Overloads Overridable Function GetData() As NEADataSet.WishlistDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As NEADataSet.User_DetailsDataTable = New NEADataSet.User_DetailsDataTable()
+ Dim dataTable As NEADataSet.WishlistDataTable = New NEADataSet.WishlistDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
+ Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
- Return Me.Adapter.Update(dataSet, "User_Details")
+ Return Me.Adapter.Update(dataSet, "Wishlist")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- 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
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserDetailsID,Integer)
- If (Original_Town Is Nothing) Then
+ 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
+ Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_WishlistID,Integer)
+ If (Original_UserID.HasValue = true) Then
+ Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
+ Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
+ Else
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Town,String)
End If
- If (Original_CardNumber.HasValue = true) Then
+ If (Original_GameID.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CardNumber.Value,Integer)
+ Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
Else
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
End If
- If (Original_CVC.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CVC.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close
End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- 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
- If (FirstName Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirstName,String)
- End If
- If (LastName Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(LastName,String)
- End If
- If (AddressLine1 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(2).Value = CType(AddressLine1,String)
- End If
- If (Town Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(Town,String)
- End If
- If (Postcode Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(4).Value = CType(Postcode,String)
- End If
- If (CardNumber.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
- End If
- If (CVC.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(6).Value = CType(CVC.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (IGN Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(7).Value = CType(IGN,String)
- End If
- If (Email Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
+ End Try
+ End Function
+
+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
+ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
+ Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
+ If (UserID.HasValue = true) Then
+ Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
Else
- Me.Adapter.InsertCommand.Parameters(8).Value = CType(Email,String)
+ Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
End If
- If (ProfilePic Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
+ If (GameID.HasValue = true) Then
+ Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
Else
- Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,Byte())
+ Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- 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
- If (FirstName Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirstName,String)
- End If
- If (LastName Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
+ 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
+ If (UserID.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
Else
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LastName,String)
+ Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
End If
- If (AddressLine1 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
+ If (GameID.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AddressLine1,String)
+ Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
- If (Town Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
+ Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_WishlistID,Integer)
+ If (Original_UserID.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
+ Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Town,String)
- End If
- If (Postcode Is Nothing) Then
+ Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Postcode,String)
- End If
- If (CardNumber.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
End If
- If (CVC.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CVC.Value,Integer)
+ If (Original_GameID.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
+ Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
Else
+ Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
End If
- If (IGN Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IGN,String)
- End If
- If (Email Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Email,String)
- End If
- If (ProfilePic Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,Byte())
- End If
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_UserDetailsID,Integer)
- If (Original_Town Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Town,String)
- End If
- If (Original_CardNumber.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CardNumber.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
- End If
- If (Original_CVC.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CVC.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
- End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
End If
End Try
End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _
- Public Overloads Overridable Function InsertQuery(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
- Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1)
- If (FirstName Is Nothing) Then
- command.Parameters(0).Value = Global.System.DBNull.Value
- Else
- command.Parameters(0).Value = CType(FirstName,String)
- End If
- If (LastName Is Nothing) Then
- command.Parameters(1).Value = Global.System.DBNull.Value
- Else
- command.Parameters(1).Value = CType(LastName,String)
- End If
- If (AddressLine1 Is Nothing) Then
- command.Parameters(2).Value = Global.System.DBNull.Value
- Else
- command.Parameters(2).Value = CType(AddressLine1,String)
- End If
- If (Town Is Nothing) Then
- command.Parameters(3).Value = Global.System.DBNull.Value
- Else
- command.Parameters(3).Value = CType(Town,String)
- End If
- If (Postcode Is Nothing) Then
- command.Parameters(4).Value = Global.System.DBNull.Value
- Else
- command.Parameters(4).Value = CType(Postcode,String)
- End If
- If (CardNumber.HasValue = true) Then
- command.Parameters(5).Value = CType(CardNumber.Value,Integer)
- Else
- command.Parameters(5).Value = Global.System.DBNull.Value
- End If
- If (CVC.HasValue = true) Then
- command.Parameters(6).Value = CType(CVC.Value,Integer)
- Else
- command.Parameters(6).Value = Global.System.DBNull.Value
- End If
- If (IGN Is Nothing) Then
- command.Parameters(7).Value = Global.System.DBNull.Value
- Else
- command.Parameters(7).Value = CType(IGN,String)
- End If
- If (Email Is Nothing) Then
- command.Parameters(8).Value = Global.System.DBNull.Value
- Else
- command.Parameters(8).Value = CType(Email,String)
- End If
- If (ProfilePic Is Nothing) Then
- command.Parameters(9).Value = Global.System.DBNull.Value
- Else
- command.Parameters(9).Value = CType(ProfilePic,Byte())
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
- If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- command.Connection.Open
- End If
- Dim returnValue As Integer
- Try
- returnValue = command.ExecuteNonQuery
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- command.Connection.Close
- End If
- End Try
- Return returnValue
- End Function
End Class
'''<summary>
Private _tagsTableAdapter As TagsTableAdapter
- Private _wishlistTableAdapter As WishlistTableAdapter
+ Private _user_DetailsTableAdapter As User_DetailsTableAdapter
Private _usersTableAdapter As UsersTableAdapter
- Private _user_DetailsTableAdapter As User_DetailsTableAdapter
+ Private _wishlistTableAdapter As WishlistTableAdapter
Private _backupDataSetBeforeUpdate As Boolean
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
- Public Property WishlistTableAdapter() As WishlistTableAdapter
+ Public Property User_DetailsTableAdapter() As User_DetailsTableAdapter
Get
- Return Me._wishlistTableAdapter
+ Return Me._user_DetailsTableAdapter
End Get
Set
- Me._wishlistTableAdapter = value
+ Me._user_DetailsTableAdapter = value
End Set
End Property
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
- Public Property User_DetailsTableAdapter() As User_DetailsTableAdapter
+ Public Property WishlistTableAdapter() As WishlistTableAdapter
Get
- Return Me._user_DetailsTableAdapter
+ Return Me._wishlistTableAdapter
End Get
Set
- Me._user_DetailsTableAdapter = value
+ Me._wishlistTableAdapter = value
End Set
End Property
AndAlso (Not (Me._tagsTableAdapter.Connection) Is Nothing)) Then
Return Me._tagsTableAdapter.Connection
End If
- If ((Not (Me._wishlistTableAdapter) Is Nothing) _
- AndAlso (Not (Me._wishlistTableAdapter.Connection) Is Nothing)) Then
- Return Me._wishlistTableAdapter.Connection
+ If ((Not (Me._user_DetailsTableAdapter) Is Nothing) _
+ AndAlso (Not (Me._user_DetailsTableAdapter.Connection) Is Nothing)) Then
+ Return Me._user_DetailsTableAdapter.Connection
End If
If ((Not (Me._usersTableAdapter) Is Nothing) _
AndAlso (Not (Me._usersTableAdapter.Connection) Is Nothing)) Then
Return Me._usersTableAdapter.Connection
End If
- If ((Not (Me._user_DetailsTableAdapter) Is Nothing) _
- AndAlso (Not (Me._user_DetailsTableAdapter.Connection) Is Nothing)) Then
- Return Me._user_DetailsTableAdapter.Connection
+ If ((Not (Me._wishlistTableAdapter) Is Nothing) _
+ AndAlso (Not (Me._wishlistTableAdapter.Connection) Is Nothing)) Then
+ Return Me._wishlistTableAdapter.Connection
End If
Return Nothing
End Get
If (Not (Me._tagsTableAdapter) Is Nothing) Then
count = (count + 1)
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._usersTableAdapter) Is Nothing) Then
count = (count + 1)
End If
- If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
count = (count + 1)
End If
Return count
allChangedRows.AddRange(updatedRows)
End If
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
+ If (Not (Me._usersTableAdapter) Is Nothing) Then
+ Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._wishlistTableAdapter.Update(updatedRows))
+ result = (result + Me._usersTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
- If (Not (Me._usersTableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ Dim updatedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._usersTableAdapter.Update(updatedRows))
+ result = (result + Me._wishlistTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
allAddedRows.AddRange(addedRows)
End If
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
+ If (Not (Me._usersTableAdapter) Is Nothing) Then
+ Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._wishlistTableAdapter.Update(addedRows))
+ result = (result + Me._usersTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
- If (Not (Me._usersTableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ Dim addedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._usersTableAdapter.Update(addedRows))
+ result = (result + Me._wishlistTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function UpdateDeletedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
- If (Not (Me._usersTableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ Dim deletedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._usersTableAdapter.Update(deletedRows))
+ result = (result + Me._wishlistTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
+ If (Not (Me._usersTableAdapter) Is Nothing) Then
+ Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._wishlistTableAdapter.Update(deletedRows))
+ result = (result + Me._usersTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
"tring.")
End If
- If ((Not (Me._wishlistTableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._wishlistTableAdapter.Connection) = false)) Then
+ If ((Not (Me._user_DetailsTableAdapter) Is Nothing) _
+ AndAlso (Me.MatchTableAdapterConnection(Me._user_DetailsTableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
"tring.")
End If
Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
"tring.")
End If
- If ((Not (Me._user_DetailsTableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._user_DetailsTableAdapter.Connection) = false)) Then
+ If ((Not (Me._wishlistTableAdapter) Is Nothing) _
+ AndAlso (Me.MatchTableAdapterConnection(Me._wishlistTableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
"tring.")
End If
adaptersWithAcceptChangesDuringUpdate.Add(Me._tagsTableAdapter.Adapter)
End If
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
- revertConnections.Add(Me._wishlistTableAdapter, Me._wishlistTableAdapter.Connection)
- Me._wishlistTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
- Me._wishlistTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
- If Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._wishlistTableAdapter.Adapter)
+ If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
+ revertConnections.Add(Me._user_DetailsTableAdapter, Me._user_DetailsTableAdapter.Connection)
+ Me._user_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
+ Me._user_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
+ If Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
+ Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
+ adaptersWithAcceptChangesDuringUpdate.Add(Me._user_DetailsTableAdapter.Adapter)
End If
End If
If (Not (Me._usersTableAdapter) Is Nothing) Then
adaptersWithAcceptChangesDuringUpdate.Add(Me._usersTableAdapter.Adapter)
End If
End If
- If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
- revertConnections.Add(Me._user_DetailsTableAdapter, Me._user_DetailsTableAdapter.Connection)
- Me._user_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
- Me._user_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
- If Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._user_DetailsTableAdapter.Adapter)
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ revertConnections.Add(Me._wishlistTableAdapter, Me._wishlistTableAdapter.Connection)
+ Me._wishlistTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
+ Me._wishlistTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
+ If Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate Then
+ Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate = false
+ adaptersWithAcceptChangesDuringUpdate.Add(Me._wishlistTableAdapter.Adapter)
End If
End If
'
Me._tagsTableAdapter.Connection = CType(revertConnections(Me._tagsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
Me._tagsTableAdapter.Transaction = Nothing
End If
- If (Not (Me._wishlistTableAdapter) Is Nothing) Then
- Me._wishlistTableAdapter.Connection = CType(revertConnections(Me._wishlistTableAdapter),Global.System.Data.OleDb.OleDbConnection)
- Me._wishlistTableAdapter.Transaction = Nothing
+ If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
+ Me._user_DetailsTableAdapter.Connection = CType(revertConnections(Me._user_DetailsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
+ Me._user_DetailsTableAdapter.Transaction = Nothing
End If
If (Not (Me._usersTableAdapter) Is Nothing) Then
Me._usersTableAdapter.Connection = CType(revertConnections(Me._usersTableAdapter),Global.System.Data.OleDb.OleDbConnection)
Me._usersTableAdapter.Transaction = Nothing
End If
- If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
- Me._user_DetailsTableAdapter.Connection = CType(revertConnections(Me._user_DetailsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
- Me._user_DetailsTableAdapter.Transaction = Nothing
+ If (Not (Me._wishlistTableAdapter) Is Nothing) Then
+ Me._wishlistTableAdapter.Connection = CType(revertConnections(Me._wishlistTableAdapter),Global.System.Data.OleDb.OleDbConnection)
+ Me._wishlistTableAdapter.Transaction = Nothing
End If
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
projects / NEATEST.git / blobdiff