This commit is contained in:
SchreiberM
2015-09-29 12:16:23 +02:00
parent 379a63d9a8
commit 80247e18dd
31 changed files with 1808 additions and 524 deletions

View File

@@ -1608,7 +1608,6 @@ Partial Public Class MyDataset
Me.columnLOGGED_WHERE.MaxLength = 50
Me.columnGI_ADMIN.AllowDBNull = false
Me.columnGI_ADMIN.DefaultValue = CType(false,Boolean)
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
@@ -12245,7 +12244,11 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String)
Try
Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value
@@ -12369,6 +12372,18 @@ Partial Public Class MyDataset
Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBDD_USER.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
@@ -19133,7 +19148,7 @@ Namespace MyDatasetTableAdapters
End If
Me.Adapter.InsertCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean)
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String)
End If