MS ClassWM Resulthandler
This commit is contained in:
Digital Data - Marlon Schreiber
460
app/ResultHandler_Konfig/MyDataset.Designer.vb
generated
460
app/ResultHandler_Konfig/MyDataset.Designer.vb
generated
@@ -441,26 +441,16 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnLAST_TICK As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_AKTIV As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_ABS As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_EMP As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_SMTP As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_SSL As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_USER As Global.System.Data.DataColumn
|
||||
|
||||
Private columnEMAIL_USER_PW As Global.System.Data.DataColumn
|
||||
|
||||
Private columnLOG_ERRORS_ONLY As Global.System.Data.DataColumn
|
||||
|
||||
Private columnGEAENDERT_WER As Global.System.Data.DataColumn
|
||||
|
||||
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnPDF_TK_LOCATION As Global.System.Data.DataColumn
|
||||
|
||||
Private columnPDF_XCHANGE_LOCATION As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -528,62 +518,6 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_AKTIVColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_AKTIV
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_ABSColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_ABS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_EMPColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_EMP
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_SMTP
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_SSLColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_SSL
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_USER
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property EMAIL_USER_PWColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnEMAIL_USER_PW
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property LOG_ERRORS_ONLYColumn() As Global.System.Data.DataColumn
|
||||
@@ -608,6 +542,22 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property PDF_TK_LOCATIONColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnPDF_TK_LOCATION
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property PDF_XCHANGE_LOCATIONColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnPDF_XCHANGE_LOCATION
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -645,9 +595,9 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overloads Function AddTBWMRH_KONFIGURATIONRow(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal LAST_TICK As Date, ByVal EMAIL_AKTIV As Boolean, ByVal EMAIL_ABS As String, ByVal EMAIL_EMP As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_SSL As Boolean, ByVal EMAIL_USER As String, ByVal EMAIL_USER_PW As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal GEAENDERTWANN As Date) As TBWMRH_KONFIGURATIONRow
|
||||
Public Overloads Function AddTBWMRH_KONFIGURATIONRow(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal LAST_TICK As Date, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal GEAENDERTWANN As Date, ByVal PDF_TK_LOCATION As String, ByVal PDF_XCHANGE_LOCATION As String) As TBWMRH_KONFIGURATIONRow
|
||||
Dim rowTBWMRH_KONFIGURATIONRow As TBWMRH_KONFIGURATIONRow = CType(Me.NewRow,TBWMRH_KONFIGURATIONRow)
|
||||
Dim columnValuesArray() As Object = New Object() {GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, EMAIL_AKTIV, EMAIL_ABS, EMAIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAIL_USER_PW, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN}
|
||||
Dim columnValuesArray() As Object = New Object() {GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN, PDF_TK_LOCATION, PDF_XCHANGE_LOCATION}
|
||||
rowTBWMRH_KONFIGURATIONRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBWMRH_KONFIGURATIONRow)
|
||||
Return rowTBWMRH_KONFIGURATIONRow
|
||||
@@ -680,16 +630,11 @@ Partial Public Class MyDataset
|
||||
Me.columnWD_LAUFWERK = MyBase.Columns("WD_LAUFWERK")
|
||||
Me.columnINTERVALL = MyBase.Columns("INTERVALL")
|
||||
Me.columnLAST_TICK = MyBase.Columns("LAST_TICK")
|
||||
Me.columnEMAIL_AKTIV = MyBase.Columns("EMAIL_AKTIV")
|
||||
Me.columnEMAIL_ABS = MyBase.Columns("EMAIL_ABS")
|
||||
Me.columnEMAIL_EMP = MyBase.Columns("EMAIL_EMP")
|
||||
Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP")
|
||||
Me.columnEMAIL_SSL = MyBase.Columns("EMAIL_SSL")
|
||||
Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER")
|
||||
Me.columnEMAIL_USER_PW = MyBase.Columns("EMAIL_USER_PW")
|
||||
Me.columnLOG_ERRORS_ONLY = MyBase.Columns("LOG_ERRORS_ONLY")
|
||||
Me.columnGEAENDERT_WER = MyBase.Columns("GEAENDERT_WER")
|
||||
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
||||
Me.columnPDF_TK_LOCATION = MyBase.Columns("PDF_TK_LOCATION")
|
||||
Me.columnPDF_XCHANGE_LOCATION = MyBase.Columns("PDF_XCHANGE_LOCATION")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -703,26 +648,16 @@ Partial Public Class MyDataset
|
||||
MyBase.Columns.Add(Me.columnINTERVALL)
|
||||
Me.columnLAST_TICK = New Global.System.Data.DataColumn("LAST_TICK", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnLAST_TICK)
|
||||
Me.columnEMAIL_AKTIV = New Global.System.Data.DataColumn("EMAIL_AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_AKTIV)
|
||||
Me.columnEMAIL_ABS = New Global.System.Data.DataColumn("EMAIL_ABS", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_ABS)
|
||||
Me.columnEMAIL_EMP = New Global.System.Data.DataColumn("EMAIL_EMP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_EMP)
|
||||
Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_SMTP)
|
||||
Me.columnEMAIL_SSL = New Global.System.Data.DataColumn("EMAIL_SSL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_SSL)
|
||||
Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_USER)
|
||||
Me.columnEMAIL_USER_PW = New Global.System.Data.DataColumn("EMAIL_USER_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnEMAIL_USER_PW)
|
||||
Me.columnLOG_ERRORS_ONLY = New Global.System.Data.DataColumn("LOG_ERRORS_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnLOG_ERRORS_ONLY)
|
||||
Me.columnGEAENDERT_WER = New Global.System.Data.DataColumn("GEAENDERT_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnGEAENDERT_WER)
|
||||
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
||||
Me.columnPDF_TK_LOCATION = New Global.System.Data.DataColumn("PDF_TK_LOCATION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnPDF_TK_LOCATION)
|
||||
Me.columnPDF_XCHANGE_LOCATION = New Global.System.Data.DataColumn("PDF_XCHANGE_LOCATION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnPDF_XCHANGE_LOCATION)
|
||||
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
|
||||
@@ -730,15 +665,12 @@ Partial Public Class MyDataset
|
||||
Me.columnWD_LAUFWERK.MaxLength = 10
|
||||
Me.columnINTERVALL.AllowDBNull = false
|
||||
Me.columnLAST_TICK.AllowDBNull = false
|
||||
Me.columnEMAIL_AKTIV.AllowDBNull = false
|
||||
Me.columnEMAIL_ABS.MaxLength = 100
|
||||
Me.columnEMAIL_EMP.MaxLength = 100
|
||||
Me.columnEMAIL_SMTP.MaxLength = 100
|
||||
Me.columnEMAIL_SSL.AllowDBNull = false
|
||||
Me.columnEMAIL_USER.MaxLength = 100
|
||||
Me.columnEMAIL_USER_PW.MaxLength = 100
|
||||
Me.columnLOG_ERRORS_ONLY.AllowDBNull = false
|
||||
Me.columnGEAENDERT_WER.MaxLength = 100
|
||||
Me.columnPDF_TK_LOCATION.AllowDBNull = false
|
||||
Me.columnPDF_TK_LOCATION.MaxLength = 500
|
||||
Me.columnPDF_XCHANGE_LOCATION.AllowDBNull = false
|
||||
Me.columnPDF_XCHANGE_LOCATION.MaxLength = 500
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2372,6 +2304,8 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSSL_AUTH As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -2503,6 +2437,14 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property SSL_AUTHColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSSL_AUTH
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -2540,9 +2482,9 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow
|
||||
Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, 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 SSL_AUTH As Boolean) As TBDD_EMAIL_ACCOUNTRow
|
||||
Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH}
|
||||
rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow)
|
||||
Return rowTBDD_EMAIL_ACCOUNTRow
|
||||
@@ -2583,6 +2525,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.columnSSL_AUTH = MyBase.Columns("SSL_AUTH")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2612,6 +2555,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.columnSSL_AUTH = New Global.System.Data.DataColumn("SSL_AUTH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSSL_AUTH)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = 1
|
||||
@@ -2620,20 +2565,25 @@ Partial Public Class MyDataset
|
||||
Me.columnGUID.Unique = true
|
||||
Me.columnNAME.MaxLength = 50
|
||||
Me.columnEMAIL_FROM.AllowDBNull = false
|
||||
Me.columnEMAIL_FROM.DefaultValue = CType("Your Email Adress",String)
|
||||
Me.columnEMAIL_FROM.MaxLength = 100
|
||||
Me.columnEMAIL_SMTP.AllowDBNull = false
|
||||
Me.columnEMAIL_SMTP.MaxLength = 100
|
||||
Me.columnEMAIL_USER.AllowDBNull = false
|
||||
Me.columnEMAIL_USER.DefaultValue = CType("Your Email Adress",String)
|
||||
Me.columnEMAIL_USER.MaxLength = 100
|
||||
Me.columnEMAIL_PW.AllowDBNull = false
|
||||
Me.columnEMAIL_PW.DefaultValue = CType("4711",String)
|
||||
Me.columnEMAIL_PW.MaxLength = 100
|
||||
Me.columnEMAIL_PW.MaxLength = 500
|
||||
Me.columnPORT.AllowDBNull = false
|
||||
Me.columnPORT.DefaultValue = CType(25,Integer)
|
||||
Me.columnACTIVE.AllowDBNull = false
|
||||
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnSSL_AUTH.AllowDBNull = false
|
||||
Me.columnSSL_AUTH.DefaultValue = CType(false,Boolean)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2822,103 +2772,6 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_AKTIV() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_AKTIVColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_AKTIVColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_ABS() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_ABSColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_ABS in Tabelle TBWMRH_KONFIGURATION ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_ABSColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_EMP() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_EMPColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_EMP in Tabelle TBWMRH_KONFIGURATION ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_EMPColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_SMTP() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_SMTPColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBWMRH_KONFIGURATION ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_SMTPColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_SSL() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_SSLColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_SSLColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_USER() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USERColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBWMRH_KONFIGURATION ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USERColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property EMAIL_USER_PW() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USER_PWColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER_PW in Tabelle TBWMRH_KONFIGURATION ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USER_PWColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property LOG_ERRORS_ONLY() As Boolean
|
||||
@@ -2962,63 +2815,25 @@ Partial Public Class MyDataset
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsEMAIL_ABSNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.EMAIL_ABSColumn)
|
||||
End Function
|
||||
Public Property PDF_TK_LOCATION() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.PDF_TK_LOCATIONColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.PDF_TK_LOCATIONColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetEMAIL_ABSNull()
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_ABSColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsEMAIL_EMPNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.EMAIL_EMPColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetEMAIL_EMPNull()
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_EMPColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsEMAIL_SMTPNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.EMAIL_SMTPColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetEMAIL_SMTPNull()
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsEMAIL_USERNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.EMAIL_USERColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetEMAIL_USERNull()
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsEMAIL_USER_PWNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.EMAIL_USER_PWColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetEMAIL_USER_PWNull()
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.EMAIL_USER_PWColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
Public Property PDF_XCHANGE_LOCATION() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBWMRH_KONFIGURATION.PDF_XCHANGE_LOCATIONColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBWMRH_KONFIGURATION.PDF_XCHANGE_LOCATIONColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
@@ -4274,6 +4089,17 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property SSL_AUTH() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsNAMENull() As Boolean
|
||||
@@ -4637,42 +4463,28 @@ Namespace MyDatasetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("WD_LAUFWERK", "WD_LAUFWERK")
|
||||
tableMapping.ColumnMappings.Add("INTERVALL", "INTERVALL")
|
||||
tableMapping.ColumnMappings.Add("LAST_TICK", "LAST_TICK")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_AKTIV", "EMAIL_AKTIV")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_ABS", "EMAIL_ABS")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_EMP", "EMAIL_EMP")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_SSL", "EMAIL_SSL")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER")
|
||||
tableMapping.ColumnMappings.Add("EMAIL_USER_PW", "EMAIL_USER_PW")
|
||||
tableMapping.ColumnMappings.Add("LOG_ERRORS_ONLY", "LOG_ERRORS_ONLY")
|
||||
tableMapping.ColumnMappings.Add("GEAENDERT_WER", "GEAENDERT_WER")
|
||||
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
||||
tableMapping.ColumnMappings.Add("PDF_TK_LOCATION", "PDF_TK_LOCATION")
|
||||
tableMapping.ColumnMappings.Add("PDF_XCHANGE_LOCATION", "PDF_XCHANGE_LOCATION")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBWMRH_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, WD_LAUFWERK ="& _
|
||||
" @WD_LAUFWERK, INTERVALL = @INTERVALL, EMAIL_AKTIV = @EMAIL_AKTIV, EMAIL_ABS = @"& _
|
||||
"EMAIL_ABS, EMAIL_EMP = @EMAIL_EMP, EMAIL_SMTP = @EMAIL_SMTP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" EMAIL_SSL = @EMAIL_SSL, EMAIL_USER = @EMAIL_USER, EMAIL_USER_PW = @EMAIL"& _
|
||||
"_USER_PW, LOG_ERRORS_ONLY = @LOG_ERRORS_ONLY, GEAENDERT_WER = @GEAENDERT_WER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _
|
||||
"ERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WD_LAUFWERK, INTERVALL, LAST_"& _
|
||||
"TICK, EMAIL_AKTIV, EMAIL_ABS, EMAIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAI"& _
|
||||
"L_USER_PW, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN FROM TBWMRH_KONFIGURATI"& _
|
||||
"ON WHERE (GUID = @GUID)"
|
||||
" @WD_LAUFWERK, INTERVALL = @INTERVALL, LAST_TICK = @LAST_TICK, LOG_ERRORS_ONLY ="& _
|
||||
" @LOG_ERRORS_ONLY, GEAENDERT_WER = @GEAENDERT_WER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PD"& _
|
||||
"F_TK_LOCATION = @PDF_TK_LOCATION, PDF_XCHANGE_LOCATION = @PDF_XCHANGE_LOCATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
|
||||
"WHERE (GUID = 1)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
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.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_LAUFWERK", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_LAUFWERK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ABS", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ABS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_EMP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_EMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SSL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SSL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_ERRORS_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_ERRORS_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERT_WER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERT_WER", 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("@PDF_TK_LOCATION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "PDF_TK_LOCATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PDF_XCHANGE_LOCATION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "PDF_XCHANGE_LOCATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -4688,10 +4500,9 @@ Namespace MyDatasetTableAdapters
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, EMAIL_AKTIV, EMAIL_ABS, EM"& _
|
||||
"AIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAIL_USER_PW, LOG_ERRORS_ONLY, GEAE"& _
|
||||
"NDERT_WER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWMRH_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _
|
||||
"ID = 1)"
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, LOG_ERRORS_ONLY, GEAENDERT"& _
|
||||
"_WER, GEAENDERTWANN, PDF_TK_LOCATION, PDF_XCHANGE_LOCATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWM"& _
|
||||
"RH_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -4751,7 +4562,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal EMAIL_AKTIV As Boolean, ByVal EMAIL_ABS As String, ByVal EMAIL_EMP As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_SSL As Boolean, ByVal EMAIL_USER As String, ByVal EMAIL_USER_PW As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal Original_GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal LAST_TICK As Date, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal PDF_TK_LOCATION As String, ByVal PDF_XCHANGE_LOCATION As String) As Integer
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Integer)
|
||||
If (WD_LAUFWERK Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("WD_LAUFWERK")
|
||||
@@ -4759,40 +4570,23 @@ Namespace MyDatasetTableAdapters
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WD_LAUFWERK,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INTERVALL,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_AKTIV,Boolean)
|
||||
If (EMAIL_ABS Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_ABS,String)
|
||||
End If
|
||||
If (EMAIL_EMP Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LAST_TICK,Date)
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LOG_ERRORS_ONLY,Boolean)
|
||||
If (GEAENDERT_WER Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_EMP,String)
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERT_WER,String)
|
||||
End If
|
||||
If (EMAIL_SMTP Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
||||
If (PDF_TK_LOCATION Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("PDF_TK_LOCATION")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_SMTP,String)
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PDF_TK_LOCATION,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_SSL,Boolean)
|
||||
If (EMAIL_USER Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
||||
If (PDF_XCHANGE_LOCATION Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("PDF_XCHANGE_LOCATION")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_USER,String)
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PDF_XCHANGE_LOCATION,String)
|
||||
End If
|
||||
If (EMAIL_USER_PW Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_USER_PW,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(LOG_ERRORS_ONLY,Boolean)
|
||||
If (GEAENDERT_WER Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GEAENDERT_WER,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_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
|
||||
@@ -4807,14 +4601,6 @@ Namespace MyDatasetTableAdapters
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal EMAIL_AKTIV As Boolean, ByVal EMAIL_ABS As String, ByVal EMAIL_EMP As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_SSL As Boolean, ByVal EMAIL_USER As String, ByVal EMAIL_USER_PW As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal Original_GUID As Integer) As Integer
|
||||
Return Me.Update(Original_GUID, WD_LAUFWERK, INTERVALL, EMAIL_AKTIV, EMAIL_ABS, EMAIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAIL_USER_PW, LOG_ERRORS_ONLY, GEAENDERT_WER, Original_GUID)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -6568,6 +6354,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("SSL_AUTH", "SSL_AUTH")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -6577,37 +6364,40 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _
|
||||
"_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMA"& _
|
||||
"IL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _
|
||||
"ID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO,"& _
|
||||
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCO"& _
|
||||
"PE_IDENTITY())"
|
||||
"_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _
|
||||
"@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@SS"& _
|
||||
"L_AUTH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, POR"& _
|
||||
"T, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCO"& _
|
||||
"UNT WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
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, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
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("@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("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", 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_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _
|
||||
"MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _
|
||||
"_PW, PORT = @PORT, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @C"& _
|
||||
"HANGED_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, NAME, EMAIL_FRO"& _
|
||||
"M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _
|
||||
"D_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = @GUID)"
|
||||
"_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" SSL_AUTH = @SSL_AUTH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
|
||||
"T GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_"& _
|
||||
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID ="& _
|
||||
" @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
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, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
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("@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("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", 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
|
||||
@@ -6626,8 +6416,8 @@ Namespace MyDatasetTableAdapters
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _
|
||||
"IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAI"& _
|
||||
"L_ACCOUNT"
|
||||
"IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" TBDD_EMAIL_ACCOUNT"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -6708,7 +6498,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
||||
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SSL_AUTH As Boolean) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -6741,6 +6531,7 @@ Namespace MyDatasetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean)
|
||||
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
|
||||
@@ -6760,7 +6551,7 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -6793,8 +6584,9 @@ 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)
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean)
|
||||
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