ZooFlow: Redo Admin
This commit is contained in:
Jonathan Jenne
244
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
244
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
@@ -2863,46 +2863,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE")
|
||||
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 TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _
|
||||
"XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _
|
||||
"_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_"& _
|
||||
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN F"& _
|
||||
"ROM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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 TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _
|
||||
", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _
|
||||
" @VIEW_VISIBLE, COMMENT = @COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CH"& _
|
||||
"ANGED_WHO"&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, TITLE, TYP_ID, "& _
|
||||
"MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _
|
||||
"GED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE W"& _
|
||||
"HERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, 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("@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
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2925,16 +2885,18 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
"IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _
|
||||
"E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"
|
||||
" TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).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.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
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.Fill, true)> _
|
||||
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer
|
||||
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
@@ -2946,141 +2908,13 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
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.[Select], true)> _
|
||||
Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable
|
||||
Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
|
||||
Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer
|
||||
Return Me.Adapter.Update(dataTable)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer
|
||||
Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE")
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
||||
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
||||
Return Me.Adapter.Update(dataRows)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
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
|
||||
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
||||
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
|
||||
Me.Adapter.DeleteCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
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", "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 TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer
|
||||
If (TITLE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("TITLE")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYP_ID,Byte)
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer)
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String)
|
||||
End If
|
||||
If (ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,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
|
||||
Me.Adapter.InsertCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
Me.Adapter.InsertCommand.Connection.Close
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
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 TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (TITLE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("TITLE")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYP_ID,Byte)
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String)
|
||||
End If
|
||||
If (CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(8).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
|
||||
Me.Adapter.UpdateCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
Me.Adapter.UpdateCommand.Connection.Close
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -3656,8 +3490,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
|
||||
Private _tBIDB_BUSINESS_ENTITYTableAdapter As TBIDB_BUSINESS_ENTITYTableAdapter
|
||||
|
||||
Private _tBIDB_ATTRIBUTETableAdapter As TBIDB_ATTRIBUTETableAdapter
|
||||
|
||||
Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter
|
||||
|
||||
Private _backupDataSetBeforeUpdate As Boolean
|
||||
@@ -3689,20 +3521,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
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 TBIDB_ATTRIBUTETableAdapter() As TBIDB_ATTRIBUTETableAdapter
|
||||
Get
|
||||
Return Me._tBIDB_ATTRIBUTETableAdapter
|
||||
End Get
|
||||
Set
|
||||
Me._tBIDB_ATTRIBUTETableAdapter = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
||||
@@ -3740,10 +3558,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
AndAlso (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) Is Nothing)) Then
|
||||
Return Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection
|
||||
End If
|
||||
If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _
|
||||
AndAlso (Not (Me._tBIDB_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then
|
||||
Return Me._tBIDB_ATTRIBUTETableAdapter.Connection
|
||||
End If
|
||||
If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _
|
||||
AndAlso (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Is Nothing)) Then
|
||||
Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection
|
||||
@@ -3764,9 +3578,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
|
||||
count = (count + 1)
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
count = (count + 1)
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
|
||||
count = (count + 1)
|
||||
End If
|
||||
@@ -3790,15 +3601,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
allChangedRows.AddRange(updatedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.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._tBIDB_ATTRIBUTETableAdapter.Update(updatedRows))
|
||||
allChangedRows.AddRange(updatedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
|
||||
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
||||
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
||||
@@ -3826,14 +3628,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
allAddedRows.AddRange(addedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
||||
If ((Not (addedRows) Is Nothing) _
|
||||
AndAlso (0 < addedRows.Length)) Then
|
||||
result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(addedRows))
|
||||
allAddedRows.AddRange(addedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
|
||||
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
||||
If ((Not (addedRows) Is Nothing) _
|
||||
@@ -3860,14 +3654,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
allChangedRows.AddRange(deletedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
||||
If ((Not (deletedRows) Is Nothing) _
|
||||
AndAlso (0 < deletedRows.Length)) Then
|
||||
result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(deletedRows))
|
||||
allChangedRows.AddRange(deletedRows)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
|
||||
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
||||
If ((Not (deletedRows) Is Nothing) _
|
||||
@@ -3922,11 +3708,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
||||
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
||||
End If
|
||||
If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _
|
||||
AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTETableAdapter.Connection) = false)) Then
|
||||
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
||||
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
||||
End If
|
||||
If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _
|
||||
AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) = false)) Then
|
||||
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
||||
@@ -3975,15 +3756,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
revertConnections.Add(Me._tBIDB_ATTRIBUTETableAdapter, Me._tBIDB_ATTRIBUTETableAdapter.Connection)
|
||||
Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
||||
Me._tBIDB_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
||||
If Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
||||
Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
||||
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTETableAdapter.Adapter)
|
||||
End If
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
|
||||
revertConnections.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter, Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection)
|
||||
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
||||
@@ -4057,10 +3829,6 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(revertConnections(Me._tBIDB_BUSINESS_ENTITYTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
||||
Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = Nothing
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
|
||||
Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
||||
Me._tBIDB_ATTRIBUTETableAdapter.Transaction = Nothing
|
||||
End If
|
||||
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
|
||||
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTE_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
||||
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = Nothing
|
||||
|
||||
Reference in New Issue
Block a user