Add Sequence Field, dont delete source files on error
This commit is contained in:
Jonathan Jenne
267
Global_Indexer/MyDataset.Designer.vb
generated
267
Global_Indexer/MyDataset.Designer.vb
generated
@@ -4556,6 +4556,8 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnSQL_ACTIVE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSEQUENCE As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -4735,6 +4737,14 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSEQUENCE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -4790,9 +4800,10 @@ Partial Public Class MyDataset
|
||||
ByVal Indexiert As Boolean, _
|
||||
ByVal Indexwert As String, _
|
||||
ByVal VALUE As String, _
|
||||
ByVal SQL_ACTIVE As Boolean) As VWDDINDEX_AUTOMRow
|
||||
ByVal SQL_ACTIVE As Boolean, _
|
||||
ByVal SEQUENCE As Byte) As VWDDINDEX_AUTOMRow
|
||||
Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow)
|
||||
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE}
|
||||
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE}
|
||||
rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowVWDDINDEX_AUTOMRow)
|
||||
Return rowVWDDINDEX_AUTOMRow
|
||||
@@ -4839,6 +4850,7 @@ Partial Public Class MyDataset
|
||||
Me.columnIndexwert = MyBase.Columns("Indexwert")
|
||||
Me.columnVALUE = MyBase.Columns("VALUE")
|
||||
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
|
||||
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -4880,6 +4892,8 @@ Partial Public Class MyDataset
|
||||
MyBase.Columns.Add(Me.columnVALUE)
|
||||
Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
|
||||
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSEQUENCE)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
Me.columnGUID.Unique = true
|
||||
@@ -4904,6 +4918,7 @@ Partial Public Class MyDataset
|
||||
Me.columnIndexwert.DefaultValue = CType("",String)
|
||||
Me.columnVALUE.MaxLength = 2000
|
||||
Me.columnSQL_ACTIVE.AllowDBNull = false
|
||||
Me.columnSEQUENCE.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -5067,6 +5082,10 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnSQL_ACTIVE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSEQUENCE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSEQUENCE1 As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -5206,6 +5225,22 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSEQUENCE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property SEQUENCE1Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSEQUENCE1
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -5243,9 +5278,9 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As TBDD_INDEX_AUTOMRow
|
||||
Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As String, ByVal SEQUENCE1 As Byte) As TBDD_INDEX_AUTOMRow
|
||||
Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, SEQUENCE1}
|
||||
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then
|
||||
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0)
|
||||
End If
|
||||
@@ -5290,6 +5325,8 @@ Partial Public Class MyDataset
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
|
||||
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
|
||||
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
||||
Me.columnSEQUENCE1 = MyBase.Columns("SEQUENCE1")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -5321,6 +5358,10 @@ Partial Public Class MyDataset
|
||||
MyBase.Columns.Add(Me.columnSQL_RESULT)
|
||||
Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
|
||||
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSEQUENCE)
|
||||
Me.columnSEQUENCE1 = New Global.System.Data.DataColumn("SEQUENCE1", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSEQUENCE1)
|
||||
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
|
||||
@@ -5331,6 +5372,7 @@ Partial Public Class MyDataset
|
||||
Me.columnINDEXNAME.DefaultValue = CType("Auto-Index wählen",String)
|
||||
Me.columnINDEXNAME.MaxLength = 50
|
||||
Me.columnVALUE.MaxLength = 2000
|
||||
Me.columnCONNECTION_ID.AllowDBNull = false
|
||||
Me.columnCONNECTION_ID.DefaultValue = CType(0,Short)
|
||||
Me.columnCOMMENT.MaxLength = 400
|
||||
Me.columnACTIVE.AllowDBNull = false
|
||||
@@ -5338,10 +5380,13 @@ Partial Public Class MyDataset
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnSQL_RESULT.AllowDBNull = false
|
||||
Me.columnSQL_RESULT.DefaultValue = CType("",String)
|
||||
Me.columnSQL_RESULT.MaxLength = 2000
|
||||
Me.columnSQL_ACTIVE.AllowDBNull = false
|
||||
Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean)
|
||||
Me.columnSEQUENCE1.AllowDBNull = false
|
||||
Me.columnSEQUENCE1.Caption = "SEQUENCE"
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -11939,6 +11984,17 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property SEQUENCE() As Byte
|
||||
Get
|
||||
Return CType(Me(Me.tableVWDDINDEX_AUTOM.SEQUENCEColumn),Byte)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableVWDDINDEX_AUTOM.SEQUENCEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCOMMENTNull() As Boolean
|
||||
@@ -12127,11 +12183,7 @@ Partial Public Class MyDataset
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property CONNECTION_ID() As Short
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
||||
End Try
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value
|
||||
@@ -12224,11 +12276,7 @@ Partial Public Class MyDataset
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property SQL_RESULT() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
||||
End Try
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value
|
||||
@@ -12246,6 +12294,32 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property SEQUENCE() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property SEQUENCE1() As Byte
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCE1Column),Byte)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCE1Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
|
||||
@@ -12269,18 +12343,6 @@ Partial Public Class MyDataset
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCONNECTION_IDNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetCONNECTION_IDNull()
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCOMMENTNull() As Boolean
|
||||
@@ -12331,14 +12393,14 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsSQL_RESULTNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn)
|
||||
Public Function IsSEQUENCENull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetSQL_RESULTNull()
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull
|
||||
Public Sub SetSEQUENCENull()
|
||||
Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -17955,6 +18017,7 @@ Namespace MyDatasetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
|
||||
tableMapping.ColumnMappings.Add("VALUE", "VALUE")
|
||||
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
|
||||
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
End Sub
|
||||
|
||||
@@ -17973,8 +18036,8 @@ Namespace MyDatasetTableAdapters
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _
|
||||
"TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _
|
||||
"SULT, VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _
|
||||
"TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)"
|
||||
"SULT, VALUE, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VW"& _
|
||||
"DDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -18146,20 +18209,49 @@ Namespace MyDatasetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
|
||||
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
|
||||
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE1")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID]"& _
|
||||
" = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_V"& _
|
||||
"ALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_I"& _
|
||||
"D] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _
|
||||
"R ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED"& _
|
||||
"_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _
|
||||
"LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND "& _
|
||||
"[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _
|
||||
"_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _
|
||||
"NGED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Origi"& _
|
||||
"nal_SQL_ACTIVE))"
|
||||
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.DeleteCommand.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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _
|
||||
"LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
|
||||
" (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _
|
||||
",@SQL_RESULT,@SQL_ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _
|
||||
"ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _
|
||||
"ESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())"
|
||||
"LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE, SEQUENCE"& _
|
||||
")"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,"& _
|
||||
"@ADDED_WHO,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDE"& _
|
||||
"XNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _
|
||||
", CHANGED_WHEN, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())"& _
|
||||
""
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -18170,15 +18262,16 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _
|
||||
"NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _
|
||||
"MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
"SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _
|
||||
"al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _
|
||||
"ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _
|
||||
"NDEX_AUTOM WHERE (GUID = @GUID)"
|
||||
"SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&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, DOCTYPE_ID, INDEXNAME, VALUE, C"& _
|
||||
"ONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _
|
||||
" SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -18189,6 +18282,7 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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
|
||||
@@ -18207,8 +18301,9 @@ Namespace MyDatasetTableAdapters
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _
|
||||
" ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"
|
||||
" ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _
|
||||
"NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
|
||||
"ORDER BY SEQUENCE"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -18271,8 +18366,62 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_VALUE As String, ByVal Original_CONNECTION_ID As Short, ByVal Original_COMMENT As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SQL_RESULT As String, ByVal Original_SQL_ACTIVE As Boolean) As Integer
|
||||
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DOCTYPE_ID,Integer)
|
||||
If (Original_INDEXNAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_INDEXNAME")
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String)
|
||||
End If
|
||||
If (Original_VALUE Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VALUE,String)
|
||||
End If
|
||||
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CONNECTION_ID,Short)
|
||||
If (Original_COMMENT Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean)
|
||||
If (Original_ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String)
|
||||
End If
|
||||
If (Original_CHANGED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_SQL_RESULT Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_SQL_RESULT")
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SQL_RESULT,String)
|
||||
End If
|
||||
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_SQL_ACTIVE,Boolean)
|
||||
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
|
||||
@@ -18292,7 +18441,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As Integer
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
|
||||
If (INDEXNAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("INDEXNAME")
|
||||
@@ -18304,11 +18453,7 @@ Namespace MyDatasetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String)
|
||||
End If
|
||||
If (CONNECTION_ID.HasValue = true) Then
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short)
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -18321,11 +18466,12 @@ Namespace MyDatasetTableAdapters
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (SQL_RESULT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Byte)
|
||||
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
|
||||
@@ -18345,7 +18491,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
|
||||
If (INDEXNAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("INDEXNAME")
|
||||
@@ -18357,11 +18503,7 @@ Namespace MyDatasetTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String)
|
||||
End If
|
||||
If (CONNECTION_ID.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short)
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -18374,13 +18516,14 @@ Namespace MyDatasetTableAdapters
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
If (SQL_RESULT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Byte)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).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