MS0808
This commit is contained in:
SchreiberM
77
app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
generated
77
app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
generated
@@ -8873,6 +8873,8 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn
|
||||
|
||||
Private columnDATE_FORMAT As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -9052,6 +9054,14 @@ Partial Public Class DD_DMSDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnDATE_FORMAT
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -9106,9 +9116,10 @@ Partial Public Class DD_DMSDataSet
|
||||
ByVal LANGUAGE As String, _
|
||||
ByVal COMMENT As String, _
|
||||
ByVal SHORTNAME As String, _
|
||||
ByVal WAN_ENVIRONMENT As Boolean) As TBDD_USERRow
|
||||
ByVal WAN_ENVIRONMENT As Boolean, _
|
||||
ByVal DATE_FORMAT As String) As TBDD_USERRow
|
||||
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT}
|
||||
rowTBDD_USERRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBDD_USERRow)
|
||||
Return rowTBDD_USERRow
|
||||
@@ -9155,6 +9166,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
Me.columnSHORTNAME = MyBase.Columns("SHORTNAME")
|
||||
Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT")
|
||||
Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -9196,6 +9208,8 @@ Partial Public Class DD_DMSDataSet
|
||||
MyBase.Columns.Add(Me.columnSHORTNAME)
|
||||
Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT)
|
||||
Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnDATE_FORMAT)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
@@ -9221,6 +9235,9 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnSHORTNAME.MaxLength = 30
|
||||
Me.columnWAN_ENVIRONMENT.AllowDBNull = false
|
||||
Me.columnWAN_ENVIRONMENT.DefaultValue = CType(false,Boolean)
|
||||
Me.columnDATE_FORMAT.AllowDBNull = false
|
||||
Me.columnDATE_FORMAT.DefaultValue = CType("dd.MM.yyyy",String)
|
||||
Me.columnDATE_FORMAT.MaxLength = 10
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -25766,6 +25783,17 @@ Partial Public Class DD_DMSDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property DATE_FORMAT() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsPRENAMENull() As Boolean
|
||||
@@ -40062,6 +40090,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME")
|
||||
tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT")
|
||||
tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -40072,11 +40101,11 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _
|
||||
"LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM"& _
|
||||
"ENT, WAN_ENVIRONMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN"& _
|
||||
", 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
||||
"UID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_O"& _
|
||||
"UT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBD"& _
|
||||
"D_USER WHERE (GUID = SCOPE_IDENTITY())"
|
||||
"ENT, WAN_ENVIRONMENT, DATE_FORMAT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMA"& _
|
||||
"IL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT,@DA"& _
|
||||
"TE_FORMAT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGE"& _
|
||||
"D_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED"& _
|
||||
"_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -40088,15 +40117,17 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _
|
||||
"NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _
|
||||
"HANGED_WHO, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME = @SHORTN"& _
|
||||
"AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _
|
||||
"= @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, "& _
|
||||
"LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CH"& _
|
||||
"ANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)"
|
||||
"AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT, DATE_FORMAT = @DATE"& _
|
||||
"_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME,"& _
|
||||
" USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADM"& _
|
||||
"IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID "& _
|
||||
"= @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -40108,6 +40139,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -40127,8 +40159,9 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _
|
||||
"IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
|
||||
"_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERN"& _
|
||||
"AME"
|
||||
"_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT,"& _
|
||||
" DATE_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"O"& _
|
||||
"RDER BY USERNAME"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -40209,7 +40242,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String) As Integer
|
||||
If (PRENAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -40252,6 +40285,11 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
|
||||
If (DATE_FORMAT Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("DATE_FORMAT")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(10).Value = CType(DATE_FORMAT,String)
|
||||
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.Data.ConnectionState.Open) Then
|
||||
@@ -40271,7 +40309,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (PRENAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -40314,8 +40352,13 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer)
|
||||
If (DATE_FORMAT Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("DATE_FORMAT")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DATE_FORMAT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GUID,Integer)
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user