X-Git-Url: https://fbox.kageds.com/gitweb/NEATEST.git/blobdiff_plain/599222942c6c954fb8eb161aade645f0c38c1a13..32b2b293bfb2fd56e2b24c67bb5c2a809b38b523:/NEA/NEADataSet.Designer.vb?ds=sidebyside diff --git a/NEA/NEADataSet.Designer.vb b/NEA/NEADataSet.Designer.vb index c2729dd..aa6cc4f 100644 --- a/NEA/NEADataSet.Designer.vb +++ b/NEA/NEADataSet.Designer.vb @@ -3009,7 +3009,7 @@ Partial Public Class NEADataSet _ - 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 String) As User_DetailsRow + 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 @@ -3076,7 +3076,7 @@ Partial Public Class NEADataSet 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(String), Nothing, Global.System.Data.MappingType.Element) + 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 @@ -3091,7 +3091,6 @@ Partial Public Class NEADataSet Me.columnPostcode.MaxLength = 536870910 Me.columnIGN.MaxLength = 536870910 Me.columnEmail.MaxLength = 536870910 - Me.columnProfilePic.MaxLength = 536870910 End Sub _ - Public Property ProfilePic() As String + Public Property ProfilePic() As Byte() Get Try - Return CType(Me(Me.tableUser_Details.ProfilePicColumn),String) + Return CType(Me(Me.tableUser_Details.ProfilePicColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'ProfilePic' in table 'User_Details' is DBNull.", e) End Try @@ -5845,7 +5844,7 @@ Namespace NEADataSetTableAdapters 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ - 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 String) As Integer + 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 @@ -8548,7 +8547,7 @@ Namespace NEADataSetTableAdapters If (ProfilePic Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,String) + 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) _ @@ -8569,7 +8568,7 @@ Namespace NEADataSetTableAdapters 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 String, 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 + 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 @@ -8618,7 +8617,7 @@ Namespace NEADataSetTableAdapters If (ProfilePic Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,String) + 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 @@ -8823,7 +8822,7 @@ Namespace NEADataSetTableAdapters 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 _ 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