WIP Email Validation
This commit is contained in:
Jonathan Jenne
84
App/EmailProfiler.Form/MyDataset.Designer.vb
generated
84
App/EmailProfiler.Form/MyDataset.Designer.vb
generated
@@ -532,6 +532,8 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnVALIDATION_SQL As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -663,6 +665,14 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public ReadOnly Property VALIDATION_SQLColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnVALIDATION_SQL
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -700,9 +710,9 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Overloads Function AddTBEMLP_POLL_PROFILESRow(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Date, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_PROFILESRow
|
||||
Public Overloads Function AddTBEMLP_POLL_PROFILESRow(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Date, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VALIDATION_SQL As String) As TBEMLP_POLL_PROFILESRow
|
||||
Dim rowTBEMLP_POLL_PROFILESRow As TBEMLP_POLL_PROFILESRow = CType(Me.NewRow,TBEMLP_POLL_PROFILESRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VALIDATION_SQL}
|
||||
rowTBEMLP_POLL_PROFILESRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBEMLP_POLL_PROFILESRow)
|
||||
Return rowTBEMLP_POLL_PROFILESRow
|
||||
@@ -743,6 +753,7 @@ Partial Public Class MyDataset
|
||||
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
||||
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnVALIDATION_SQL = MyBase.Columns("VALIDATION_SQL")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -772,6 +783,8 @@ Partial Public Class MyDataset
|
||||
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
||||
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
||||
Me.columnVALIDATION_SQL = New Global.System.Data.DataColumn("VALIDATION_SQL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnVALIDATION_SQL)
|
||||
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
|
||||
@@ -3801,6 +3814,21 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Property VALIDATION_SQL() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALIDATION_SQL in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Function IsCOMMENTNull() As Boolean
|
||||
@@ -3885,6 +3913,18 @@ Partial Public Class MyDataset
|
||||
Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Function IsVALIDATION_SQLNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Sub SetVALIDATION_SQLNull()
|
||||
Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
||||
Public Function GetTBEMLP_POLL_PROCESSRows() As TBEMLP_POLL_PROCESSRow()
|
||||
@@ -6027,6 +6067,7 @@ Namespace MyDatasetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("VALIDATION_SQL", "VALIDATION_SQL")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -6065,11 +6106,12 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEMLP_POLL_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, POLL_TY"& _
|
||||
"PE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
|
||||
" (@PROFILE_NAME,@POLL_TYPE,@EMAIL_CONF_ID,@COMMENT,@LAST_TICK,@ACTIVE,@SEQUENC"& _
|
||||
"E,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, L"& _
|
||||
"AST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FRO"& _
|
||||
"M TBEMLP_POLL_PROFILES WHERE (GUID = SCOPE_IDENTITY())"
|
||||
"PE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, VALIDATION_S"& _
|
||||
"QL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@POLL_TYPE,@EMAIL_CONF_ID,@COMMENT,@LAST_TICK,"& _
|
||||
"@ACTIVE,@SEQUENCE,@ADDED_WHO,@VALIDATION_SQL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, POL"& _
|
||||
"L_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WH"& _
|
||||
"EN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = SCOPE_IDEN"& _
|
||||
"TITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -6079,15 +6121,16 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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, 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("@VALIDATION_SQL", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", 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 TBEMLP_POLL_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAM"& _
|
||||
"E, POLL_TYPE = @POLL_TYPE, EMAIL_CONF_ID = @EMAIL_CONF_ID, COMMENT = @COMMENT, L"& _
|
||||
"AST_TICK = @LAST_TICK, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" CHANGED_WHO = @CHANGED_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)&"SE"& _
|
||||
"LECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, S"& _
|
||||
"EQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_PROFI"& _
|
||||
"LES WHERE (GUID = @GUID)"
|
||||
" CHANGED_WHO = @CHANGED_WHO, VALIDATION_SQL = @VALIDATION_SQL"&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, PROFILE_NAME, POLL_TYPE, EMAIL_CO"& _
|
||||
"NF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _
|
||||
" CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -6097,6 +6140,7 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, 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("@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("@VALIDATION_SQL", Global.System.Data.SqlDbType.NVarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", 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
|
||||
@@ -6256,7 +6300,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String, ByVal VALIDATION_SQL As Object) As Integer
|
||||
If (PROFILE_NAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
||||
Else
|
||||
@@ -6289,6 +6333,11 @@ Namespace MyDatasetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (VALIDATION_SQL Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("VALIDATION_SQL")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(VALIDATION_SQL,Object)
|
||||
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
|
||||
@@ -6308,7 +6357,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal VALIDATION_SQL As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (PROFILE_NAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
||||
Else
|
||||
@@ -6341,8 +6390,13 @@ Namespace MyDatasetTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer)
|
||||
If (VALIDATION_SQL Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("VALIDATION_SQL")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VALIDATION_SQL,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).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