31472 lines
1.8 MiB
31472 lines
1.8 MiB
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' Dieser Code wurde von einem Tool generiert.
|
|
' Laufzeitversion:4.0.30319.269
|
|
'
|
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
' der Code erneut generiert wird.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''<summary>
|
|
'''Represents a strongly typed in-memory cache of data.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
|
Global.System.Xml.Serialization.XmlRootAttribute("LPDataSet"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class LPDataSet
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableAnsprechpartner As AnsprechpartnerDataTable
|
|
|
|
Private tableBeruf As BerufDataTable
|
|
|
|
Private tableFirma As FirmaDataTable
|
|
|
|
Private tableFirmaBeruf As FirmaBerufDataTable
|
|
|
|
Private tablekey_tabelle As key_tabelleDataTable
|
|
|
|
Private tableKlasse As KlasseDataTable
|
|
|
|
Private tableSchulhaus As SchulhausDataTable
|
|
|
|
Private tablespalten As spaltenDataTable
|
|
|
|
Private tablesysdiagrams As sysdiagramsDataTable
|
|
|
|
Private tableZeiten As ZeitenDataTable
|
|
|
|
Private tableSchueler As SchuelerDataTable
|
|
|
|
Private tableSchuelerBeruf As SchuelerBerufDataTable
|
|
|
|
Private tableReport As ReportDataTable
|
|
|
|
Private tableOptionen As OptionenDataTable
|
|
|
|
Private tableReportGruppe As ReportGruppeDataTable
|
|
|
|
Private tableSQLAbfragen As SQLAbfragenDataTable
|
|
|
|
Private tableZuteilung As ZuteilungDataTable
|
|
|
|
Private tableRichText As RichTextDataTable
|
|
|
|
Private relationFK_Ansprechpartner_0 As Global.System.Data.DataRelation
|
|
|
|
Private relationFirma_FirmaBeruf As Global.System.Data.DataRelation
|
|
|
|
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
|
|
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context, false)
|
|
If (Me.IsBinarySerialized(info, context) = true) Then
|
|
Me.InitVars(false)
|
|
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
|
|
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
|
|
Return
|
|
End If
|
|
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
|
|
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
|
|
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
|
|
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
|
|
If (Not (ds.Tables("Ansprechpartner")) Is Nothing) Then
|
|
MyBase.Tables.Add(New AnsprechpartnerDataTable(ds.Tables("Ansprechpartner")))
|
|
End If
|
|
If (Not (ds.Tables("Beruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New BerufDataTable(ds.Tables("Beruf")))
|
|
End If
|
|
If (Not (ds.Tables("Firma")) Is Nothing) Then
|
|
MyBase.Tables.Add(New FirmaDataTable(ds.Tables("Firma")))
|
|
End If
|
|
If (Not (ds.Tables("FirmaBeruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New FirmaBerufDataTable(ds.Tables("FirmaBeruf")))
|
|
End If
|
|
If (Not (ds.Tables("key_tabelle")) Is Nothing) Then
|
|
MyBase.Tables.Add(New key_tabelleDataTable(ds.Tables("key_tabelle")))
|
|
End If
|
|
If (Not (ds.Tables("Klasse")) Is Nothing) Then
|
|
MyBase.Tables.Add(New KlasseDataTable(ds.Tables("Klasse")))
|
|
End If
|
|
If (Not (ds.Tables("Schulhaus")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchulhausDataTable(ds.Tables("Schulhaus")))
|
|
End If
|
|
If (Not (ds.Tables("spalten")) Is Nothing) Then
|
|
MyBase.Tables.Add(New spaltenDataTable(ds.Tables("spalten")))
|
|
End If
|
|
If (Not (ds.Tables("sysdiagrams")) Is Nothing) Then
|
|
MyBase.Tables.Add(New sysdiagramsDataTable(ds.Tables("sysdiagrams")))
|
|
End If
|
|
If (Not (ds.Tables("Zeiten")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ZeitenDataTable(ds.Tables("Zeiten")))
|
|
End If
|
|
If (Not (ds.Tables("Schueler")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchuelerDataTable(ds.Tables("Schueler")))
|
|
End If
|
|
If (Not (ds.Tables("SchuelerBeruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchuelerBerufDataTable(ds.Tables("SchuelerBeruf")))
|
|
End If
|
|
If (Not (ds.Tables("Report")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ReportDataTable(ds.Tables("Report")))
|
|
End If
|
|
If (Not (ds.Tables("Optionen")) Is Nothing) Then
|
|
MyBase.Tables.Add(New OptionenDataTable(ds.Tables("Optionen")))
|
|
End If
|
|
If (Not (ds.Tables("ReportGruppe")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ReportGruppeDataTable(ds.Tables("ReportGruppe")))
|
|
End If
|
|
If (Not (ds.Tables("SQLAbfragen")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SQLAbfragenDataTable(ds.Tables("SQLAbfragen")))
|
|
End If
|
|
If (Not (ds.Tables("Zuteilung")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ZuteilungDataTable(ds.Tables("Zuteilung")))
|
|
End If
|
|
If (Not (ds.Tables("RichText")) Is Nothing) Then
|
|
MyBase.Tables.Add(New RichTextDataTable(ds.Tables("RichText")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
|
|
End If
|
|
Me.GetSerializationData(info, context)
|
|
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
|
|
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Ansprechpartner() As AnsprechpartnerDataTable
|
|
Get
|
|
Return Me.tableAnsprechpartner
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Beruf() As BerufDataTable
|
|
Get
|
|
Return Me.tableBeruf
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Firma() As FirmaDataTable
|
|
Get
|
|
Return Me.tableFirma
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property FirmaBeruf() As FirmaBerufDataTable
|
|
Get
|
|
Return Me.tableFirmaBeruf
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property key_tabelle() As key_tabelleDataTable
|
|
Get
|
|
Return Me.tablekey_tabelle
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Klasse() As KlasseDataTable
|
|
Get
|
|
Return Me.tableKlasse
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Schulhaus() As SchulhausDataTable
|
|
Get
|
|
Return Me.tableSchulhaus
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property spalten() As spaltenDataTable
|
|
Get
|
|
Return Me.tablespalten
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property sysdiagrams() As sysdiagramsDataTable
|
|
Get
|
|
Return Me.tablesysdiagrams
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Zeiten() As ZeitenDataTable
|
|
Get
|
|
Return Me.tableZeiten
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Schueler() As SchuelerDataTable
|
|
Get
|
|
Return Me.tableSchueler
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property SchuelerBeruf() As SchuelerBerufDataTable
|
|
Get
|
|
Return Me.tableSchuelerBeruf
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Report() As ReportDataTable
|
|
Get
|
|
Return Me.tableReport
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Optionen() As OptionenDataTable
|
|
Get
|
|
Return Me.tableOptionen
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property ReportGruppe() As ReportGruppeDataTable
|
|
Get
|
|
Return Me.tableReportGruppe
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property SQLAbfragen() As SQLAbfragenDataTable
|
|
Get
|
|
Return Me.tableSQLAbfragen
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property Zuteilung() As ZuteilungDataTable
|
|
Get
|
|
Return Me.tableZuteilung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property RichText() As RichTextDataTable
|
|
Get
|
|
Return Me.tableRichText
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.BrowsableAttribute(true), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
|
|
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
|
|
Get
|
|
Return Me._schemaSerializationMode
|
|
End Get
|
|
Set
|
|
Me._schemaSerializationMode = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
|
|
Get
|
|
Return MyBase.Tables
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
|
|
Get
|
|
Return MyBase.Relations
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub InitializeDerivedDataSet()
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As LPDataSet = CType(MyBase.Clone,LPDataSet)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeTables() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeRelations() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
|
|
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
|
|
Me.Reset
|
|
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
|
|
ds.ReadXml(reader)
|
|
If (Not (ds.Tables("Ansprechpartner")) Is Nothing) Then
|
|
MyBase.Tables.Add(New AnsprechpartnerDataTable(ds.Tables("Ansprechpartner")))
|
|
End If
|
|
If (Not (ds.Tables("Beruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New BerufDataTable(ds.Tables("Beruf")))
|
|
End If
|
|
If (Not (ds.Tables("Firma")) Is Nothing) Then
|
|
MyBase.Tables.Add(New FirmaDataTable(ds.Tables("Firma")))
|
|
End If
|
|
If (Not (ds.Tables("FirmaBeruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New FirmaBerufDataTable(ds.Tables("FirmaBeruf")))
|
|
End If
|
|
If (Not (ds.Tables("key_tabelle")) Is Nothing) Then
|
|
MyBase.Tables.Add(New key_tabelleDataTable(ds.Tables("key_tabelle")))
|
|
End If
|
|
If (Not (ds.Tables("Klasse")) Is Nothing) Then
|
|
MyBase.Tables.Add(New KlasseDataTable(ds.Tables("Klasse")))
|
|
End If
|
|
If (Not (ds.Tables("Schulhaus")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchulhausDataTable(ds.Tables("Schulhaus")))
|
|
End If
|
|
If (Not (ds.Tables("spalten")) Is Nothing) Then
|
|
MyBase.Tables.Add(New spaltenDataTable(ds.Tables("spalten")))
|
|
End If
|
|
If (Not (ds.Tables("sysdiagrams")) Is Nothing) Then
|
|
MyBase.Tables.Add(New sysdiagramsDataTable(ds.Tables("sysdiagrams")))
|
|
End If
|
|
If (Not (ds.Tables("Zeiten")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ZeitenDataTable(ds.Tables("Zeiten")))
|
|
End If
|
|
If (Not (ds.Tables("Schueler")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchuelerDataTable(ds.Tables("Schueler")))
|
|
End If
|
|
If (Not (ds.Tables("SchuelerBeruf")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SchuelerBerufDataTable(ds.Tables("SchuelerBeruf")))
|
|
End If
|
|
If (Not (ds.Tables("Report")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ReportDataTable(ds.Tables("Report")))
|
|
End If
|
|
If (Not (ds.Tables("Optionen")) Is Nothing) Then
|
|
MyBase.Tables.Add(New OptionenDataTable(ds.Tables("Optionen")))
|
|
End If
|
|
If (Not (ds.Tables("ReportGruppe")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ReportGruppeDataTable(ds.Tables("ReportGruppe")))
|
|
End If
|
|
If (Not (ds.Tables("SQLAbfragen")) Is Nothing) Then
|
|
MyBase.Tables.Add(New SQLAbfragenDataTable(ds.Tables("SQLAbfragen")))
|
|
End If
|
|
If (Not (ds.Tables("Zuteilung")) Is Nothing) Then
|
|
MyBase.Tables.Add(New ZuteilungDataTable(ds.Tables("Zuteilung")))
|
|
End If
|
|
If (Not (ds.Tables("RichText")) Is Nothing) Then
|
|
MyBase.Tables.Add(New RichTextDataTable(ds.Tables("RichText")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXml(reader)
|
|
Me.InitVars
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
|
|
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
|
|
stream.Position = 0
|
|
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Overloads Sub InitVars()
|
|
Me.InitVars(true)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableAnsprechpartner = CType(MyBase.Tables("Ansprechpartner"),AnsprechpartnerDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableAnsprechpartner) Is Nothing) Then
|
|
Me.tableAnsprechpartner.InitVars
|
|
End If
|
|
End If
|
|
Me.tableBeruf = CType(MyBase.Tables("Beruf"),BerufDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableBeruf) Is Nothing) Then
|
|
Me.tableBeruf.InitVars
|
|
End If
|
|
End If
|
|
Me.tableFirma = CType(MyBase.Tables("Firma"),FirmaDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableFirma) Is Nothing) Then
|
|
Me.tableFirma.InitVars
|
|
End If
|
|
End If
|
|
Me.tableFirmaBeruf = CType(MyBase.Tables("FirmaBeruf"),FirmaBerufDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableFirmaBeruf) Is Nothing) Then
|
|
Me.tableFirmaBeruf.InitVars
|
|
End If
|
|
End If
|
|
Me.tablekey_tabelle = CType(MyBase.Tables("key_tabelle"),key_tabelleDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tablekey_tabelle) Is Nothing) Then
|
|
Me.tablekey_tabelle.InitVars
|
|
End If
|
|
End If
|
|
Me.tableKlasse = CType(MyBase.Tables("Klasse"),KlasseDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableKlasse) Is Nothing) Then
|
|
Me.tableKlasse.InitVars
|
|
End If
|
|
End If
|
|
Me.tableSchulhaus = CType(MyBase.Tables("Schulhaus"),SchulhausDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableSchulhaus) Is Nothing) Then
|
|
Me.tableSchulhaus.InitVars
|
|
End If
|
|
End If
|
|
Me.tablespalten = CType(MyBase.Tables("spalten"),spaltenDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tablespalten) Is Nothing) Then
|
|
Me.tablespalten.InitVars
|
|
End If
|
|
End If
|
|
Me.tablesysdiagrams = CType(MyBase.Tables("sysdiagrams"),sysdiagramsDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tablesysdiagrams) Is Nothing) Then
|
|
Me.tablesysdiagrams.InitVars
|
|
End If
|
|
End If
|
|
Me.tableZeiten = CType(MyBase.Tables("Zeiten"),ZeitenDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableZeiten) Is Nothing) Then
|
|
Me.tableZeiten.InitVars
|
|
End If
|
|
End If
|
|
Me.tableSchueler = CType(MyBase.Tables("Schueler"),SchuelerDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableSchueler) Is Nothing) Then
|
|
Me.tableSchueler.InitVars
|
|
End If
|
|
End If
|
|
Me.tableSchuelerBeruf = CType(MyBase.Tables("SchuelerBeruf"),SchuelerBerufDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableSchuelerBeruf) Is Nothing) Then
|
|
Me.tableSchuelerBeruf.InitVars
|
|
End If
|
|
End If
|
|
Me.tableReport = CType(MyBase.Tables("Report"),ReportDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableReport) Is Nothing) Then
|
|
Me.tableReport.InitVars
|
|
End If
|
|
End If
|
|
Me.tableOptionen = CType(MyBase.Tables("Optionen"),OptionenDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableOptionen) Is Nothing) Then
|
|
Me.tableOptionen.InitVars
|
|
End If
|
|
End If
|
|
Me.tableReportGruppe = CType(MyBase.Tables("ReportGruppe"),ReportGruppeDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableReportGruppe) Is Nothing) Then
|
|
Me.tableReportGruppe.InitVars
|
|
End If
|
|
End If
|
|
Me.tableSQLAbfragen = CType(MyBase.Tables("SQLAbfragen"),SQLAbfragenDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableSQLAbfragen) Is Nothing) Then
|
|
Me.tableSQLAbfragen.InitVars
|
|
End If
|
|
End If
|
|
Me.tableZuteilung = CType(MyBase.Tables("Zuteilung"),ZuteilungDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableZuteilung) Is Nothing) Then
|
|
Me.tableZuteilung.InitVars
|
|
End If
|
|
End If
|
|
Me.tableRichText = CType(MyBase.Tables("RichText"),RichTextDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableRichText) Is Nothing) Then
|
|
Me.tableRichText.InitVars
|
|
End If
|
|
End If
|
|
Me.relationFK_Ansprechpartner_0 = Me.Relations("FK_Ansprechpartner_0")
|
|
Me.relationFirma_FirmaBeruf = Me.Relations("Firma_FirmaBeruf")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "LPDataSet"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/LPDataSet.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tableAnsprechpartner = New AnsprechpartnerDataTable()
|
|
MyBase.Tables.Add(Me.tableAnsprechpartner)
|
|
Me.tableBeruf = New BerufDataTable()
|
|
MyBase.Tables.Add(Me.tableBeruf)
|
|
Me.tableFirma = New FirmaDataTable()
|
|
MyBase.Tables.Add(Me.tableFirma)
|
|
Me.tableFirmaBeruf = New FirmaBerufDataTable()
|
|
MyBase.Tables.Add(Me.tableFirmaBeruf)
|
|
Me.tablekey_tabelle = New key_tabelleDataTable()
|
|
MyBase.Tables.Add(Me.tablekey_tabelle)
|
|
Me.tableKlasse = New KlasseDataTable()
|
|
MyBase.Tables.Add(Me.tableKlasse)
|
|
Me.tableSchulhaus = New SchulhausDataTable()
|
|
MyBase.Tables.Add(Me.tableSchulhaus)
|
|
Me.tablespalten = New spaltenDataTable()
|
|
MyBase.Tables.Add(Me.tablespalten)
|
|
Me.tablesysdiagrams = New sysdiagramsDataTable()
|
|
MyBase.Tables.Add(Me.tablesysdiagrams)
|
|
Me.tableZeiten = New ZeitenDataTable()
|
|
MyBase.Tables.Add(Me.tableZeiten)
|
|
Me.tableSchueler = New SchuelerDataTable()
|
|
MyBase.Tables.Add(Me.tableSchueler)
|
|
Me.tableSchuelerBeruf = New SchuelerBerufDataTable()
|
|
MyBase.Tables.Add(Me.tableSchuelerBeruf)
|
|
Me.tableReport = New ReportDataTable()
|
|
MyBase.Tables.Add(Me.tableReport)
|
|
Me.tableOptionen = New OptionenDataTable()
|
|
MyBase.Tables.Add(Me.tableOptionen)
|
|
Me.tableReportGruppe = New ReportGruppeDataTable()
|
|
MyBase.Tables.Add(Me.tableReportGruppe)
|
|
Me.tableSQLAbfragen = New SQLAbfragenDataTable()
|
|
MyBase.Tables.Add(Me.tableSQLAbfragen)
|
|
Me.tableZuteilung = New ZuteilungDataTable()
|
|
MyBase.Tables.Add(Me.tableZuteilung)
|
|
Me.tableRichText = New RichTextDataTable()
|
|
MyBase.Tables.Add(Me.tableRichText)
|
|
Me.relationFK_Ansprechpartner_0 = New Global.System.Data.DataRelation("FK_Ansprechpartner_0", New Global.System.Data.DataColumn() {Me.tableFirma.FirmaNrColumn}, New Global.System.Data.DataColumn() {Me.tableAnsprechpartner.FirmaNrColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_Ansprechpartner_0)
|
|
Me.relationFirma_FirmaBeruf = New Global.System.Data.DataRelation("Firma_FirmaBeruf", New Global.System.Data.DataColumn() {Me.tableFirma.FirmaNrColumn}, New Global.System.Data.DataColumn() {Me.tableFirmaBeruf.FirmaNrColumn}, false)
|
|
Me.Relations.Add(Me.relationFirma_FirmaBeruf)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeAnsprechpartner() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeBeruf() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeFirma() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeFirmaBeruf() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializekey_tabelle() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeKlasse() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeSchulhaus() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializespalten() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializesysdiagrams() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeZeiten() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeSchueler() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeSchuelerBeruf() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeReport() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeOptionen() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeReportGruppe() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeSQLAbfragen() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeZuteilung() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function ShouldSerializeRichText() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
|
|
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
|
|
Me.InitVars
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any.Namespace = ds.Namespace
|
|
sequence.Items.Add(any)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub AnsprechpartnerRowChangeEventHandler(ByVal sender As Object, ByVal e As AnsprechpartnerRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub BerufRowChangeEventHandler(ByVal sender As Object, ByVal e As BerufRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub FirmaRowChangeEventHandler(ByVal sender As Object, ByVal e As FirmaRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub FirmaBerufRowChangeEventHandler(ByVal sender As Object, ByVal e As FirmaBerufRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub key_tabelleRowChangeEventHandler(ByVal sender As Object, ByVal e As key_tabelleRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub KlasseRowChangeEventHandler(ByVal sender As Object, ByVal e As KlasseRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub SchulhausRowChangeEventHandler(ByVal sender As Object, ByVal e As SchulhausRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub spaltenRowChangeEventHandler(ByVal sender As Object, ByVal e As spaltenRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub sysdiagramsRowChangeEventHandler(ByVal sender As Object, ByVal e As sysdiagramsRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub ZeitenRowChangeEventHandler(ByVal sender As Object, ByVal e As ZeitenRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub SchuelerRowChangeEventHandler(ByVal sender As Object, ByVal e As SchuelerRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub SchuelerBerufRowChangeEventHandler(ByVal sender As Object, ByVal e As SchuelerBerufRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub ReportRowChangeEventHandler(ByVal sender As Object, ByVal e As ReportRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub OptionenRowChangeEventHandler(ByVal sender As Object, ByVal e As OptionenRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub ReportGruppeRowChangeEventHandler(ByVal sender As Object, ByVal e As ReportGruppeRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub SQLAbfragenRowChangeEventHandler(ByVal sender As Object, ByVal e As SQLAbfragenRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub ZuteilungRowChangeEventHandler(ByVal sender As Object, ByVal e As ZuteilungRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Delegate Sub RichTextRowChangeEventHandler(ByVal sender As Object, ByVal e As RichTextRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class AnsprechpartnerDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of AnsprechpartnerRow)
|
|
|
|
Private columnAnsprechpartnerNr As Global.System.Data.DataColumn
|
|
|
|
Private columnFirmaNr As Global.System.Data.DataColumn
|
|
|
|
Private columnName As Global.System.Data.DataColumn
|
|
|
|
Private columnVorname As Global.System.Data.DataColumn
|
|
|
|
Private columnTel As Global.System.Data.DataColumn
|
|
|
|
Private columnEMail As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnAnrede As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Ansprechpartner"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnsprechpartnerNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnsprechpartnerNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FirmaNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFirmaNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnName
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property VornameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVorname
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property TelColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTel
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property EMailColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMail
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnredeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnrede
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As AnsprechpartnerRow
|
|
Get
|
|
Return CType(Me.Rows(index),AnsprechpartnerRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event AnsprechpartnerRowChanging As AnsprechpartnerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event AnsprechpartnerRowChanged As AnsprechpartnerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event AnsprechpartnerRowDeleting As AnsprechpartnerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event AnsprechpartnerRowDeleted As AnsprechpartnerRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddAnsprechpartnerRow(ByVal row As AnsprechpartnerRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddAnsprechpartnerRow(ByVal AnsprechpartnerNr As Long, ByVal parentFirmaRowByFK_Ansprechpartner_0 As FirmaRow, ByVal Name As String, ByVal Vorname As String, ByVal Tel As String, ByVal EMail As String, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Aktiv As Boolean, ByVal Anrede As String) As AnsprechpartnerRow
|
|
Dim rowAnsprechpartnerRow As AnsprechpartnerRow = CType(Me.NewRow,AnsprechpartnerRow)
|
|
Dim columnValuesArray() As Object = New Object() {AnsprechpartnerNr, Nothing, Name, Vorname, Tel, EMail, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Anrede}
|
|
If (Not (parentFirmaRowByFK_Ansprechpartner_0) Is Nothing) Then
|
|
columnValuesArray(1) = parentFirmaRowByFK_Ansprechpartner_0(0)
|
|
End If
|
|
rowAnsprechpartnerRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowAnsprechpartnerRow)
|
|
Return rowAnsprechpartnerRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByAnsprechpartnerNr(ByVal AnsprechpartnerNr As Long) As AnsprechpartnerRow
|
|
Return CType(Me.Rows.Find(New Object() {AnsprechpartnerNr}),AnsprechpartnerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As AnsprechpartnerDataTable = CType(MyBase.Clone,AnsprechpartnerDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New AnsprechpartnerDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnAnsprechpartnerNr = MyBase.Columns("AnsprechpartnerNr")
|
|
Me.columnFirmaNr = MyBase.Columns("FirmaNr")
|
|
Me.columnName = MyBase.Columns("Name")
|
|
Me.columnVorname = MyBase.Columns("Vorname")
|
|
Me.columnTel = MyBase.Columns("Tel")
|
|
Me.columnEMail = MyBase.Columns("EMail")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnAnrede = MyBase.Columns("Anrede")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnAnsprechpartnerNr = New Global.System.Data.DataColumn("AnsprechpartnerNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnsprechpartnerNr)
|
|
Me.columnFirmaNr = New Global.System.Data.DataColumn("FirmaNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFirmaNr)
|
|
Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnName)
|
|
Me.columnVorname = New Global.System.Data.DataColumn("Vorname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVorname)
|
|
Me.columnTel = New Global.System.Data.DataColumn("Tel", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTel)
|
|
Me.columnEMail = New Global.System.Data.DataColumn("EMail", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMail)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnAnrede = New Global.System.Data.DataColumn("Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnrede)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAnsprechpartnerNr}, true))
|
|
Me.columnAnsprechpartnerNr.AllowDBNull = false
|
|
Me.columnAnsprechpartnerNr.Unique = true
|
|
Me.columnName.MaxLength = 50
|
|
Me.columnVorname.MaxLength = 50
|
|
Me.columnTel.MaxLength = 50
|
|
Me.columnEMail.MaxLength = 50
|
|
Me.columnAnrede.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewAnsprechpartnerRow() As AnsprechpartnerRow
|
|
Return CType(Me.NewRow,AnsprechpartnerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New AnsprechpartnerRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(AnsprechpartnerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.AnsprechpartnerRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent AnsprechpartnerRowChanged(Me, New AnsprechpartnerRowChangeEvent(CType(e.Row,AnsprechpartnerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.AnsprechpartnerRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent AnsprechpartnerRowChanging(Me, New AnsprechpartnerRowChangeEvent(CType(e.Row,AnsprechpartnerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.AnsprechpartnerRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent AnsprechpartnerRowDeleted(Me, New AnsprechpartnerRowChangeEvent(CType(e.Row,AnsprechpartnerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.AnsprechpartnerRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent AnsprechpartnerRowDeleting(Me, New AnsprechpartnerRowChangeEvent(CType(e.Row,AnsprechpartnerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveAnsprechpartnerRow(ByVal row As AnsprechpartnerRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "AnsprechpartnerDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class BerufDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of BerufRow)
|
|
|
|
Private columnBerufnr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnBeschreibung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnAnmerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrjahre As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Beruf"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BerufnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBerufnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BeschreibungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBeschreibung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnmerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnmerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property LehrjahreColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrjahre
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As BerufRow
|
|
Get
|
|
Return CType(Me.Rows(index),BerufRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event BerufRowChanging As BerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event BerufRowChanged As BerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event BerufRowDeleting As BerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event BerufRowDeleted As BerufRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddBerufRow(ByVal row As BerufRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddBerufRow(ByVal Berufnr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Anmerkung As String, ByVal Lehrjahre As String) As BerufRow
|
|
Dim rowBerufRow As BerufRow = CType(Me.NewRow,BerufRow)
|
|
Dim columnValuesArray() As Object = New Object() {Berufnr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Anmerkung, Lehrjahre}
|
|
rowBerufRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowBerufRow)
|
|
Return rowBerufRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByBerufnr(ByVal Berufnr As Long) As BerufRow
|
|
Return CType(Me.Rows.Find(New Object() {Berufnr}),BerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As BerufDataTable = CType(MyBase.Clone,BerufDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New BerufDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnBerufnr = MyBase.Columns("Berufnr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnBeschreibung = MyBase.Columns("Beschreibung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnAnmerkung = MyBase.Columns("Anmerkung")
|
|
Me.columnLehrjahre = MyBase.Columns("Lehrjahre")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnBerufnr = New Global.System.Data.DataColumn("Berufnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBerufnr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnBeschreibung = New Global.System.Data.DataColumn("Beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBeschreibung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnAnmerkung = New Global.System.Data.DataColumn("Anmerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnmerkung)
|
|
Me.columnLehrjahre = New Global.System.Data.DataColumn("Lehrjahre", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrjahre)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBerufnr}, true))
|
|
Me.columnBerufnr.AllowDBNull = false
|
|
Me.columnBerufnr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 255
|
|
Me.columnBeschreibung.MaxLength = 255
|
|
Me.columnAnmerkung.MaxLength = 255
|
|
Me.columnLehrjahre.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewBerufRow() As BerufRow
|
|
Return CType(Me.NewRow,BerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New BerufRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(BerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.BerufRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent BerufRowChanged(Me, New BerufRowChangeEvent(CType(e.Row,BerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.BerufRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent BerufRowChanging(Me, New BerufRowChangeEvent(CType(e.Row,BerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.BerufRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent BerufRowDeleted(Me, New BerufRowChangeEvent(CType(e.Row,BerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.BerufRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent BerufRowDeleting(Me, New BerufRowChangeEvent(CType(e.Row,BerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveBerufRow(ByVal row As BerufRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "BerufDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class FirmaDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of FirmaRow)
|
|
|
|
Private columnFirmaNr As Global.System.Data.DataColumn
|
|
|
|
Private columnNameZ1 As Global.System.Data.DataColumn
|
|
|
|
Private columnNameZ2 As Global.System.Data.DataColumn
|
|
|
|
Private columnStrasse As Global.System.Data.DataColumn
|
|
|
|
Private columnPLZ As Global.System.Data.DataColumn
|
|
|
|
Private columnOrt As Global.System.Data.DataColumn
|
|
|
|
Private columnTel As Global.System.Data.DataColumn
|
|
|
|
Private columnFax As Global.System.Data.DataColumn
|
|
|
|
Private columnWeb As Global.System.Data.DataColumn
|
|
|
|
Private columnEMail As Global.System.Data.DataColumn
|
|
|
|
Private columnBemerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnAnrede As Global.System.Data.DataColumn
|
|
|
|
Private columnBriefanrede As Global.System.Data.DataColumn
|
|
|
|
Private columnAusbildungsstandort As Global.System.Data.DataColumn
|
|
|
|
Private columnAusbildungsbemerkung As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Firma"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FirmaNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFirmaNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property NameZ1Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNameZ1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property NameZ2Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNameZ2
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property StrasseColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnStrasse
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPLZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnOrt
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property TelColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTel
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FaxColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFax
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property WebColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnWeb
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property EMailColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMail
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnredeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnrede
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BriefanredeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBriefanrede
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AusbildungsstandortColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAusbildungsstandort
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AusbildungsbemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAusbildungsbemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As FirmaRow
|
|
Get
|
|
Return CType(Me.Rows(index),FirmaRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaRowChanging As FirmaRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaRowChanged As FirmaRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaRowDeleting As FirmaRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaRowDeleted As FirmaRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddFirmaRow(ByVal row As FirmaRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddFirmaRow( _
|
|
ByVal FirmaNr As Long, _
|
|
ByVal NameZ1 As String, _
|
|
ByVal NameZ2 As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As String, _
|
|
ByVal Ort As String, _
|
|
ByVal Tel As String, _
|
|
ByVal Fax As String, _
|
|
ByVal Web As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Erstellt_am As Date, _
|
|
ByVal Mutiert_am As Date, _
|
|
ByVal Mutierer As Long, _
|
|
ByVal Aktiv As Boolean, _
|
|
ByVal Anrede As String, _
|
|
ByVal Briefanrede As String, _
|
|
ByVal Ausbildungsstandort As String, _
|
|
ByVal Ausbildungsbemerkung As String) As FirmaRow
|
|
Dim rowFirmaRow As FirmaRow = CType(Me.NewRow,FirmaRow)
|
|
Dim columnValuesArray() As Object = New Object() {FirmaNr, NameZ1, NameZ2, Strasse, PLZ, Ort, Tel, Fax, Web, EMail, Bemerkung, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Anrede, Briefanrede, Ausbildungsstandort, Ausbildungsbemerkung}
|
|
rowFirmaRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowFirmaRow)
|
|
Return rowFirmaRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByFirmaNr(ByVal FirmaNr As Long) As FirmaRow
|
|
Return CType(Me.Rows.Find(New Object() {FirmaNr}),FirmaRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As FirmaDataTable = CType(MyBase.Clone,FirmaDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New FirmaDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnFirmaNr = MyBase.Columns("FirmaNr")
|
|
Me.columnNameZ1 = MyBase.Columns("NameZ1")
|
|
Me.columnNameZ2 = MyBase.Columns("NameZ2")
|
|
Me.columnStrasse = MyBase.Columns("Strasse")
|
|
Me.columnPLZ = MyBase.Columns("PLZ")
|
|
Me.columnOrt = MyBase.Columns("Ort")
|
|
Me.columnTel = MyBase.Columns("Tel")
|
|
Me.columnFax = MyBase.Columns("Fax")
|
|
Me.columnWeb = MyBase.Columns("Web")
|
|
Me.columnEMail = MyBase.Columns("EMail")
|
|
Me.columnBemerkung = MyBase.Columns("Bemerkung")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnAnrede = MyBase.Columns("Anrede")
|
|
Me.columnBriefanrede = MyBase.Columns("Briefanrede")
|
|
Me.columnAusbildungsstandort = MyBase.Columns("Ausbildungsstandort")
|
|
Me.columnAusbildungsbemerkung = MyBase.Columns("Ausbildungsbemerkung")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnFirmaNr = New Global.System.Data.DataColumn("FirmaNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFirmaNr)
|
|
Me.columnNameZ1 = New Global.System.Data.DataColumn("NameZ1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNameZ1)
|
|
Me.columnNameZ2 = New Global.System.Data.DataColumn("NameZ2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNameZ2)
|
|
Me.columnStrasse = New Global.System.Data.DataColumn("Strasse", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnStrasse)
|
|
Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPLZ)
|
|
Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnOrt)
|
|
Me.columnTel = New Global.System.Data.DataColumn("Tel", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTel)
|
|
Me.columnFax = New Global.System.Data.DataColumn("Fax", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFax)
|
|
Me.columnWeb = New Global.System.Data.DataColumn("Web", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnWeb)
|
|
Me.columnEMail = New Global.System.Data.DataColumn("EMail", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMail)
|
|
Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBemerkung)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnAnrede = New Global.System.Data.DataColumn("Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnrede)
|
|
Me.columnBriefanrede = New Global.System.Data.DataColumn("Briefanrede", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBriefanrede)
|
|
Me.columnAusbildungsstandort = New Global.System.Data.DataColumn("Ausbildungsstandort", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAusbildungsstandort)
|
|
Me.columnAusbildungsbemerkung = New Global.System.Data.DataColumn("Ausbildungsbemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAusbildungsbemerkung)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFirmaNr}, true))
|
|
Me.columnFirmaNr.AllowDBNull = false
|
|
Me.columnFirmaNr.Unique = true
|
|
Me.columnNameZ1.MaxLength = 50
|
|
Me.columnNameZ2.MaxLength = 50
|
|
Me.columnStrasse.MaxLength = 50
|
|
Me.columnPLZ.MaxLength = 50
|
|
Me.columnOrt.MaxLength = 50
|
|
Me.columnTel.MaxLength = 50
|
|
Me.columnFax.MaxLength = 50
|
|
Me.columnWeb.MaxLength = 50
|
|
Me.columnEMail.MaxLength = 50
|
|
Me.columnBemerkung.MaxLength = 1024
|
|
Me.columnAnrede.MaxLength = 255
|
|
Me.columnBriefanrede.MaxLength = 255
|
|
Me.columnAusbildungsstandort.MaxLength = 1024
|
|
Me.columnAusbildungsbemerkung.MaxLength = 500
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewFirmaRow() As FirmaRow
|
|
Return CType(Me.NewRow,FirmaRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New FirmaRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(FirmaRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.FirmaRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent FirmaRowChanged(Me, New FirmaRowChangeEvent(CType(e.Row,FirmaRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.FirmaRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent FirmaRowChanging(Me, New FirmaRowChangeEvent(CType(e.Row,FirmaRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.FirmaRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent FirmaRowDeleted(Me, New FirmaRowChangeEvent(CType(e.Row,FirmaRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.FirmaRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent FirmaRowDeleting(Me, New FirmaRowChangeEvent(CType(e.Row,FirmaRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveFirmaRow(ByVal row As FirmaRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "FirmaDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class FirmaBerufDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of FirmaBerufRow)
|
|
|
|
Private columnFirmaBerufNr As Global.System.Data.DataColumn
|
|
|
|
Private columnFirmaNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBerufnr As Global.System.Data.DataColumn
|
|
|
|
Private columnAnsprechpartnerNr As Global.System.Data.DataColumn
|
|
|
|
Private columnZeitNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBemerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnAnzahl As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "FirmaBeruf"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FirmaBerufNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFirmaBerufNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FirmaNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFirmaNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BerufnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBerufnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnsprechpartnerNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnsprechpartnerNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ZeitNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnZeitNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnzahl
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As FirmaBerufRow
|
|
Get
|
|
Return CType(Me.Rows(index),FirmaBerufRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaBerufRowChanging As FirmaBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaBerufRowChanged As FirmaBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaBerufRowDeleting As FirmaBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event FirmaBerufRowDeleted As FirmaBerufRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddFirmaBerufRow(ByVal row As FirmaBerufRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddFirmaBerufRow(ByVal FirmaBerufNr As Long, ByVal parentFirmaRowByFirma_FirmaBeruf As FirmaRow, ByVal Berufnr As Long, ByVal AnsprechpartnerNr As Long, ByVal ZeitNr As Long, ByVal Bemerkung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Anzahl As Long) As FirmaBerufRow
|
|
Dim rowFirmaBerufRow As FirmaBerufRow = CType(Me.NewRow,FirmaBerufRow)
|
|
Dim columnValuesArray() As Object = New Object() {FirmaBerufNr, Nothing, Berufnr, AnsprechpartnerNr, ZeitNr, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Anzahl}
|
|
If (Not (parentFirmaRowByFirma_FirmaBeruf) Is Nothing) Then
|
|
columnValuesArray(1) = parentFirmaRowByFirma_FirmaBeruf(0)
|
|
End If
|
|
rowFirmaBerufRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowFirmaBerufRow)
|
|
Return rowFirmaBerufRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByFirmaBerufNr(ByVal FirmaBerufNr As Long) As FirmaBerufRow
|
|
Return CType(Me.Rows.Find(New Object() {FirmaBerufNr}),FirmaBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As FirmaBerufDataTable = CType(MyBase.Clone,FirmaBerufDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New FirmaBerufDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnFirmaBerufNr = MyBase.Columns("FirmaBerufNr")
|
|
Me.columnFirmaNr = MyBase.Columns("FirmaNr")
|
|
Me.columnBerufnr = MyBase.Columns("Berufnr")
|
|
Me.columnAnsprechpartnerNr = MyBase.Columns("AnsprechpartnerNr")
|
|
Me.columnZeitNr = MyBase.Columns("ZeitNr")
|
|
Me.columnBemerkung = MyBase.Columns("Bemerkung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnAnzahl = MyBase.Columns("Anzahl")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnFirmaBerufNr = New Global.System.Data.DataColumn("FirmaBerufNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFirmaBerufNr)
|
|
Me.columnFirmaNr = New Global.System.Data.DataColumn("FirmaNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFirmaNr)
|
|
Me.columnBerufnr = New Global.System.Data.DataColumn("Berufnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBerufnr)
|
|
Me.columnAnsprechpartnerNr = New Global.System.Data.DataColumn("AnsprechpartnerNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnsprechpartnerNr)
|
|
Me.columnZeitNr = New Global.System.Data.DataColumn("ZeitNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnZeitNr)
|
|
Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBemerkung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnzahl)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFirmaBerufNr}, true))
|
|
Me.columnFirmaBerufNr.AllowDBNull = false
|
|
Me.columnFirmaBerufNr.Unique = true
|
|
Me.columnBemerkung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewFirmaBerufRow() As FirmaBerufRow
|
|
Return CType(Me.NewRow,FirmaBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New FirmaBerufRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(FirmaBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.FirmaBerufRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent FirmaBerufRowChanged(Me, New FirmaBerufRowChangeEvent(CType(e.Row,FirmaBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.FirmaBerufRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent FirmaBerufRowChanging(Me, New FirmaBerufRowChangeEvent(CType(e.Row,FirmaBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.FirmaBerufRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent FirmaBerufRowDeleted(Me, New FirmaBerufRowChangeEvent(CType(e.Row,FirmaBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.FirmaBerufRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent FirmaBerufRowDeleting(Me, New FirmaBerufRowChangeEvent(CType(e.Row,FirmaBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveFirmaBerufRow(ByVal row As FirmaBerufRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "FirmaBerufDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class key_tabelleDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of key_tabelleRow)
|
|
|
|
Private columnkeynr As Global.System.Data.DataColumn
|
|
|
|
Private columnbeschreibung As Global.System.Data.DataColumn
|
|
|
|
Private columnkey_wert As Global.System.Data.DataColumn
|
|
|
|
Private columnmandantnr As Global.System.Data.DataColumn
|
|
|
|
Private columnaktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnerstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnmutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnmutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "key_tabelle"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property keynrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnkeynr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property beschreibungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnbeschreibung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property key_wertColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnkey_wert
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mandantnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmandantnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property aktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnaktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnerstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As key_tabelleRow
|
|
Get
|
|
Return CType(Me.Rows(index),key_tabelleRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event key_tabelleRowChanging As key_tabelleRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event key_tabelleRowChanged As key_tabelleRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event key_tabelleRowDeleting As key_tabelleRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event key_tabelleRowDeleted As key_tabelleRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub Addkey_tabelleRow(ByVal row As key_tabelleRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function Addkey_tabelleRow(ByVal beschreibung As String, ByVal key_wert As Long, ByVal mandantnr As Long, ByVal aktiv As Boolean, ByVal erstellt_am As Date, ByVal mutiert_am As Date, ByVal mutierer As Long) As key_tabelleRow
|
|
Dim rowkey_tabelleRow As key_tabelleRow = CType(Me.NewRow,key_tabelleRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, beschreibung, key_wert, mandantnr, aktiv, erstellt_am, mutiert_am, mutierer}
|
|
rowkey_tabelleRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowkey_tabelleRow)
|
|
Return rowkey_tabelleRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBykeynr(ByVal keynr As Long) As key_tabelleRow
|
|
Return CType(Me.Rows.Find(New Object() {keynr}),key_tabelleRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As key_tabelleDataTable = CType(MyBase.Clone,key_tabelleDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New key_tabelleDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnkeynr = MyBase.Columns("keynr")
|
|
Me.columnbeschreibung = MyBase.Columns("beschreibung")
|
|
Me.columnkey_wert = MyBase.Columns("key_wert")
|
|
Me.columnmandantnr = MyBase.Columns("mandantnr")
|
|
Me.columnaktiv = MyBase.Columns("aktiv")
|
|
Me.columnerstellt_am = MyBase.Columns("erstellt_am")
|
|
Me.columnmutiert_am = MyBase.Columns("mutiert_am")
|
|
Me.columnmutierer = MyBase.Columns("mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnkeynr = New Global.System.Data.DataColumn("keynr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnkeynr)
|
|
Me.columnbeschreibung = New Global.System.Data.DataColumn("beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnbeschreibung)
|
|
Me.columnkey_wert = New Global.System.Data.DataColumn("key_wert", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnkey_wert)
|
|
Me.columnmandantnr = New Global.System.Data.DataColumn("mandantnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmandantnr)
|
|
Me.columnaktiv = New Global.System.Data.DataColumn("aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnaktiv)
|
|
Me.columnerstellt_am = New Global.System.Data.DataColumn("erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnerstellt_am)
|
|
Me.columnmutiert_am = New Global.System.Data.DataColumn("mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmutiert_am)
|
|
Me.columnmutierer = New Global.System.Data.DataColumn("mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnkeynr}, true))
|
|
Me.columnkeynr.AutoIncrement = true
|
|
Me.columnkeynr.AutoIncrementSeed = -1
|
|
Me.columnkeynr.AutoIncrementStep = -1
|
|
Me.columnkeynr.AllowDBNull = false
|
|
Me.columnkeynr.Unique = true
|
|
Me.columnbeschreibung.AllowDBNull = false
|
|
Me.columnbeschreibung.MaxLength = 255
|
|
Me.columnkey_wert.AllowDBNull = false
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function Newkey_tabelleRow() As key_tabelleRow
|
|
Return CType(Me.NewRow,key_tabelleRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New key_tabelleRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(key_tabelleRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.key_tabelleRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent key_tabelleRowChanged(Me, New key_tabelleRowChangeEvent(CType(e.Row,key_tabelleRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.key_tabelleRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent key_tabelleRowChanging(Me, New key_tabelleRowChangeEvent(CType(e.Row,key_tabelleRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.key_tabelleRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent key_tabelleRowDeleted(Me, New key_tabelleRowChangeEvent(CType(e.Row,key_tabelleRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.key_tabelleRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent key_tabelleRowDeleting(Me, New key_tabelleRowChangeEvent(CType(e.Row,key_tabelleRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Removekey_tabelleRow(ByVal row As key_tabelleRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "key_tabelleDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class KlasseDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of KlasseRow)
|
|
|
|
Private columnKlasseNr As Global.System.Data.DataColumn
|
|
|
|
Private columnSchulhausNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrer_Name As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrer_Vorname As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrer_Anrede As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrer_Telefon As Global.System.Data.DataColumn
|
|
|
|
Private columnLehrer_EMail As Global.System.Data.DataColumn
|
|
|
|
Private columnKlassengroesse As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Klasse"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property KlasseNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKlasseNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchulhausNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchulhausNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Lehrer_NameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrer_Name
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Lehrer_VornameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrer_Vorname
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Lehrer_AnredeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrer_Anrede
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Lehrer_TelefonColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrer_Telefon
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Lehrer_EMailColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLehrer_EMail
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property KlassengroesseColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKlassengroesse
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As KlasseRow
|
|
Get
|
|
Return CType(Me.Rows(index),KlasseRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event KlasseRowChanging As KlasseRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event KlasseRowChanged As KlasseRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event KlasseRowDeleting As KlasseRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event KlasseRowDeleted As KlasseRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddKlasseRow(ByVal row As KlasseRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddKlasseRow(ByVal KlasseNr As Long, ByVal SchulhausNr As Long, ByVal Bezeichnung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Lehrer_Name As String, ByVal Lehrer_Vorname As String, ByVal Lehrer_Anrede As String, ByVal Lehrer_Telefon As String, ByVal Lehrer_EMail As String, ByVal Klassengroesse As Integer) As KlasseRow
|
|
Dim rowKlasseRow As KlasseRow = CType(Me.NewRow,KlasseRow)
|
|
Dim columnValuesArray() As Object = New Object() {KlasseNr, SchulhausNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Lehrer_Name, Lehrer_Vorname, Lehrer_Anrede, Lehrer_Telefon, Lehrer_EMail, Klassengroesse}
|
|
rowKlasseRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowKlasseRow)
|
|
Return rowKlasseRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByKlasseNr(ByVal KlasseNr As Long) As KlasseRow
|
|
Return CType(Me.Rows.Find(New Object() {KlasseNr}),KlasseRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As KlasseDataTable = CType(MyBase.Clone,KlasseDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New KlasseDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnKlasseNr = MyBase.Columns("KlasseNr")
|
|
Me.columnSchulhausNr = MyBase.Columns("SchulhausNr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnLehrer_Name = MyBase.Columns("Lehrer_Name")
|
|
Me.columnLehrer_Vorname = MyBase.Columns("Lehrer_Vorname")
|
|
Me.columnLehrer_Anrede = MyBase.Columns("Lehrer_Anrede")
|
|
Me.columnLehrer_Telefon = MyBase.Columns("Lehrer_Telefon")
|
|
Me.columnLehrer_EMail = MyBase.Columns("Lehrer_EMail")
|
|
Me.columnKlassengroesse = MyBase.Columns("Klassengroesse")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnKlasseNr = New Global.System.Data.DataColumn("KlasseNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKlasseNr)
|
|
Me.columnSchulhausNr = New Global.System.Data.DataColumn("SchulhausNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchulhausNr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnLehrer_Name = New Global.System.Data.DataColumn("Lehrer_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrer_Name)
|
|
Me.columnLehrer_Vorname = New Global.System.Data.DataColumn("Lehrer_Vorname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrer_Vorname)
|
|
Me.columnLehrer_Anrede = New Global.System.Data.DataColumn("Lehrer_Anrede", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrer_Anrede)
|
|
Me.columnLehrer_Telefon = New Global.System.Data.DataColumn("Lehrer_Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrer_Telefon)
|
|
Me.columnLehrer_EMail = New Global.System.Data.DataColumn("Lehrer_EMail", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLehrer_EMail)
|
|
Me.columnKlassengroesse = New Global.System.Data.DataColumn("Klassengroesse", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKlassengroesse)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKlasseNr}, true))
|
|
Me.columnKlasseNr.AllowDBNull = false
|
|
Me.columnKlasseNr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnLehrer_Name.MaxLength = 50
|
|
Me.columnLehrer_Vorname.MaxLength = 50
|
|
Me.columnLehrer_Anrede.MaxLength = 50
|
|
Me.columnLehrer_Telefon.MaxLength = 50
|
|
Me.columnLehrer_EMail.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewKlasseRow() As KlasseRow
|
|
Return CType(Me.NewRow,KlasseRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New KlasseRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(KlasseRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.KlasseRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent KlasseRowChanged(Me, New KlasseRowChangeEvent(CType(e.Row,KlasseRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.KlasseRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent KlasseRowChanging(Me, New KlasseRowChangeEvent(CType(e.Row,KlasseRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.KlasseRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent KlasseRowDeleted(Me, New KlasseRowChangeEvent(CType(e.Row,KlasseRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.KlasseRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent KlasseRowDeleting(Me, New KlasseRowChangeEvent(CType(e.Row,KlasseRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveKlasseRow(ByVal row As KlasseRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "KlasseDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class SchulhausDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of SchulhausRow)
|
|
|
|
Private columnSchulhausNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnStrasse As Global.System.Data.DataColumn
|
|
|
|
Private columnPLZ As Global.System.Data.DataColumn
|
|
|
|
Private columnOrt As Global.System.Data.DataColumn
|
|
|
|
Private columnTelefon As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Schulhaus"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchulhausNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchulhausNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property StrasseColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnStrasse
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPLZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnOrt
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTelefon
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As SchulhausRow
|
|
Get
|
|
Return CType(Me.Rows(index),SchulhausRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchulhausRowChanging As SchulhausRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchulhausRowChanged As SchulhausRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchulhausRowDeleting As SchulhausRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchulhausRowDeleted As SchulhausRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddSchulhausRow(ByVal row As SchulhausRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddSchulhausRow(ByVal SchulhausNr As Long, ByVal Bezeichnung As String, ByVal Strasse As String, ByVal PLZ As Long, ByVal Ort As String, ByVal Telefon As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long) As SchulhausRow
|
|
Dim rowSchulhausRow As SchulhausRow = CType(Me.NewRow,SchulhausRow)
|
|
Dim columnValuesArray() As Object = New Object() {SchulhausNr, Bezeichnung, Strasse, PLZ, Ort, Telefon, Aktiv, Erstellt_am, Mutiert_am, Mutierer}
|
|
rowSchulhausRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowSchulhausRow)
|
|
Return rowSchulhausRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBySchulhausNr(ByVal SchulhausNr As Long) As SchulhausRow
|
|
Return CType(Me.Rows.Find(New Object() {SchulhausNr}),SchulhausRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As SchulhausDataTable = CType(MyBase.Clone,SchulhausDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New SchulhausDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnSchulhausNr = MyBase.Columns("SchulhausNr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnStrasse = MyBase.Columns("Strasse")
|
|
Me.columnPLZ = MyBase.Columns("PLZ")
|
|
Me.columnOrt = MyBase.Columns("Ort")
|
|
Me.columnTelefon = MyBase.Columns("Telefon")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnSchulhausNr = New Global.System.Data.DataColumn("SchulhausNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchulhausNr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnStrasse = New Global.System.Data.DataColumn("Strasse", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnStrasse)
|
|
Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPLZ)
|
|
Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnOrt)
|
|
Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTelefon)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSchulhausNr}, true))
|
|
Me.columnSchulhausNr.AllowDBNull = false
|
|
Me.columnSchulhausNr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnStrasse.MaxLength = 50
|
|
Me.columnOrt.MaxLength = 50
|
|
Me.columnTelefon.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewSchulhausRow() As SchulhausRow
|
|
Return CType(Me.NewRow,SchulhausRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New SchulhausRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(SchulhausRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.SchulhausRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent SchulhausRowChanged(Me, New SchulhausRowChangeEvent(CType(e.Row,SchulhausRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.SchulhausRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent SchulhausRowChanging(Me, New SchulhausRowChangeEvent(CType(e.Row,SchulhausRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.SchulhausRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent SchulhausRowDeleted(Me, New SchulhausRowChangeEvent(CType(e.Row,SchulhausRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.SchulhausRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent SchulhausRowDeleting(Me, New SchulhausRowChangeEvent(CType(e.Row,SchulhausRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveSchulhausRow(ByVal row As SchulhausRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "SchulhausDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class spaltenDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of spaltenRow)
|
|
|
|
Private columneintragnr As Global.System.Data.DataColumn
|
|
|
|
Private columntabelle As Global.System.Data.DataColumn
|
|
|
|
Private columntabellenspalte As Global.System.Data.DataColumn
|
|
|
|
Private columnspalte As Global.System.Data.DataColumn
|
|
|
|
Private columnReadonly As Global.System.Data.DataColumn
|
|
|
|
Private columnalsHacken As Global.System.Data.DataColumn
|
|
|
|
Private columnBreite As Global.System.Data.DataColumn
|
|
|
|
Private columnReihenfolge As Global.System.Data.DataColumn
|
|
|
|
Private columntiptext As Global.System.Data.DataColumn
|
|
|
|
Private columnaktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnerstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnmutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnmutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnmandantnr As Global.System.Data.DataColumn
|
|
|
|
Private columnNumberFormat As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "spalten"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property eintragnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columneintragnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property tabelleColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columntabelle
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property tabellenspalteColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columntabellenspalte
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property spalteColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnspalte
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReadonlyColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReadonly
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property alsHackenColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnalsHacken
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BreiteColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBreite
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReihenfolgeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReihenfolge
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property tiptextColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columntiptext
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property aktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnaktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnerstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mandantnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmandantnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property NumberFormatColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNumberFormat
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As spaltenRow
|
|
Get
|
|
Return CType(Me.Rows(index),spaltenRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event spaltenRowChanging As spaltenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event spaltenRowChanged As spaltenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event spaltenRowDeleting As spaltenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event spaltenRowDeleted As spaltenRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddspaltenRow(ByVal row As spaltenRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddspaltenRow(ByVal eintragnr As Long, ByVal tabelle As String, ByVal tabellenspalte As String, ByVal spalte As String, ByVal _Readonly As Boolean, ByVal alsHacken As Boolean, ByVal Breite As Long, ByVal Reihenfolge As Long, ByVal tiptext As String, ByVal aktiv As Boolean, ByVal erstellt_am As Date, ByVal mutiert_am As Date, ByVal mutierer As Long, ByVal mandantnr As Long, ByVal NumberFormat As String) As spaltenRow
|
|
Dim rowspaltenRow As spaltenRow = CType(Me.NewRow,spaltenRow)
|
|
Dim columnValuesArray() As Object = New Object() {eintragnr, tabelle, tabellenspalte, spalte, _Readonly, alsHacken, Breite, Reihenfolge, tiptext, aktiv, erstellt_am, mutiert_am, mutierer, mandantnr, NumberFormat}
|
|
rowspaltenRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowspaltenRow)
|
|
Return rowspaltenRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByeintragnr(ByVal eintragnr As Long) As spaltenRow
|
|
Return CType(Me.Rows.Find(New Object() {eintragnr}),spaltenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As spaltenDataTable = CType(MyBase.Clone,spaltenDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New spaltenDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columneintragnr = MyBase.Columns("eintragnr")
|
|
Me.columntabelle = MyBase.Columns("tabelle")
|
|
Me.columntabellenspalte = MyBase.Columns("tabellenspalte")
|
|
Me.columnspalte = MyBase.Columns("spalte")
|
|
Me.columnReadonly = MyBase.Columns("Readonly")
|
|
Me.columnalsHacken = MyBase.Columns("alsHacken")
|
|
Me.columnBreite = MyBase.Columns("Breite")
|
|
Me.columnReihenfolge = MyBase.Columns("Reihenfolge")
|
|
Me.columntiptext = MyBase.Columns("tiptext")
|
|
Me.columnaktiv = MyBase.Columns("aktiv")
|
|
Me.columnerstellt_am = MyBase.Columns("erstellt_am")
|
|
Me.columnmutiert_am = MyBase.Columns("mutiert_am")
|
|
Me.columnmutierer = MyBase.Columns("mutierer")
|
|
Me.columnmandantnr = MyBase.Columns("mandantnr")
|
|
Me.columnNumberFormat = MyBase.Columns("NumberFormat")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columneintragnr = New Global.System.Data.DataColumn("eintragnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columneintragnr)
|
|
Me.columntabelle = New Global.System.Data.DataColumn("tabelle", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columntabelle)
|
|
Me.columntabellenspalte = New Global.System.Data.DataColumn("tabellenspalte", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columntabellenspalte)
|
|
Me.columnspalte = New Global.System.Data.DataColumn("spalte", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnspalte)
|
|
Me.columnReadonly = New Global.System.Data.DataColumn("Readonly", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
Me.columnReadonly.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ReadonlyColumn")
|
|
Me.columnReadonly.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnReadonly")
|
|
Me.columnReadonly.ExtendedProperties.Add("Generator_UserColumnName", "Readonly")
|
|
MyBase.Columns.Add(Me.columnReadonly)
|
|
Me.columnalsHacken = New Global.System.Data.DataColumn("alsHacken", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnalsHacken)
|
|
Me.columnBreite = New Global.System.Data.DataColumn("Breite", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBreite)
|
|
Me.columnReihenfolge = New Global.System.Data.DataColumn("Reihenfolge", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnReihenfolge)
|
|
Me.columntiptext = New Global.System.Data.DataColumn("tiptext", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columntiptext)
|
|
Me.columnaktiv = New Global.System.Data.DataColumn("aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnaktiv)
|
|
Me.columnerstellt_am = New Global.System.Data.DataColumn("erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnerstellt_am)
|
|
Me.columnmutiert_am = New Global.System.Data.DataColumn("mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmutiert_am)
|
|
Me.columnmutierer = New Global.System.Data.DataColumn("mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmutierer)
|
|
Me.columnmandantnr = New Global.System.Data.DataColumn("mandantnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmandantnr)
|
|
Me.columnNumberFormat = New Global.System.Data.DataColumn("NumberFormat", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNumberFormat)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columneintragnr}, true))
|
|
Me.columneintragnr.AllowDBNull = false
|
|
Me.columneintragnr.Unique = true
|
|
Me.columntabelle.MaxLength = 255
|
|
Me.columntabellenspalte.MaxLength = 255
|
|
Me.columnspalte.MaxLength = 255
|
|
Me.columnReadonly.AllowDBNull = false
|
|
Me.columnalsHacken.AllowDBNull = false
|
|
Me.columntiptext.MaxLength = 255
|
|
Me.columnaktiv.AllowDBNull = false
|
|
Me.columnNumberFormat.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewspaltenRow() As spaltenRow
|
|
Return CType(Me.NewRow,spaltenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New spaltenRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(spaltenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.spaltenRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent spaltenRowChanged(Me, New spaltenRowChangeEvent(CType(e.Row,spaltenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.spaltenRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent spaltenRowChanging(Me, New spaltenRowChangeEvent(CType(e.Row,spaltenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.spaltenRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent spaltenRowDeleted(Me, New spaltenRowChangeEvent(CType(e.Row,spaltenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.spaltenRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent spaltenRowDeleting(Me, New spaltenRowChangeEvent(CType(e.Row,spaltenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemovespaltenRow(ByVal row As spaltenRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "spaltenDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class sysdiagramsDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of sysdiagramsRow)
|
|
|
|
Private columnname As Global.System.Data.DataColumn
|
|
|
|
Private columnprincipal_id As Global.System.Data.DataColumn
|
|
|
|
Private columndiagram_id As Global.System.Data.DataColumn
|
|
|
|
Private columnversion As Global.System.Data.DataColumn
|
|
|
|
Private columndefinition As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "sysdiagrams"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnname
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property principal_idColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnprincipal_id
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property diagram_idColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columndiagram_id
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property versionColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnversion
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property definitionColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columndefinition
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As sysdiagramsRow
|
|
Get
|
|
Return CType(Me.Rows(index),sysdiagramsRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event sysdiagramsRowChanging As sysdiagramsRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event sysdiagramsRowChanged As sysdiagramsRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event sysdiagramsRowDeleting As sysdiagramsRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event sysdiagramsRowDeleted As sysdiagramsRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddsysdiagramsRow(ByVal row As sysdiagramsRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddsysdiagramsRow(ByVal name As String, ByVal principal_id As Long, ByVal version As Long, ByVal definition() As Byte) As sysdiagramsRow
|
|
Dim rowsysdiagramsRow As sysdiagramsRow = CType(Me.NewRow,sysdiagramsRow)
|
|
Dim columnValuesArray() As Object = New Object() {name, principal_id, Nothing, version, definition}
|
|
rowsysdiagramsRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowsysdiagramsRow)
|
|
Return rowsysdiagramsRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBydiagram_id(ByVal diagram_id As Long) As sysdiagramsRow
|
|
Return CType(Me.Rows.Find(New Object() {diagram_id}),sysdiagramsRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As sysdiagramsDataTable = CType(MyBase.Clone,sysdiagramsDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New sysdiagramsDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnname = MyBase.Columns("name")
|
|
Me.columnprincipal_id = MyBase.Columns("principal_id")
|
|
Me.columndiagram_id = MyBase.Columns("diagram_id")
|
|
Me.columnversion = MyBase.Columns("version")
|
|
Me.columndefinition = MyBase.Columns("definition")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnname)
|
|
Me.columnprincipal_id = New Global.System.Data.DataColumn("principal_id", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnprincipal_id)
|
|
Me.columndiagram_id = New Global.System.Data.DataColumn("diagram_id", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columndiagram_id)
|
|
Me.columnversion = New Global.System.Data.DataColumn("version", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnversion)
|
|
Me.columndefinition = New Global.System.Data.DataColumn("definition", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columndefinition)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columndiagram_id}, true))
|
|
Me.columnname.AllowDBNull = false
|
|
Me.columnname.MaxLength = 128
|
|
Me.columnprincipal_id.AllowDBNull = false
|
|
Me.columndiagram_id.AutoIncrement = true
|
|
Me.columndiagram_id.AutoIncrementSeed = -1
|
|
Me.columndiagram_id.AutoIncrementStep = -1
|
|
Me.columndiagram_id.AllowDBNull = false
|
|
Me.columndiagram_id.Unique = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewsysdiagramsRow() As sysdiagramsRow
|
|
Return CType(Me.NewRow,sysdiagramsRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New sysdiagramsRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(sysdiagramsRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.sysdiagramsRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent sysdiagramsRowChanged(Me, New sysdiagramsRowChangeEvent(CType(e.Row,sysdiagramsRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.sysdiagramsRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent sysdiagramsRowChanging(Me, New sysdiagramsRowChangeEvent(CType(e.Row,sysdiagramsRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.sysdiagramsRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent sysdiagramsRowDeleted(Me, New sysdiagramsRowChangeEvent(CType(e.Row,sysdiagramsRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.sysdiagramsRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent sysdiagramsRowDeleting(Me, New sysdiagramsRowChangeEvent(CType(e.Row,sysdiagramsRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemovesysdiagramsRow(ByVal row As sysdiagramsRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "sysdiagramsDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class ZeitenDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of ZeitenRow)
|
|
|
|
Private columnZeitNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnBeschreibung As Global.System.Data.DataColumn
|
|
|
|
Private columnReihenfolge As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Zeiten"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ZeitNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnZeitNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BeschreibungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBeschreibung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReihenfolgeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReihenfolge
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As ZeitenRow
|
|
Get
|
|
Return CType(Me.Rows(index),ZeitenRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZeitenRowChanging As ZeitenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZeitenRowChanged As ZeitenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZeitenRowDeleting As ZeitenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZeitenRowDeleted As ZeitenRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddZeitenRow(ByVal row As ZeitenRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddZeitenRow(ByVal ZeitNr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Reihenfolge As Long, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long) As ZeitenRow
|
|
Dim rowZeitenRow As ZeitenRow = CType(Me.NewRow,ZeitenRow)
|
|
Dim columnValuesArray() As Object = New Object() {ZeitNr, Bezeichnung, Beschreibung, Reihenfolge, Aktiv, Erstellt_am, Mutiert_am, Mutierer}
|
|
rowZeitenRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowZeitenRow)
|
|
Return rowZeitenRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByZeitNr(ByVal ZeitNr As Long) As ZeitenRow
|
|
Return CType(Me.Rows.Find(New Object() {ZeitNr}),ZeitenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As ZeitenDataTable = CType(MyBase.Clone,ZeitenDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New ZeitenDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnZeitNr = MyBase.Columns("ZeitNr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnBeschreibung = MyBase.Columns("Beschreibung")
|
|
Me.columnReihenfolge = MyBase.Columns("Reihenfolge")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnZeitNr = New Global.System.Data.DataColumn("ZeitNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnZeitNr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnBeschreibung = New Global.System.Data.DataColumn("Beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBeschreibung)
|
|
Me.columnReihenfolge = New Global.System.Data.DataColumn("Reihenfolge", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnReihenfolge)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnZeitNr}, true))
|
|
Me.columnZeitNr.AllowDBNull = false
|
|
Me.columnZeitNr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnBeschreibung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewZeitenRow() As ZeitenRow
|
|
Return CType(Me.NewRow,ZeitenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New ZeitenRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(ZeitenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.ZeitenRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent ZeitenRowChanged(Me, New ZeitenRowChangeEvent(CType(e.Row,ZeitenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.ZeitenRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent ZeitenRowChanging(Me, New ZeitenRowChangeEvent(CType(e.Row,ZeitenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.ZeitenRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent ZeitenRowDeleted(Me, New ZeitenRowChangeEvent(CType(e.Row,ZeitenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.ZeitenRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent ZeitenRowDeleting(Me, New ZeitenRowChangeEvent(CType(e.Row,ZeitenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveZeitenRow(ByVal row As ZeitenRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "ZeitenDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class SchuelerDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of SchuelerRow)
|
|
|
|
Private columnSchuelerNr As Global.System.Data.DataColumn
|
|
|
|
Private columnKlasseNr As Global.System.Data.DataColumn
|
|
|
|
Private columnName As Global.System.Data.DataColumn
|
|
|
|
Private columnVorname As Global.System.Data.DataColumn
|
|
|
|
Private columnBemerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Schueler"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchuelerNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchuelerNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property KlasseNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKlasseNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnName
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property VornameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVorname
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As SchuelerRow
|
|
Get
|
|
Return CType(Me.Rows(index),SchuelerRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerRowChanging As SchuelerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerRowChanged As SchuelerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerRowDeleting As SchuelerRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerRowDeleted As SchuelerRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddSchuelerRow(ByVal row As SchuelerRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddSchuelerRow(ByVal SchuelerNr As Long, ByVal KlasseNr As Long, ByVal Name As String, ByVal Vorname As String, ByVal Bemerkung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long) As SchuelerRow
|
|
Dim rowSchuelerRow As SchuelerRow = CType(Me.NewRow,SchuelerRow)
|
|
Dim columnValuesArray() As Object = New Object() {SchuelerNr, KlasseNr, Name, Vorname, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer}
|
|
rowSchuelerRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowSchuelerRow)
|
|
Return rowSchuelerRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBySchuelerNr(ByVal SchuelerNr As Long) As SchuelerRow
|
|
Return CType(Me.Rows.Find(New Object() {SchuelerNr}),SchuelerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As SchuelerDataTable = CType(MyBase.Clone,SchuelerDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New SchuelerDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnSchuelerNr = MyBase.Columns("SchuelerNr")
|
|
Me.columnKlasseNr = MyBase.Columns("KlasseNr")
|
|
Me.columnName = MyBase.Columns("Name")
|
|
Me.columnVorname = MyBase.Columns("Vorname")
|
|
Me.columnBemerkung = MyBase.Columns("Bemerkung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnSchuelerNr = New Global.System.Data.DataColumn("SchuelerNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchuelerNr)
|
|
Me.columnKlasseNr = New Global.System.Data.DataColumn("KlasseNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKlasseNr)
|
|
Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnName)
|
|
Me.columnVorname = New Global.System.Data.DataColumn("Vorname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVorname)
|
|
Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBemerkung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSchuelerNr}, true))
|
|
Me.columnSchuelerNr.AllowDBNull = false
|
|
Me.columnSchuelerNr.Unique = true
|
|
Me.columnName.MaxLength = 50
|
|
Me.columnVorname.MaxLength = 50
|
|
Me.columnBemerkung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewSchuelerRow() As SchuelerRow
|
|
Return CType(Me.NewRow,SchuelerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New SchuelerRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(SchuelerRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.SchuelerRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerRowChanged(Me, New SchuelerRowChangeEvent(CType(e.Row,SchuelerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.SchuelerRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerRowChanging(Me, New SchuelerRowChangeEvent(CType(e.Row,SchuelerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.SchuelerRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerRowDeleted(Me, New SchuelerRowChangeEvent(CType(e.Row,SchuelerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.SchuelerRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerRowDeleting(Me, New SchuelerRowChangeEvent(CType(e.Row,SchuelerRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveSchuelerRow(ByVal row As SchuelerRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "SchuelerDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class SchuelerBerufDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of SchuelerBerufRow)
|
|
|
|
Private columnSchuelerBerufNr As Global.System.Data.DataColumn
|
|
|
|
Private columnSchuelerNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBerufNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBemerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnPrioritaet As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "SchuelerBeruf"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchuelerBerufNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchuelerBerufNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchuelerNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchuelerNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BerufNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBerufNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property PrioritaetColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPrioritaet
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As SchuelerBerufRow
|
|
Get
|
|
Return CType(Me.Rows(index),SchuelerBerufRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerBerufRowChanging As SchuelerBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerBerufRowChanged As SchuelerBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerBerufRowDeleting As SchuelerBerufRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SchuelerBerufRowDeleted As SchuelerBerufRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddSchuelerBerufRow(ByVal row As SchuelerBerufRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddSchuelerBerufRow(ByVal SchuelerBerufNr As Long, ByVal SchuelerNr As Long, ByVal BerufNr As Long, ByVal Bemerkung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Prioritaet As Long) As SchuelerBerufRow
|
|
Dim rowSchuelerBerufRow As SchuelerBerufRow = CType(Me.NewRow,SchuelerBerufRow)
|
|
Dim columnValuesArray() As Object = New Object() {SchuelerBerufNr, SchuelerNr, BerufNr, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Prioritaet}
|
|
rowSchuelerBerufRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowSchuelerBerufRow)
|
|
Return rowSchuelerBerufRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBySchuelerBerufNr(ByVal SchuelerBerufNr As Long) As SchuelerBerufRow
|
|
Return CType(Me.Rows.Find(New Object() {SchuelerBerufNr}),SchuelerBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As SchuelerBerufDataTable = CType(MyBase.Clone,SchuelerBerufDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New SchuelerBerufDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnSchuelerBerufNr = MyBase.Columns("SchuelerBerufNr")
|
|
Me.columnSchuelerNr = MyBase.Columns("SchuelerNr")
|
|
Me.columnBerufNr = MyBase.Columns("BerufNr")
|
|
Me.columnBemerkung = MyBase.Columns("Bemerkung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnPrioritaet = MyBase.Columns("Prioritaet")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnSchuelerBerufNr = New Global.System.Data.DataColumn("SchuelerBerufNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchuelerBerufNr)
|
|
Me.columnSchuelerNr = New Global.System.Data.DataColumn("SchuelerNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchuelerNr)
|
|
Me.columnBerufNr = New Global.System.Data.DataColumn("BerufNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBerufNr)
|
|
Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBemerkung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnPrioritaet = New Global.System.Data.DataColumn("Prioritaet", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPrioritaet)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSchuelerBerufNr}, true))
|
|
Me.columnSchuelerBerufNr.AllowDBNull = false
|
|
Me.columnSchuelerBerufNr.Unique = true
|
|
Me.columnBemerkung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewSchuelerBerufRow() As SchuelerBerufRow
|
|
Return CType(Me.NewRow,SchuelerBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New SchuelerBerufRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(SchuelerBerufRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.SchuelerBerufRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerBerufRowChanged(Me, New SchuelerBerufRowChangeEvent(CType(e.Row,SchuelerBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.SchuelerBerufRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerBerufRowChanging(Me, New SchuelerBerufRowChangeEvent(CType(e.Row,SchuelerBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.SchuelerBerufRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerBerufRowDeleted(Me, New SchuelerBerufRowChangeEvent(CType(e.Row,SchuelerBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.SchuelerBerufRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent SchuelerBerufRowDeleting(Me, New SchuelerBerufRowChangeEvent(CType(e.Row,SchuelerBerufRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveSchuelerBerufRow(ByVal row As SchuelerBerufRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "SchuelerBerufDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class ReportDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of ReportRow)
|
|
|
|
Private columnReportNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnFilename As Global.System.Data.DataColumn
|
|
|
|
Private columnReportGruppeNr As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_Statement As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Report"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReportNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReportNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FilenameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFilename
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReportGruppeNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReportGruppeNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SQL_StatementColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_Statement
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As ReportRow
|
|
Get
|
|
Return CType(Me.Rows(index),ReportRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportRowChanging As ReportRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportRowChanged As ReportRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportRowDeleting As ReportRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportRowDeleted As ReportRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddReportRow(ByVal row As ReportRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddReportRow(ByVal ReportNr As Long, ByVal Bezeichnung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Filename As String, ByVal ReportGruppeNr As Integer, ByVal SQL_Statement As String) As ReportRow
|
|
Dim rowReportRow As ReportRow = CType(Me.NewRow,ReportRow)
|
|
Dim columnValuesArray() As Object = New Object() {ReportNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Filename, ReportGruppeNr, SQL_Statement}
|
|
rowReportRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowReportRow)
|
|
Return rowReportRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByReportNr(ByVal ReportNr As Long) As ReportRow
|
|
Return CType(Me.Rows.Find(New Object() {ReportNr}),ReportRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As ReportDataTable = CType(MyBase.Clone,ReportDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New ReportDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnReportNr = MyBase.Columns("ReportNr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnFilename = MyBase.Columns("Filename")
|
|
Me.columnReportGruppeNr = MyBase.Columns("ReportGruppeNr")
|
|
Me.columnSQL_Statement = MyBase.Columns("SQL_Statement")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnReportNr = New Global.System.Data.DataColumn("ReportNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnReportNr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnFilename = New Global.System.Data.DataColumn("Filename", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFilename)
|
|
Me.columnReportGruppeNr = New Global.System.Data.DataColumn("ReportGruppeNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnReportGruppeNr)
|
|
Me.columnSQL_Statement = New Global.System.Data.DataColumn("SQL_Statement", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_Statement)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnReportNr}, true))
|
|
Me.columnReportNr.AllowDBNull = false
|
|
Me.columnReportNr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnFilename.MaxLength = 255
|
|
Me.columnSQL_Statement.MaxLength = 4096
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewReportRow() As ReportRow
|
|
Return CType(Me.NewRow,ReportRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New ReportRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(ReportRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.ReportRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent ReportRowChanged(Me, New ReportRowChangeEvent(CType(e.Row,ReportRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.ReportRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent ReportRowChanging(Me, New ReportRowChangeEvent(CType(e.Row,ReportRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.ReportRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent ReportRowDeleted(Me, New ReportRowChangeEvent(CType(e.Row,ReportRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.ReportRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent ReportRowDeleting(Me, New ReportRowChangeEvent(CType(e.Row,ReportRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveReportRow(ByVal row As ReportRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "ReportDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class OptionenDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of OptionenRow)
|
|
|
|
Private columnOptionnr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnInhalt As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Optionen"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property OptionnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnOptionnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property InhaltColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnInhalt
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As OptionenRow
|
|
Get
|
|
Return CType(Me.Rows(index),OptionenRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event OptionenRowChanging As OptionenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event OptionenRowChanged As OptionenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event OptionenRowDeleting As OptionenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event OptionenRowDeleted As OptionenRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddOptionenRow(ByVal row As OptionenRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddOptionenRow(ByVal Optionnr As Long, ByVal Bezeichnung As String, ByVal Inhalt As String, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long, ByVal Aktiv As Boolean) As OptionenRow
|
|
Dim rowOptionenRow As OptionenRow = CType(Me.NewRow,OptionenRow)
|
|
Dim columnValuesArray() As Object = New Object() {Optionnr, Bezeichnung, Inhalt, Erstellt_am, Mutiert_am, Mutierer, Aktiv}
|
|
rowOptionenRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowOptionenRow)
|
|
Return rowOptionenRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByOptionnr(ByVal Optionnr As Long) As OptionenRow
|
|
Return CType(Me.Rows.Find(New Object() {Optionnr}),OptionenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As OptionenDataTable = CType(MyBase.Clone,OptionenDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New OptionenDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnOptionnr = MyBase.Columns("Optionnr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnInhalt = MyBase.Columns("Inhalt")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnOptionnr = New Global.System.Data.DataColumn("Optionnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnOptionnr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnInhalt = New Global.System.Data.DataColumn("Inhalt", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnInhalt)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnOptionnr}, true))
|
|
Me.columnOptionnr.AllowDBNull = false
|
|
Me.columnOptionnr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnInhalt.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewOptionenRow() As OptionenRow
|
|
Return CType(Me.NewRow,OptionenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New OptionenRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(OptionenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.OptionenRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent OptionenRowChanged(Me, New OptionenRowChangeEvent(CType(e.Row,OptionenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.OptionenRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent OptionenRowChanging(Me, New OptionenRowChangeEvent(CType(e.Row,OptionenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.OptionenRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent OptionenRowDeleted(Me, New OptionenRowChangeEvent(CType(e.Row,OptionenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.OptionenRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent OptionenRowDeleting(Me, New OptionenRowChangeEvent(CType(e.Row,OptionenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveOptionenRow(ByVal row As OptionenRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "OptionenDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class ReportGruppeDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of ReportGruppeRow)
|
|
|
|
Private columnReportGruppeNr As Global.System.Data.DataColumn
|
|
|
|
Private columnBezeichnung As Global.System.Data.DataColumn
|
|
|
|
Private columnBeschreibung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "ReportGruppe"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ReportGruppeNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnReportGruppeNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BezeichnungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBezeichnung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BeschreibungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBeschreibung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As ReportGruppeRow
|
|
Get
|
|
Return CType(Me.Rows(index),ReportGruppeRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportGruppeRowChanging As ReportGruppeRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportGruppeRowChanged As ReportGruppeRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportGruppeRowDeleting As ReportGruppeRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ReportGruppeRowDeleted As ReportGruppeRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddReportGruppeRow(ByVal row As ReportGruppeRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddReportGruppeRow(ByVal ReportGruppeNr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long) As ReportGruppeRow
|
|
Dim rowReportGruppeRow As ReportGruppeRow = CType(Me.NewRow,ReportGruppeRow)
|
|
Dim columnValuesArray() As Object = New Object() {ReportGruppeNr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer}
|
|
rowReportGruppeRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowReportGruppeRow)
|
|
Return rowReportGruppeRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByReportGruppeNr(ByVal ReportGruppeNr As Long) As ReportGruppeRow
|
|
Return CType(Me.Rows.Find(New Object() {ReportGruppeNr}),ReportGruppeRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As ReportGruppeDataTable = CType(MyBase.Clone,ReportGruppeDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New ReportGruppeDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnReportGruppeNr = MyBase.Columns("ReportGruppeNr")
|
|
Me.columnBezeichnung = MyBase.Columns("Bezeichnung")
|
|
Me.columnBeschreibung = MyBase.Columns("Beschreibung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnReportGruppeNr = New Global.System.Data.DataColumn("ReportGruppeNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnReportGruppeNr)
|
|
Me.columnBezeichnung = New Global.System.Data.DataColumn("Bezeichnung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBezeichnung)
|
|
Me.columnBeschreibung = New Global.System.Data.DataColumn("Beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBeschreibung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnReportGruppeNr}, true))
|
|
Me.columnReportGruppeNr.AllowDBNull = false
|
|
Me.columnReportGruppeNr.Unique = true
|
|
Me.columnBezeichnung.MaxLength = 50
|
|
Me.columnBeschreibung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewReportGruppeRow() As ReportGruppeRow
|
|
Return CType(Me.NewRow,ReportGruppeRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New ReportGruppeRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(ReportGruppeRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.ReportGruppeRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent ReportGruppeRowChanged(Me, New ReportGruppeRowChangeEvent(CType(e.Row,ReportGruppeRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.ReportGruppeRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent ReportGruppeRowChanging(Me, New ReportGruppeRowChangeEvent(CType(e.Row,ReportGruppeRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.ReportGruppeRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent ReportGruppeRowDeleted(Me, New ReportGruppeRowChangeEvent(CType(e.Row,ReportGruppeRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.ReportGruppeRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent ReportGruppeRowDeleting(Me, New ReportGruppeRowChangeEvent(CType(e.Row,ReportGruppeRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveReportGruppeRow(ByVal row As ReportGruppeRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "ReportGruppeDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class SQLAbfragenDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of SQLAbfragenRow)
|
|
|
|
Private columnSQLNr As Global.System.Data.DataColumn
|
|
|
|
Private columnSQLScript As Global.System.Data.DataColumn
|
|
|
|
Private columnBeschreibung As Global.System.Data.DataColumn
|
|
|
|
Private columnAktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnErstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnMutierer As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "SQLAbfragen"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SQLNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQLNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SQLScriptColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQLScript
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BeschreibungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBeschreibung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property MutiererColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMutierer
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As SQLAbfragenRow
|
|
Get
|
|
Return CType(Me.Rows(index),SQLAbfragenRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SQLAbfragenRowChanging As SQLAbfragenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SQLAbfragenRowChanged As SQLAbfragenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SQLAbfragenRowDeleting As SQLAbfragenRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event SQLAbfragenRowDeleted As SQLAbfragenRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddSQLAbfragenRow(ByVal row As SQLAbfragenRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddSQLAbfragenRow(ByVal SQLNr As Integer, ByVal SQLScript As String, ByVal Beschreibung As String, ByVal Aktiv As Boolean, ByVal Erstellt_am As Date, ByVal Mutiert_am As Date, ByVal Mutierer As Long) As SQLAbfragenRow
|
|
Dim rowSQLAbfragenRow As SQLAbfragenRow = CType(Me.NewRow,SQLAbfragenRow)
|
|
Dim columnValuesArray() As Object = New Object() {SQLNr, SQLScript, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer}
|
|
rowSQLAbfragenRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowSQLAbfragenRow)
|
|
Return rowSQLAbfragenRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindBySQLNr(ByVal SQLNr As Integer) As SQLAbfragenRow
|
|
Return CType(Me.Rows.Find(New Object() {SQLNr}),SQLAbfragenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As SQLAbfragenDataTable = CType(MyBase.Clone,SQLAbfragenDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New SQLAbfragenDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnSQLNr = MyBase.Columns("SQLNr")
|
|
Me.columnSQLScript = MyBase.Columns("SQLScript")
|
|
Me.columnBeschreibung = MyBase.Columns("Beschreibung")
|
|
Me.columnAktiv = MyBase.Columns("Aktiv")
|
|
Me.columnErstellt_am = MyBase.Columns("Erstellt_am")
|
|
Me.columnMutiert_am = MyBase.Columns("Mutiert_am")
|
|
Me.columnMutierer = MyBase.Columns("Mutierer")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnSQLNr = New Global.System.Data.DataColumn("SQLNr", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQLNr)
|
|
Me.columnSQLScript = New Global.System.Data.DataColumn("SQLScript", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQLScript)
|
|
Me.columnBeschreibung = New Global.System.Data.DataColumn("Beschreibung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBeschreibung)
|
|
Me.columnAktiv = New Global.System.Data.DataColumn("Aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAktiv)
|
|
Me.columnErstellt_am = New Global.System.Data.DataColumn("Erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErstellt_am)
|
|
Me.columnMutiert_am = New Global.System.Data.DataColumn("Mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutiert_am)
|
|
Me.columnMutierer = New Global.System.Data.DataColumn("Mutierer", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMutierer)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSQLNr}, true))
|
|
Me.columnSQLNr.AllowDBNull = false
|
|
Me.columnSQLNr.Unique = true
|
|
Me.columnSQLScript.MaxLength = 4096
|
|
Me.columnBeschreibung.MaxLength = 255
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewSQLAbfragenRow() As SQLAbfragenRow
|
|
Return CType(Me.NewRow,SQLAbfragenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New SQLAbfragenRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(SQLAbfragenRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.SQLAbfragenRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent SQLAbfragenRowChanged(Me, New SQLAbfragenRowChangeEvent(CType(e.Row,SQLAbfragenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.SQLAbfragenRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent SQLAbfragenRowChanging(Me, New SQLAbfragenRowChangeEvent(CType(e.Row,SQLAbfragenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.SQLAbfragenRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent SQLAbfragenRowDeleted(Me, New SQLAbfragenRowChangeEvent(CType(e.Row,SQLAbfragenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.SQLAbfragenRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent SQLAbfragenRowDeleting(Me, New SQLAbfragenRowChangeEvent(CType(e.Row,SQLAbfragenRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveSQLAbfragenRow(ByVal row As SQLAbfragenRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "SQLAbfragenDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class ZuteilungDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of ZuteilungRow)
|
|
|
|
Private columnEintragNr As Global.System.Data.DataColumn
|
|
|
|
Private columnFirmaBerufNr As Global.System.Data.DataColumn
|
|
|
|
Private columnSchuelerBerufNr As Global.System.Data.DataColumn
|
|
|
|
Private columnaktiv As Global.System.Data.DataColumn
|
|
|
|
Private columnerstellt_am As Global.System.Data.DataColumn
|
|
|
|
Private columnmutiert_am As Global.System.Data.DataColumn
|
|
|
|
Private columnBemerkung As Global.System.Data.DataColumn
|
|
|
|
Private columnSchuelerNr As Global.System.Data.DataColumn
|
|
|
|
Private columnZeitnr As Global.System.Data.DataColumn
|
|
|
|
Private columnAnsprechpartnernr As Global.System.Data.DataColumn
|
|
|
|
Private columnPrioritaet As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "Zuteilung"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property EintragNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEintragNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property FirmaBerufNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFirmaBerufNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchuelerBerufNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchuelerBerufNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property aktivColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnaktiv
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property erstellt_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnerstellt_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property mutiert_amColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnmutiert_am
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property BemerkungColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBemerkung
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property SchuelerNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSchuelerNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property ZeitnrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnZeitnr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property AnsprechpartnernrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAnsprechpartnernr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property PrioritaetColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPrioritaet
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As ZuteilungRow
|
|
Get
|
|
Return CType(Me.Rows(index),ZuteilungRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZuteilungRowChanging As ZuteilungRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZuteilungRowChanged As ZuteilungRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZuteilungRowDeleting As ZuteilungRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event ZuteilungRowDeleted As ZuteilungRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddZuteilungRow(ByVal row As ZuteilungRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddZuteilungRow(ByVal FirmaBerufNr As Long, ByVal SchuelerBerufNr As Long, ByVal aktiv As Boolean, ByVal erstellt_am As Date, ByVal mutiert_am As Date, ByVal Bemerkung As String, ByVal SchuelerNr As Long, ByVal Zeitnr As Long, ByVal Ansprechpartnernr As Long, ByVal Prioritaet As Long) As ZuteilungRow
|
|
Dim rowZuteilungRow As ZuteilungRow = CType(Me.NewRow,ZuteilungRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, FirmaBerufNr, SchuelerBerufNr, aktiv, erstellt_am, mutiert_am, Bemerkung, SchuelerNr, Zeitnr, Ansprechpartnernr, Prioritaet}
|
|
rowZuteilungRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowZuteilungRow)
|
|
Return rowZuteilungRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByEintragNr(ByVal EintragNr As Long) As ZuteilungRow
|
|
Return CType(Me.Rows.Find(New Object() {EintragNr}),ZuteilungRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As ZuteilungDataTable = CType(MyBase.Clone,ZuteilungDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New ZuteilungDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnEintragNr = MyBase.Columns("EintragNr")
|
|
Me.columnFirmaBerufNr = MyBase.Columns("FirmaBerufNr")
|
|
Me.columnSchuelerBerufNr = MyBase.Columns("SchuelerBerufNr")
|
|
Me.columnaktiv = MyBase.Columns("aktiv")
|
|
Me.columnerstellt_am = MyBase.Columns("erstellt_am")
|
|
Me.columnmutiert_am = MyBase.Columns("mutiert_am")
|
|
Me.columnBemerkung = MyBase.Columns("Bemerkung")
|
|
Me.columnSchuelerNr = MyBase.Columns("SchuelerNr")
|
|
Me.columnZeitnr = MyBase.Columns("Zeitnr")
|
|
Me.columnAnsprechpartnernr = MyBase.Columns("Ansprechpartnernr")
|
|
Me.columnPrioritaet = MyBase.Columns("Prioritaet")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnEintragNr = New Global.System.Data.DataColumn("EintragNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEintragNr)
|
|
Me.columnFirmaBerufNr = New Global.System.Data.DataColumn("FirmaBerufNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFirmaBerufNr)
|
|
Me.columnSchuelerBerufNr = New Global.System.Data.DataColumn("SchuelerBerufNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchuelerBerufNr)
|
|
Me.columnaktiv = New Global.System.Data.DataColumn("aktiv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnaktiv)
|
|
Me.columnerstellt_am = New Global.System.Data.DataColumn("erstellt_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnerstellt_am)
|
|
Me.columnmutiert_am = New Global.System.Data.DataColumn("mutiert_am", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnmutiert_am)
|
|
Me.columnBemerkung = New Global.System.Data.DataColumn("Bemerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBemerkung)
|
|
Me.columnSchuelerNr = New Global.System.Data.DataColumn("SchuelerNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSchuelerNr)
|
|
Me.columnZeitnr = New Global.System.Data.DataColumn("Zeitnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnZeitnr)
|
|
Me.columnAnsprechpartnernr = New Global.System.Data.DataColumn("Ansprechpartnernr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAnsprechpartnernr)
|
|
Me.columnPrioritaet = New Global.System.Data.DataColumn("Prioritaet", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPrioritaet)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnEintragNr}, true))
|
|
Me.columnEintragNr.AutoIncrement = true
|
|
Me.columnEintragNr.AutoIncrementSeed = -1
|
|
Me.columnEintragNr.AutoIncrementStep = -1
|
|
Me.columnEintragNr.AllowDBNull = false
|
|
Me.columnEintragNr.Unique = true
|
|
Me.columnBemerkung.MaxLength = 1024
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewZuteilungRow() As ZuteilungRow
|
|
Return CType(Me.NewRow,ZuteilungRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New ZuteilungRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(ZuteilungRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.ZuteilungRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent ZuteilungRowChanged(Me, New ZuteilungRowChangeEvent(CType(e.Row,ZuteilungRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.ZuteilungRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent ZuteilungRowChanging(Me, New ZuteilungRowChangeEvent(CType(e.Row,ZuteilungRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.ZuteilungRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent ZuteilungRowDeleted(Me, New ZuteilungRowChangeEvent(CType(e.Row,ZuteilungRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.ZuteilungRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent ZuteilungRowDeleting(Me, New ZuteilungRowChangeEvent(CType(e.Row,ZuteilungRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveZuteilungRow(ByVal row As ZuteilungRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "ZuteilungDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class RichTextDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of RichTextRow)
|
|
|
|
Private columnEintragNr As Global.System.Data.DataColumn
|
|
|
|
Private columnRichtextfile As Global.System.Data.DataColumn
|
|
|
|
Private columnRTFText As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "RichText"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property EintragNrColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEintragNr
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property RichtextfileColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnRichtextfile
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property RTFTextColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnRTFText
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As RichTextRow
|
|
Get
|
|
Return CType(Me.Rows(index),RichTextRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event RichTextRowChanging As RichTextRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event RichTextRowChanged As RichTextRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event RichTextRowDeleting As RichTextRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Event RichTextRowDeleted As RichTextRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Sub AddRichTextRow(ByVal row As RichTextRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overloads Function AddRichTextRow(ByVal EintragNr As Long, ByVal Richtextfile() As Byte, ByVal RTFText As String) As RichTextRow
|
|
Dim rowRichTextRow As RichTextRow = CType(Me.NewRow,RichTextRow)
|
|
Dim columnValuesArray() As Object = New Object() {EintragNr, Richtextfile, RTFText}
|
|
rowRichTextRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowRichTextRow)
|
|
Return rowRichTextRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function FindByEintragNr(ByVal EintragNr As Long) As RichTextRow
|
|
Return CType(Me.Rows.Find(New Object() {EintragNr}),RichTextRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As RichTextDataTable = CType(MyBase.Clone,RichTextDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New RichTextDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnEintragNr = MyBase.Columns("EintragNr")
|
|
Me.columnRichtextfile = MyBase.Columns("Richtextfile")
|
|
Me.columnRTFText = MyBase.Columns("RTFText")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnEintragNr = New Global.System.Data.DataColumn("EintragNr", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEintragNr)
|
|
Me.columnRichtextfile = New Global.System.Data.DataColumn("Richtextfile", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnRichtextfile)
|
|
Me.columnRTFText = New Global.System.Data.DataColumn("RTFText", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnRTFText)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnEintragNr}, true))
|
|
Me.columnEintragNr.AllowDBNull = false
|
|
Me.columnEintragNr.Unique = true
|
|
Me.columnRTFText.MaxLength = 8000
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function NewRichTextRow() As RichTextRow
|
|
Return CType(Me.NewRow,RichTextRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New RichTextRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(RichTextRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.RichTextRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent RichTextRowChanged(Me, New RichTextRowChangeEvent(CType(e.Row,RichTextRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.RichTextRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent RichTextRowChanging(Me, New RichTextRowChangeEvent(CType(e.Row,RichTextRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.RichTextRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent RichTextRowDeleted(Me, New RichTextRowChangeEvent(CType(e.Row,RichTextRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.RichTextRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent RichTextRowDeleting(Me, New RichTextRowChangeEvent(CType(e.Row,RichTextRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub RemoveRichTextRow(ByVal row As RichTextRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As LPDataSet = New LPDataSet()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "RichTextDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class AnsprechpartnerRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableAnsprechpartner As AnsprechpartnerDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableAnsprechpartner = CType(Me.Table,AnsprechpartnerDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property AnsprechpartnerNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableAnsprechpartner.AnsprechpartnerNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.AnsprechpartnerNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.FirmaNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FirmaNr in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.FirmaNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.NameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.NameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Vorname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.VornameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorname in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.VornameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Tel() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.TelColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tel in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.TelColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property EMail() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.EMailColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMail in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.EMailColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Anrede() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableAnsprechpartner.AnredeColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anrede in Tabelle Ansprechpartner ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableAnsprechpartner.AnredeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaRow() As FirmaRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Ansprechpartner_0")),FirmaRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_Ansprechpartner_0"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsFirmaNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.FirmaNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetFirmaNrNull()
|
|
Me(Me.tableAnsprechpartner.FirmaNrColumn) = 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 IsNameNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.NameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetNameNull()
|
|
Me(Me.tableAnsprechpartner.NameColumn) = 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 IsVornameNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.VornameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetVornameNull()
|
|
Me(Me.tableAnsprechpartner.VornameColumn) = 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 IsTelNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.TelColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetTelNull()
|
|
Me(Me.tableAnsprechpartner.TelColumn) = 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 IsEMailNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.EMailColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetEMailNull()
|
|
Me(Me.tableAnsprechpartner.EMailColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableAnsprechpartner.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableAnsprechpartner.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableAnsprechpartner.MutiererColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableAnsprechpartner.AktivColumn) = 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 IsAnredeNull() As Boolean
|
|
Return Me.IsNull(Me.tableAnsprechpartner.AnredeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnredeNull()
|
|
Me(Me.tableAnsprechpartner.AnredeColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class BerufRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableBeruf As BerufDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableBeruf = CType(Me.Table,BerufDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Berufnr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableBeruf.BerufnrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.BerufnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Beschreibung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.BeschreibungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.BeschreibungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Anmerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.AnmerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmerkung in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.AnmerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrjahre() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableBeruf.LehrjahreColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrjahre in Tabelle Beruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableBeruf.LehrjahreColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableBeruf.BezeichnungColumn) = 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 IsBeschreibungNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.BeschreibungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBeschreibungNull()
|
|
Me(Me.tableBeruf.BeschreibungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableBeruf.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableBeruf.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableBeruf.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableBeruf.MutiererColumn) = 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 IsAnmerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.AnmerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnmerkungNull()
|
|
Me(Me.tableBeruf.AnmerkungColumn) = 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 IsLehrjahreNull() As Boolean
|
|
Return Me.IsNull(Me.tableBeruf.LehrjahreColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrjahreNull()
|
|
Me(Me.tableBeruf.LehrjahreColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class FirmaRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableFirma As FirmaDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableFirma = CType(Me.Table,FirmaDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableFirma.FirmaNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.FirmaNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property NameZ1() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.NameZ1Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NameZ1 in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.NameZ1Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property NameZ2() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.NameZ2Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NameZ2 in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.NameZ2Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Strasse() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.StrasseColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Strasse in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.StrasseColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property PLZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.PLZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.PLZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Ort() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.OrtColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.OrtColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Tel() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.TelColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tel in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.TelColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Fax() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.FaxColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fax in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.FaxColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Web() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.WebColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Web in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.WebColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property EMail() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.EMailColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMail in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.EMailColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.BemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.BemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Anrede() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.AnredeColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anrede in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.AnredeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Briefanrede() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.BriefanredeColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Briefanrede in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.BriefanredeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Ausbildungsstandort() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.AusbildungsstandortColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ausbildungsstandort in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.AusbildungsstandortColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Ausbildungsbemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirma.AusbildungsbemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ausbildungsbemerkung in Tabelle Firma ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirma.AusbildungsbemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsNameZ1Null() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.NameZ1Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetNameZ1Null()
|
|
Me(Me.tableFirma.NameZ1Column) = 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 IsNameZ2Null() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.NameZ2Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetNameZ2Null()
|
|
Me(Me.tableFirma.NameZ2Column) = 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 IsStrasseNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.StrasseColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetStrasseNull()
|
|
Me(Me.tableFirma.StrasseColumn) = 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 IsPLZNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.PLZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetPLZNull()
|
|
Me(Me.tableFirma.PLZColumn) = 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 IsOrtNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.OrtColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetOrtNull()
|
|
Me(Me.tableFirma.OrtColumn) = 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 IsTelNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.TelColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetTelNull()
|
|
Me(Me.tableFirma.TelColumn) = 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 IsFaxNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.FaxColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetFaxNull()
|
|
Me(Me.tableFirma.FaxColumn) = 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 IsWebNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.WebColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetWebNull()
|
|
Me(Me.tableFirma.WebColumn) = 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 IsEMailNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.EMailColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetEMailNull()
|
|
Me(Me.tableFirma.EMailColumn) = 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 IsBemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.BemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBemerkungNull()
|
|
Me(Me.tableFirma.BemerkungColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableFirma.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableFirma.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableFirma.MutiererColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableFirma.AktivColumn) = 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 IsAnredeNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.AnredeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnredeNull()
|
|
Me(Me.tableFirma.AnredeColumn) = 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 IsBriefanredeNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.BriefanredeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBriefanredeNull()
|
|
Me(Me.tableFirma.BriefanredeColumn) = 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 IsAusbildungsstandortNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.AusbildungsstandortColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAusbildungsstandortNull()
|
|
Me(Me.tableFirma.AusbildungsstandortColumn) = 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 IsAusbildungsbemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirma.AusbildungsbemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAusbildungsbemerkungNull()
|
|
Me(Me.tableFirma.AusbildungsbemerkungColumn) = 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 GetAnsprechpartnerRows() As AnsprechpartnerRow()
|
|
If (Me.Table.ChildRelations("FK_Ansprechpartner_0") Is Nothing) Then
|
|
Return New AnsprechpartnerRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Ansprechpartner_0")),AnsprechpartnerRow())
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function GetFirmaBerufRows() As FirmaBerufRow()
|
|
If (Me.Table.ChildRelations("Firma_FirmaBeruf") Is Nothing) Then
|
|
Return New FirmaBerufRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Firma_FirmaBeruf")),FirmaBerufRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class FirmaBerufRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableFirmaBeruf As FirmaBerufDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableFirmaBeruf = CType(Me.Table,FirmaBerufDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaBerufNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableFirmaBeruf.FirmaBerufNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.FirmaBerufNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.FirmaNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FirmaNr in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.FirmaNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Berufnr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.BerufnrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Berufnr in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.BerufnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property AnsprechpartnerNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.AnsprechpartnerNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AnsprechpartnerNr in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.AnsprechpartnerNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ZeitNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.ZeitNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZeitNr in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.ZeitNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.BemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.BemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Anzahl() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableFirmaBeruf.AnzahlColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl in Tabelle FirmaBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableFirmaBeruf.AnzahlColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaRow() As FirmaRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("Firma_FirmaBeruf")),FirmaRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("Firma_FirmaBeruf"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsFirmaNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.FirmaNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetFirmaNrNull()
|
|
Me(Me.tableFirmaBeruf.FirmaNrColumn) = 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 IsBerufnrNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.BerufnrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBerufnrNull()
|
|
Me(Me.tableFirmaBeruf.BerufnrColumn) = 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 IsAnsprechpartnerNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.AnsprechpartnerNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnsprechpartnerNrNull()
|
|
Me(Me.tableFirmaBeruf.AnsprechpartnerNrColumn) = 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 IsZeitNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.ZeitNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetZeitNrNull()
|
|
Me(Me.tableFirmaBeruf.ZeitNrColumn) = 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 IsBemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.BemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBemerkungNull()
|
|
Me(Me.tableFirmaBeruf.BemerkungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableFirmaBeruf.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableFirmaBeruf.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableFirmaBeruf.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableFirmaBeruf.MutiererColumn) = 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 IsAnzahlNull() As Boolean
|
|
Return Me.IsNull(Me.tableFirmaBeruf.AnzahlColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnzahlNull()
|
|
Me(Me.tableFirmaBeruf.AnzahlColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class key_tabelleRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tablekey_tabelle As key_tabelleDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tablekey_tabelle = CType(Me.Table,key_tabelleDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property keynr() As Long
|
|
Get
|
|
Return CType(Me(Me.tablekey_tabelle.keynrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.keynrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property beschreibung() As String
|
|
Get
|
|
Return CType(Me(Me.tablekey_tabelle.beschreibungColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.beschreibungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property key_wert() As Long
|
|
Get
|
|
Return CType(Me(Me.tablekey_tabelle.key_wertColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.key_wertColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mandantnr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablekey_tabelle.mandantnrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mandantnr in Tabelle key_tabelle ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.mandantnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablekey_tabelle.aktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aktiv in Tabelle key_tabelle ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.aktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablekey_tabelle.erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte erstellt_am in Tabelle key_tabelle ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablekey_tabelle.mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mutiert_am in Tabelle key_tabelle ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablekey_tabelle.mutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mutierer in Tabelle key_tabelle ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablekey_tabelle.mutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsmandantnrNull() As Boolean
|
|
Return Me.IsNull(Me.tablekey_tabelle.mandantnrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetmandantnrNull()
|
|
Me(Me.tablekey_tabelle.mandantnrColumn) = 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 IsaktivNull() As Boolean
|
|
Return Me.IsNull(Me.tablekey_tabelle.aktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetaktivNull()
|
|
Me(Me.tablekey_tabelle.aktivColumn) = 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 Iserstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tablekey_tabelle.erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Seterstellt_amNull()
|
|
Me(Me.tablekey_tabelle.erstellt_amColumn) = 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 Ismutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tablekey_tabelle.mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Setmutiert_amNull()
|
|
Me(Me.tablekey_tabelle.mutiert_amColumn) = 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 IsmutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tablekey_tabelle.mutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetmutiererNull()
|
|
Me(Me.tablekey_tabelle.mutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class KlasseRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableKlasse As KlasseDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableKlasse = CType(Me.Table,KlasseDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property KlasseNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableKlasse.KlasseNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.KlasseNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchulhausNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.SchulhausNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SchulhausNr in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.SchulhausNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrer_Name() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Lehrer_NameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrer_Name in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Lehrer_NameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrer_Vorname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Lehrer_VornameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrer_Vorname in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Lehrer_VornameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrer_Anrede() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Lehrer_AnredeColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrer_Anrede in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Lehrer_AnredeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrer_Telefon() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Lehrer_TelefonColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrer_Telefon in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Lehrer_TelefonColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Lehrer_EMail() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.Lehrer_EMailColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Lehrer_EMail in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.Lehrer_EMailColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Klassengroesse() As Integer
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableKlasse.KlassengroesseColumn),Integer)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Klassengroesse in Tabelle Klasse ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableKlasse.KlassengroesseColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsSchulhausNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.SchulhausNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSchulhausNrNull()
|
|
Me(Me.tableKlasse.SchulhausNrColumn) = 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 IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableKlasse.BezeichnungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableKlasse.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableKlasse.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableKlasse.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableKlasse.MutiererColumn) = 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 IsLehrer_NameNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Lehrer_NameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrer_NameNull()
|
|
Me(Me.tableKlasse.Lehrer_NameColumn) = 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 IsLehrer_VornameNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Lehrer_VornameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrer_VornameNull()
|
|
Me(Me.tableKlasse.Lehrer_VornameColumn) = 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 IsLehrer_AnredeNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Lehrer_AnredeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrer_AnredeNull()
|
|
Me(Me.tableKlasse.Lehrer_AnredeColumn) = 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 IsLehrer_TelefonNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Lehrer_TelefonColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrer_TelefonNull()
|
|
Me(Me.tableKlasse.Lehrer_TelefonColumn) = 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 IsLehrer_EMailNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.Lehrer_EMailColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetLehrer_EMailNull()
|
|
Me(Me.tableKlasse.Lehrer_EMailColumn) = 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 IsKlassengroesseNull() As Boolean
|
|
Return Me.IsNull(Me.tableKlasse.KlassengroesseColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetKlassengroesseNull()
|
|
Me(Me.tableKlasse.KlassengroesseColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class SchulhausRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableSchulhaus As SchulhausDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableSchulhaus = CType(Me.Table,SchulhausDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchulhausNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableSchulhaus.SchulhausNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.SchulhausNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Strasse() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.StrasseColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Strasse in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.StrasseColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property PLZ() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.PLZColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PLZ in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.PLZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Ort() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.OrtColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ort in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.OrtColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Telefon() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.TelefonColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.TelefonColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchulhaus.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Schulhaus ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchulhaus.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableSchulhaus.BezeichnungColumn) = 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 IsStrasseNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.StrasseColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetStrasseNull()
|
|
Me(Me.tableSchulhaus.StrasseColumn) = 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 IsPLZNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.PLZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetPLZNull()
|
|
Me(Me.tableSchulhaus.PLZColumn) = 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 IsOrtNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.OrtColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetOrtNull()
|
|
Me(Me.tableSchulhaus.OrtColumn) = 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 IsTelefonNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.TelefonColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetTelefonNull()
|
|
Me(Me.tableSchulhaus.TelefonColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableSchulhaus.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableSchulhaus.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableSchulhaus.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchulhaus.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableSchulhaus.MutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class spaltenRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tablespalten As spaltenDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tablespalten = CType(Me.Table,spaltenDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property eintragnr() As Long
|
|
Get
|
|
Return CType(Me(Me.tablespalten.eintragnrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.eintragnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property tabelle() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.tabelleColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tabelle in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.tabelleColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property tabellenspalte() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.tabellenspalteColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tabellenspalte in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.tabellenspalteColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property spalte() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.spalteColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte spalte in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.spalteColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property _Readonly() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tablespalten.ReadonlyColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.ReadonlyColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property alsHacken() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tablespalten.alsHackenColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.alsHackenColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Breite() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.BreiteColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Breite in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.BreiteColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Reihenfolge() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.ReihenfolgeColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Reihenfolge in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.ReihenfolgeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property tiptext() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.tiptextColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tiptext in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.tiptextColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property aktiv() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tablespalten.aktivColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.aktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte erstellt_am in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mutiert_am in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.mutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mutierer in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.mutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mandantnr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.mandantnrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mandantnr in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.mandantnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property NumberFormat() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablespalten.NumberFormatColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NumberFormat in Tabelle spalten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablespalten.NumberFormatColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IstabelleNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.tabelleColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SettabelleNull()
|
|
Me(Me.tablespalten.tabelleColumn) = 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 IstabellenspalteNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.tabellenspalteColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SettabellenspalteNull()
|
|
Me(Me.tablespalten.tabellenspalteColumn) = 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 IsspalteNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.spalteColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetspalteNull()
|
|
Me(Me.tablespalten.spalteColumn) = 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 IsBreiteNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.BreiteColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBreiteNull()
|
|
Me(Me.tablespalten.BreiteColumn) = 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 IsReihenfolgeNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.ReihenfolgeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetReihenfolgeNull()
|
|
Me(Me.tablespalten.ReihenfolgeColumn) = 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 IstiptextNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.tiptextColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SettiptextNull()
|
|
Me(Me.tablespalten.tiptextColumn) = 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 Iserstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Seterstellt_amNull()
|
|
Me(Me.tablespalten.erstellt_amColumn) = 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 Ismutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Setmutiert_amNull()
|
|
Me(Me.tablespalten.mutiert_amColumn) = 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 IsmutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.mutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetmutiererNull()
|
|
Me(Me.tablespalten.mutiererColumn) = 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 IsmandantnrNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.mandantnrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetmandantnrNull()
|
|
Me(Me.tablespalten.mandantnrColumn) = 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 IsNumberFormatNull() As Boolean
|
|
Return Me.IsNull(Me.tablespalten.NumberFormatColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetNumberFormatNull()
|
|
Me(Me.tablespalten.NumberFormatColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class sysdiagramsRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tablesysdiagrams As sysdiagramsDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tablesysdiagrams = CType(Me.Table,sysdiagramsDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property name() As String
|
|
Get
|
|
Return CType(Me(Me.tablesysdiagrams.nameColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tablesysdiagrams.nameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property principal_id() As Long
|
|
Get
|
|
Return CType(Me(Me.tablesysdiagrams.principal_idColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tablesysdiagrams.principal_idColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property diagram_id() As Long
|
|
Get
|
|
Return CType(Me(Me.tablesysdiagrams.diagram_idColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tablesysdiagrams.diagram_idColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property version() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablesysdiagrams.versionColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte version in Tabelle sysdiagrams ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablesysdiagrams.versionColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property definition() As Byte()
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tablesysdiagrams.definitionColumn),Byte())
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte definition in Tabelle sysdiagrams ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tablesysdiagrams.definitionColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsversionNull() As Boolean
|
|
Return Me.IsNull(Me.tablesysdiagrams.versionColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetversionNull()
|
|
Me(Me.tablesysdiagrams.versionColumn) = 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 IsdefinitionNull() As Boolean
|
|
Return Me.IsNull(Me.tablesysdiagrams.definitionColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetdefinitionNull()
|
|
Me(Me.tablesysdiagrams.definitionColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class ZeitenRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableZeiten As ZeitenDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableZeiten = CType(Me.Table,ZeitenDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ZeitNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableZeiten.ZeitNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.ZeitNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Beschreibung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.BeschreibungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.BeschreibungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Reihenfolge() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.ReihenfolgeColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Reihenfolge in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.ReihenfolgeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZeiten.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Zeiten ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZeiten.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableZeiten.BezeichnungColumn) = 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 IsBeschreibungNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.BeschreibungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBeschreibungNull()
|
|
Me(Me.tableZeiten.BeschreibungColumn) = 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 IsReihenfolgeNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.ReihenfolgeColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetReihenfolgeNull()
|
|
Me(Me.tableZeiten.ReihenfolgeColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableZeiten.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableZeiten.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableZeiten.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableZeiten.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableZeiten.MutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class SchuelerRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableSchueler As SchuelerDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableSchueler = CType(Me.Table,SchuelerDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchuelerNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableSchueler.SchuelerNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.SchuelerNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property KlasseNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.KlasseNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KlasseNr in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.KlasseNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Name() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.NameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.NameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Vorname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.VornameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vorname in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.VornameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.BemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.BemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchueler.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Schueler ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchueler.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsKlasseNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.KlasseNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetKlasseNrNull()
|
|
Me(Me.tableSchueler.KlasseNrColumn) = 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 IsNameNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.NameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetNameNull()
|
|
Me(Me.tableSchueler.NameColumn) = 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 IsVornameNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.VornameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetVornameNull()
|
|
Me(Me.tableSchueler.VornameColumn) = 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 IsBemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.BemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBemerkungNull()
|
|
Me(Me.tableSchueler.BemerkungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableSchueler.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableSchueler.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableSchueler.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchueler.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableSchueler.MutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class SchuelerBerufRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableSchuelerBeruf As SchuelerBerufDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableSchuelerBeruf = CType(Me.Table,SchuelerBerufDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchuelerBerufNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableSchuelerBeruf.SchuelerBerufNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.SchuelerBerufNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchuelerNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.SchuelerNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SchuelerNr in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.SchuelerNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property BerufNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.BerufNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BerufNr in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.BerufNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.BemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.BemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Prioritaet() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSchuelerBeruf.PrioritaetColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prioritaet in Tabelle SchuelerBeruf ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSchuelerBeruf.PrioritaetColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsSchuelerNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.SchuelerNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSchuelerNrNull()
|
|
Me(Me.tableSchuelerBeruf.SchuelerNrColumn) = 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 IsBerufNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.BerufNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBerufNrNull()
|
|
Me(Me.tableSchuelerBeruf.BerufNrColumn) = 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 IsBemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.BemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBemerkungNull()
|
|
Me(Me.tableSchuelerBeruf.BemerkungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableSchuelerBeruf.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableSchuelerBeruf.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableSchuelerBeruf.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableSchuelerBeruf.MutiererColumn) = 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 IsPrioritaetNull() As Boolean
|
|
Return Me.IsNull(Me.tableSchuelerBeruf.PrioritaetColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetPrioritaetNull()
|
|
Me(Me.tableSchuelerBeruf.PrioritaetColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class ReportRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableReport As ReportDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableReport = CType(Me.Table,ReportDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ReportNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableReport.ReportNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.ReportNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Filename() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.FilenameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filename in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.FilenameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ReportGruppeNr() As Integer
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.ReportGruppeNrColumn),Integer)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReportGruppeNr in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.ReportGruppeNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SQL_Statement() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReport.SQL_StatementColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_Statement in Tabelle Report ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReport.SQL_StatementColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableReport.BezeichnungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableReport.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableReport.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableReport.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableReport.MutiererColumn) = 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 IsFilenameNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.FilenameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetFilenameNull()
|
|
Me(Me.tableReport.FilenameColumn) = 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 IsReportGruppeNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.ReportGruppeNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetReportGruppeNrNull()
|
|
Me(Me.tableReport.ReportGruppeNrColumn) = 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 IsSQL_StatementNull() As Boolean
|
|
Return Me.IsNull(Me.tableReport.SQL_StatementColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSQL_StatementNull()
|
|
Me(Me.tableReport.SQL_StatementColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class OptionenRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableOptionen As OptionenDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableOptionen = CType(Me.Table,OptionenDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Optionnr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableOptionen.OptionnrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.OptionnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Inhalt() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.InhaltColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Inhalt in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.InhaltColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableOptionen.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle Optionen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableOptionen.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableOptionen.BezeichnungColumn) = 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 IsInhaltNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.InhaltColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetInhaltNull()
|
|
Me(Me.tableOptionen.InhaltColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableOptionen.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableOptionen.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableOptionen.MutiererColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableOptionen.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableOptionen.AktivColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class ReportGruppeRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableReportGruppe As ReportGruppeDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableReportGruppe = CType(Me.Table,ReportGruppeDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ReportGruppeNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableReportGruppe.ReportGruppeNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.ReportGruppeNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bezeichnung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.BezeichnungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bezeichnung in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.BezeichnungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Beschreibung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.BeschreibungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.BeschreibungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableReportGruppe.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle ReportGruppe ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableReportGruppe.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsBezeichnungNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.BezeichnungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBezeichnungNull()
|
|
Me(Me.tableReportGruppe.BezeichnungColumn) = 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 IsBeschreibungNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.BeschreibungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBeschreibungNull()
|
|
Me(Me.tableReportGruppe.BeschreibungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableReportGruppe.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableReportGruppe.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableReportGruppe.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableReportGruppe.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableReportGruppe.MutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class SQLAbfragenRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableSQLAbfragen As SQLAbfragenDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableSQLAbfragen = CType(Me.Table,SQLAbfragenDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SQLNr() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableSQLAbfragen.SQLNrColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.SQLNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SQLScript() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.SQLScriptColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQLScript in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.SQLScriptColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Beschreibung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.BeschreibungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beschreibung in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.BeschreibungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.AktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktiv in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.AktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.Erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erstellt_am in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.Erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.Mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutiert_am in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.Mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Mutierer() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableSQLAbfragen.MutiererColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mutierer in Tabelle SQLAbfragen ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableSQLAbfragen.MutiererColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsSQLScriptNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.SQLScriptColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSQLScriptNull()
|
|
Me(Me.tableSQLAbfragen.SQLScriptColumn) = 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 IsBeschreibungNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.BeschreibungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBeschreibungNull()
|
|
Me(Me.tableSQLAbfragen.BeschreibungColumn) = 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 IsAktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.AktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAktivNull()
|
|
Me(Me.tableSQLAbfragen.AktivColumn) = 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 IsErstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.Erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetErstellt_amNull()
|
|
Me(Me.tableSQLAbfragen.Erstellt_amColumn) = 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 IsMutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.Mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiert_amNull()
|
|
Me(Me.tableSQLAbfragen.Mutiert_amColumn) = 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 IsMutiererNull() As Boolean
|
|
Return Me.IsNull(Me.tableSQLAbfragen.MutiererColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetMutiererNull()
|
|
Me(Me.tableSQLAbfragen.MutiererColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class ZuteilungRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableZuteilung As ZuteilungDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableZuteilung = CType(Me.Table,ZuteilungDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property EintragNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableZuteilung.EintragNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.EintragNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property FirmaBerufNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.FirmaBerufNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FirmaBerufNr in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.FirmaBerufNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchuelerBerufNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.SchuelerBerufNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SchuelerBerufNr in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.SchuelerBerufNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property aktiv() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.aktivColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aktiv in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.aktivColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property erstellt_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.erstellt_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte erstellt_am in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.erstellt_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property mutiert_am() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.mutiert_amColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mutiert_am in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.mutiert_amColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Bemerkung() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.BemerkungColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bemerkung in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.BemerkungColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property SchuelerNr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.SchuelerNrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SchuelerNr in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.SchuelerNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Zeitnr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.ZeitnrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zeitnr in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.ZeitnrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Ansprechpartnernr() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.AnsprechpartnernrColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ansprechpartnernr in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.AnsprechpartnernrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Prioritaet() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableZuteilung.PrioritaetColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prioritaet in Tabelle Zuteilung ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableZuteilung.PrioritaetColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsFirmaBerufNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.FirmaBerufNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetFirmaBerufNrNull()
|
|
Me(Me.tableZuteilung.FirmaBerufNrColumn) = 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 IsSchuelerBerufNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.SchuelerBerufNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSchuelerBerufNrNull()
|
|
Me(Me.tableZuteilung.SchuelerBerufNrColumn) = 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 IsaktivNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.aktivColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetaktivNull()
|
|
Me(Me.tableZuteilung.aktivColumn) = 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 Iserstellt_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.erstellt_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Seterstellt_amNull()
|
|
Me(Me.tableZuteilung.erstellt_amColumn) = 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 Ismutiert_amNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.mutiert_amColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub Setmutiert_amNull()
|
|
Me(Me.tableZuteilung.mutiert_amColumn) = 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 IsBemerkungNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.BemerkungColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetBemerkungNull()
|
|
Me(Me.tableZuteilung.BemerkungColumn) = 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 IsSchuelerNrNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.SchuelerNrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetSchuelerNrNull()
|
|
Me(Me.tableZuteilung.SchuelerNrColumn) = 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 IsZeitnrNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.ZeitnrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetZeitnrNull()
|
|
Me(Me.tableZuteilung.ZeitnrColumn) = 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 IsAnsprechpartnernrNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.AnsprechpartnernrColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetAnsprechpartnernrNull()
|
|
Me(Me.tableZuteilung.AnsprechpartnernrColumn) = 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 IsPrioritaetNull() As Boolean
|
|
Return Me.IsNull(Me.tableZuteilung.PrioritaetColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetPrioritaetNull()
|
|
Me(Me.tableZuteilung.PrioritaetColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class RichTextRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableRichText As RichTextDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableRichText = CType(Me.Table,RichTextDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property EintragNr() As Long
|
|
Get
|
|
Return CType(Me(Me.tableRichText.EintragNrColumn),Long)
|
|
End Get
|
|
Set
|
|
Me(Me.tableRichText.EintragNrColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property Richtextfile() As Byte()
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableRichText.RichtextfileColumn),Byte())
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Richtextfile in Tabelle RichText ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableRichText.RichtextfileColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property RTFText() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableRichText.RTFTextColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RTFText in Tabelle RichText ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableRichText.RTFTextColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function IsRichtextfileNull() As Boolean
|
|
Return Me.IsNull(Me.tableRichText.RichtextfileColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetRichtextfileNull()
|
|
Me(Me.tableRichText.RichtextfileColumn) = 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 IsRTFTextNull() As Boolean
|
|
Return Me.IsNull(Me.tableRichText.RTFTextColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub SetRTFTextNull()
|
|
Me(Me.tableRichText.RTFTextColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class AnsprechpartnerRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As AnsprechpartnerRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As AnsprechpartnerRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As AnsprechpartnerRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class BerufRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As BerufRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As BerufRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As BerufRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class FirmaRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As FirmaRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As FirmaRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As FirmaRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class FirmaBerufRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As FirmaBerufRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As FirmaBerufRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As FirmaBerufRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class key_tabelleRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As key_tabelleRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As key_tabelleRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As key_tabelleRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class KlasseRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As KlasseRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As KlasseRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As KlasseRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class SchulhausRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As SchulhausRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As SchulhausRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As SchulhausRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class spaltenRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As spaltenRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As spaltenRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As spaltenRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class sysdiagramsRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As sysdiagramsRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As sysdiagramsRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As sysdiagramsRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class ZeitenRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As ZeitenRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As ZeitenRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As ZeitenRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class SchuelerRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As SchuelerRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As SchuelerRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As SchuelerRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class SchuelerBerufRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As SchuelerBerufRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As SchuelerBerufRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As SchuelerBerufRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class ReportRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As ReportRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As ReportRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As ReportRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class OptionenRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As OptionenRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As OptionenRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As OptionenRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class ReportGruppeRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As ReportGruppeRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As ReportGruppeRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As ReportGruppeRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class SQLAbfragenRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As SQLAbfragenRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As SQLAbfragenRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As SQLAbfragenRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class ZuteilungRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As ZuteilungRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As ZuteilungRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As ZuteilungRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Class RichTextRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As RichTextRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New(ByVal row As RichTextRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Row() As RichTextRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Class
|
|
|
|
Namespace LPDataSetTableAdapters
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class AnsprechpartnerTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Ansprechpartner"
|
|
tableMapping.ColumnMappings.Add("AnsprechpartnerNr", "AnsprechpartnerNr")
|
|
tableMapping.ColumnMappings.Add("FirmaNr", "FirmaNr")
|
|
tableMapping.ColumnMappings.Add("Name", "Name")
|
|
tableMapping.ColumnMappings.Add("Vorname", "Vorname")
|
|
tableMapping.ColumnMappings.Add("Tel", "Tel")
|
|
tableMapping.ColumnMappings.Add("EMail", "EMail")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Anrede", "Anrede")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Ansprechpartner] WHERE (([AnsprechpartnerNr] = @Original_Ansprechpar"& _
|
|
"tnerNr) AND ((@IsNull_FirmaNr = 1 AND [FirmaNr] IS NULL) OR ([FirmaNr] = @Origin"& _
|
|
"al_FirmaNr)) AND ((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] = @Original_N"& _
|
|
"ame)) AND ((@IsNull_Vorname = 1 AND [Vorname] IS NULL) OR ([Vorname] = @Original"& _
|
|
"_Vorname)) AND ((@IsNull_Tel = 1 AND [Tel] IS NULL) OR ([Tel] = @Original_Tel)) "& _
|
|
"AND ((@IsNull_EMail = 1 AND [EMail] IS NULL) OR ([EMail] = @Original_EMail)) AND"& _
|
|
" ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Origi"& _
|
|
"nal_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mu"& _
|
|
"tiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS "& _
|
|
"NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] "& _
|
|
"IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Anrede = 1 AND [Anrede] I"& _
|
|
"S NULL) OR ([Anrede] = @Original_Anrede)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Tel"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Ansprechpartner] ([AnsprechpartnerNr], [FirmaNr], [Name], [Vorname],"& _
|
|
" [Tel], [EMail], [Erstellt_am], [Mutiert_am], [Mutierer], [Aktiv], [Anrede]) VAL"& _
|
|
"UES (@AnsprechpartnerNr, @FirmaNr, @Name, @Vorname, @Tel, @EMail, @Erstellt_am, "& _
|
|
"@Mutiert_am, @Mutierer, @Aktiv, @Anrede)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Ansprechpartner] SET [AnsprechpartnerNr] = @AnsprechpartnerNr, [FirmaNr] "& _
|
|
"= @FirmaNr, [Name] = @Name, [Vorname] = @Vorname, [Tel] = @Tel, [EMail] = @EMail"& _
|
|
", [Erstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutier"& _
|
|
"er, [Aktiv] = @Aktiv, [Anrede] = @Anrede WHERE (([AnsprechpartnerNr] = @Original"& _
|
|
"_AnsprechpartnerNr) AND ((@IsNull_FirmaNr = 1 AND [FirmaNr] IS NULL) OR ([FirmaN"& _
|
|
"r] = @Original_FirmaNr)) AND ((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] ="& _
|
|
" @Original_Name)) AND ((@IsNull_Vorname = 1 AND [Vorname] IS NULL) OR ([Vorname]"& _
|
|
" = @Original_Vorname)) AND ((@IsNull_Tel = 1 AND [Tel] IS NULL) OR ([Tel] = @Ori"& _
|
|
"ginal_Tel)) AND ((@IsNull_EMail = 1 AND [EMail] IS NULL) OR ([EMail] = @Original"& _
|
|
"_EMail)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_"& _
|
|
"am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS N"& _
|
|
"ULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [M"& _
|
|
"utierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Aktiv = 1 "& _
|
|
"AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Anrede = 1 AN"& _
|
|
"D [Anrede] IS NULL) OR ([Anrede] = @Original_Anrede)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Tel"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT AnsprechpartnerNr, FirmaNr, Name, Vorname, Tel, EMail, Erstellt_am, Mutier"& _
|
|
"t_am, Mutierer, Aktiv, Anrede FROM Ansprechpartner"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT Aktiv, AnsprechpartnerNr, EMail, Erstellt_am, FirmaNr, Mutierer, Mutiert_a"& _
|
|
"m, Name, Tel, Vorname, Anrede FROM Ansprechpartner WHERE (FirmaNr = @firmanr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@firmanr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
Me._commandCollection(2) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT Aktiv, AnsprechpartnerNr, EMail, Erstellt_am, FirmaNr, Mutierer, Mutiert_a"& _
|
|
"m, Name, Tel, Vorname, Name||' '||Vorname as Fullname FROM Ansprechpartner WHERE"& _
|
|
" (FirmaNr = @firmanr) and aktiv=1"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@firmanr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._commandCollection(2).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.AnsprechpartnerDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.AnsprechpartnerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.AnsprechpartnerDataTable = New LPDataSet.AnsprechpartnerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByFirmaNr(ByVal dataTable As LPDataSet.AnsprechpartnerDataTable, ByVal firmanr As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByFirmaNr(ByVal firmanr As Global.System.Nullable(Of Long)) As LPDataSet.AnsprechpartnerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim dataTable As LPDataSet.AnsprechpartnerDataTable = New LPDataSet.AnsprechpartnerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByFirmaNrAktiv(ByVal dataTable As LPDataSet.AnsprechpartnerDataTable, ByVal firmanr As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByFirmaNrAktiv(ByVal firmanr As Global.System.Nullable(Of Long)) As LPDataSet.AnsprechpartnerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim dataTable As LPDataSet.AnsprechpartnerDataTable = New LPDataSet.AnsprechpartnerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.AnsprechpartnerDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Ansprechpartner")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_AnsprechpartnerNr As Long, ByVal Original_FirmaNr As Global.System.Nullable(Of Long), ByVal Original_Name As String, ByVal Original_Vorname As String, ByVal Original_Tel As String, ByVal Original_EMail As String, ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Anrede As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AnsprechpartnerNr,Long)
|
|
If (Original_FirmaNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Name Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Name,String)
|
|
End If
|
|
If (Original_Vorname Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Vorname,String)
|
|
End If
|
|
If (Original_Tel Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Tel,String)
|
|
End If
|
|
If (Original_EMail Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_EMail,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anrede Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Anrede,String)
|
|
End If
|
|
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", "4.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 AnsprechpartnerNr As Long, ByVal FirmaNr As Global.System.Nullable(Of Long), ByVal Name As String, ByVal Vorname As String, ByVal Tel As String, ByVal EMail As String, ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Anrede As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(AnsprechpartnerNr,Long)
|
|
If (FirmaNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
|
|
End If
|
|
If (Vorname Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Vorname,String)
|
|
End If
|
|
If (Tel Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Tel,String)
|
|
End If
|
|
If (EMail Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(EMail,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anrede Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(Anrede,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", "4.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 AnsprechpartnerNr As Long, _
|
|
ByVal FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Name As String, _
|
|
ByVal Vorname As String, _
|
|
ByVal Tel As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Anrede As String, _
|
|
ByVal Original_AnsprechpartnerNr As Long, _
|
|
ByVal Original_FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Name As String, _
|
|
ByVal Original_Vorname As String, _
|
|
ByVal Original_Tel As String, _
|
|
ByVal Original_EMail As String, _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Anrede As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AnsprechpartnerNr,Long)
|
|
If (FirmaNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
|
|
End If
|
|
If (Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Vorname,String)
|
|
End If
|
|
If (Tel Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Tel,String)
|
|
End If
|
|
If (EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMail,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Anrede,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_AnsprechpartnerNr,Long)
|
|
If (Original_FirmaNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Name,String)
|
|
End If
|
|
If (Original_Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Vorname,String)
|
|
End If
|
|
If (Original_Tel Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Tel,String)
|
|
End If
|
|
If (Original_EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_EMail,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Anrede,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Name As String, _
|
|
ByVal Vorname As String, _
|
|
ByVal Tel As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Anrede As String, _
|
|
ByVal Original_AnsprechpartnerNr As Long, _
|
|
ByVal Original_FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Name As String, _
|
|
ByVal Original_Vorname As String, _
|
|
ByVal Original_Tel As String, _
|
|
ByVal Original_EMail As String, _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Anrede As String) As Integer
|
|
Return Me.Update(Original_AnsprechpartnerNr, FirmaNr, Name, Vorname, Tel, EMail, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Anrede, Original_AnsprechpartnerNr, Original_FirmaNr, Original_Name, Original_Vorname, Original_Tel, Original_EMail, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Aktiv, Original_Anrede)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class BerufTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Beruf"
|
|
tableMapping.ColumnMappings.Add("Berufnr", "Berufnr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Beschreibung", "Beschreibung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Anmerkung", "Anmerkung")
|
|
tableMapping.ColumnMappings.Add("Lehrjahre", "Lehrjahre")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Beruf] WHERE (([Berufnr] = @Original_Berufnr) AND ((@IsNull_Bezeichn"& _
|
|
"ung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung)) A"& _
|
|
"ND ((@IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) OR ([Beschreibung] = @"& _
|
|
"Original_Beschreibung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv]"& _
|
|
" = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR"& _
|
|
" ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Muti"& _
|
|
"ert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutiere"& _
|
|
"r = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNul"& _
|
|
"l_Anmerkung = 1 AND [Anmerkung] IS NULL) OR ([Anmerkung] = @Original_Anmerkung))"& _
|
|
" AND ((@IsNull_Lehrjahre = 1 AND [Lehrjahre] IS NULL) OR ([Lehrjahre] = @Origina"& _
|
|
"l_Lehrjahre)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anmerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anmerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrjahre"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrjahre"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Beruf] ([Berufnr], [Bezeichnung], [Beschreibung], [Aktiv], [Erstellt"& _
|
|
"_am], [Mutiert_am], [Mutierer], [Anmerkung], [Lehrjahre]) VALUES (@Berufnr, @Bez"& _
|
|
"eichnung, @Beschreibung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer, @Anmerkun"& _
|
|
"g, @Lehrjahre)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anmerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrjahre"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Beruf] SET [Berufnr] = @Berufnr, [Bezeichnung] = @Bezeichnung, [Beschreib"& _
|
|
"ung] = @Beschreibung, [Aktiv] = @Aktiv, [Erstellt_am] = @Erstellt_am, [Mutiert_a"& _
|
|
"m] = @Mutiert_am, [Mutierer] = @Mutierer, [Anmerkung] = @Anmerkung, [Lehrjahre] "& _
|
|
"= @Lehrjahre WHERE (([Berufnr] = @Original_Berufnr) AND ((@IsNull_Bezeichnung = "& _
|
|
"1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung)) AND ((@"& _
|
|
"IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) OR ([Beschreibung] = @Origin"& _
|
|
"al_Beschreibung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Or"& _
|
|
"iginal_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Ers"& _
|
|
"tellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am"& _
|
|
"] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 "& _
|
|
"AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Anme"& _
|
|
"rkung = 1 AND [Anmerkung] IS NULL) OR ([Anmerkung] = @Original_Anmerkung)) AND ("& _
|
|
"(@IsNull_Lehrjahre = 1 AND [Lehrjahre] IS NULL) OR ([Lehrjahre] = @Original_Lehr"& _
|
|
"jahre)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anmerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrjahre"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anmerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anmerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anmerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrjahre"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrjahre"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrjahre"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT Berufnr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutier"& _
|
|
"er, Anmerkung, Lehrjahre FROM Beruf"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT Berufnr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutier"& _
|
|
"er, Anmerkung, Lehrjahre FROM Beruf WHERE (Aktiv = 1) AND (Berufnr = @berufnr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "Berufnr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
Me._commandCollection(2) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT Berufnr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am,"& _
|
|
" Mutierer, Anmerkung, Lehrjahre"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Beruf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (Aktiv = 1)"& _
|
|
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Bezeichnung"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.BerufDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.BerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.BerufDataTable = New LPDataSet.BerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByBerufNr(ByVal dataTable As LPDataSet.BerufDataTable, ByVal berufnr As Long) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(berufnr,Long)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByBerufNr(ByVal berufnr As Long) As LPDataSet.BerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(berufnr,Long)
|
|
Dim dataTable As LPDataSet.BerufDataTable = New LPDataSet.BerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByBezeichnung(ByVal dataTable As LPDataSet.BerufDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByBezeichnung() As LPDataSet.BerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
Dim dataTable As LPDataSet.BerufDataTable = New LPDataSet.BerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.BerufDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Beruf")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_Berufnr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Anmerkung As String, ByVal Original_Lehrjahre As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Berufnr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anmerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Anmerkung,String)
|
|
End If
|
|
If (Original_Lehrjahre Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Lehrjahre,String)
|
|
End If
|
|
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", "4.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 Berufnr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Anmerkung As String, ByVal Lehrjahre As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(Berufnr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anmerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Anmerkung,String)
|
|
End If
|
|
If (Lehrjahre Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Lehrjahre,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", "4.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 Berufnr As Long, _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Beschreibung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Anmerkung As String, _
|
|
ByVal Lehrjahre As String, _
|
|
ByVal Original_Berufnr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Beschreibung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Anmerkung As String, _
|
|
ByVal Original_Lehrjahre As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Berufnr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anmerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Anmerkung,String)
|
|
End If
|
|
If (Lehrjahre Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Lehrjahre,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Berufnr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anmerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Anmerkung,String)
|
|
End If
|
|
If (Original_Lehrjahre Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Lehrjahre,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, _
|
|
ByVal Beschreibung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Anmerkung As String, _
|
|
ByVal Lehrjahre As String, _
|
|
ByVal Original_Berufnr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Beschreibung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Anmerkung As String, _
|
|
ByVal Original_Lehrjahre As String) As Integer
|
|
Return Me.Update(Original_Berufnr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Anmerkung, Lehrjahre, Original_Berufnr, Original_Bezeichnung, Original_Beschreibung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Anmerkung, Original_Lehrjahre)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class FirmaTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Firma"
|
|
tableMapping.ColumnMappings.Add("FirmaNr", "FirmaNr")
|
|
tableMapping.ColumnMappings.Add("NameZ1", "NameZ1")
|
|
tableMapping.ColumnMappings.Add("NameZ2", "NameZ2")
|
|
tableMapping.ColumnMappings.Add("Strasse", "Strasse")
|
|
tableMapping.ColumnMappings.Add("PLZ", "PLZ")
|
|
tableMapping.ColumnMappings.Add("Ort", "Ort")
|
|
tableMapping.ColumnMappings.Add("Tel", "Tel")
|
|
tableMapping.ColumnMappings.Add("Fax", "Fax")
|
|
tableMapping.ColumnMappings.Add("Web", "Web")
|
|
tableMapping.ColumnMappings.Add("EMail", "EMail")
|
|
tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Anrede", "Anrede")
|
|
tableMapping.ColumnMappings.Add("Briefanrede", "Briefanrede")
|
|
tableMapping.ColumnMappings.Add("Ausbildungsstandort", "Ausbildungsstandort")
|
|
tableMapping.ColumnMappings.Add("Ausbildungsbemerkung", "Ausbildungsbemerkung")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Firma] WHERE (([FirmaNr] = @Original_FirmaNr) AND ((@IsNull_NameZ1 ="& _
|
|
" 1 AND [NameZ1] IS NULL) OR ([NameZ1] = @Original_NameZ1)) AND ((@IsNull_NameZ2 "& _
|
|
"= 1 AND [NameZ2] IS NULL) OR ([NameZ2] = @Original_NameZ2)) AND ((@IsNull_Strass"& _
|
|
"e = 1 AND [Strasse] IS NULL) OR ([Strasse] = @Original_Strasse)) AND ((@IsNull_P"& _
|
|
"LZ = 1 AND [PLZ] IS NULL) OR ([PLZ] = @Original_PLZ)) AND ((@IsNull_Ort = 1 AND "& _
|
|
"[Ort] IS NULL) OR ([Ort] = @Original_Ort)) AND ((@IsNull_Tel = 1 AND [Tel] IS NU"& _
|
|
"LL) OR ([Tel] = @Original_Tel)) AND ((@IsNull_Fax = 1 AND [Fax] IS NULL) OR ([Fa"& _
|
|
"x] = @Original_Fax)) AND ((@IsNull_Web = 1 AND [Web] IS NULL) OR ([Web] = @Origi"& _
|
|
"nal_Web)) AND ((@IsNull_EMail = 1 AND [EMail] IS NULL) OR ([EMail] = @Original_E"& _
|
|
"Mail)) AND ((@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR ([Bemerkung] = @O"& _
|
|
"riginal_Bemerkung)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR "& _
|
|
"([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutie"& _
|
|
"rt_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer"& _
|
|
" = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull"& _
|
|
"_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_An"& _
|
|
"rede = 1 AND [Anrede] IS NULL) OR ([Anrede] = @Original_Anrede)) AND ((@IsNull_B"& _
|
|
"riefanrede = 1 AND [Briefanrede] IS NULL) OR ([Briefanrede] = @Original_Briefanr"& _
|
|
"ede)) AND ((@IsNull_Ausbildungsbemerkung = 1 AND [Ausbildungsbemerkung] IS NULL)"& _
|
|
" OR ([Ausbildungsbemerkung] = @Original_Ausbildungsbemerkung)) AND ((@IsNull_Aus"& _
|
|
"bildungsstandort = 1 AND [Ausbildungsstandort] IS NULL) OR ([Ausbildungsstandort"& _
|
|
"] = @Original_Ausbildungsstandort)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NameZ1"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NameZ1"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NameZ1"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ1"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NameZ2"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NameZ2"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NameZ2"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ2"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Strasse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_PLZ"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Tel"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Fax"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Fax"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Fax"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Fax"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Web"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Web"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Web"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Web"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Briefanrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Briefanrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Firma] ([FirmaNr], [NameZ1], [NameZ2], [Strasse], [PLZ], [Ort], [Tel"& _
|
|
"], [Fax], [Web], [EMail], [Bemerkung], [Erstellt_am], [Mutiert_am], [Mutierer], "& _
|
|
"[Aktiv], [Anrede], [Briefanrede], [Ausbildungsbemerkung], [Ausbildungsstandort])"& _
|
|
" VALUES (@FirmaNr, @NameZ1, @NameZ2, @Strasse, @PLZ, @Ort, @Tel, @Fax, @Web, @EM"& _
|
|
"ail, @Bemerkung, @Erstellt_am, @Mutiert_am, @Mutierer, @Aktiv, @Anrede, @Briefan"& _
|
|
"rede, @Ausbildungsbemerkung, @Ausbildungsstandort)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NameZ1"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ1"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NameZ2"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ2"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@PLZ"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "PLZ"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Fax"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Fax"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Web"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Web"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Briefanrede"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Firma] SET [FirmaNr] = @FirmaNr, [NameZ1] = @NameZ1, [NameZ2] = @NameZ2, "& _
|
|
"[Strasse] = @Strasse, [PLZ] = @PLZ, [Ort] = @Ort, [Tel] = @Tel, [Fax] = @Fax, [W"& _
|
|
"eb] = @Web, [EMail] = @EMail, [Bemerkung] = @Bemerkung, [Erstellt_am] = @Erstell"& _
|
|
"t_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer, [Aktiv] = @Aktiv, [Anr"& _
|
|
"ede] = @Anrede, [Briefanrede] = @Briefanrede, [Ausbildungsbemerkung] = @Ausbildu"& _
|
|
"ngsbemerkung, [Ausbildungsstandort] = @Ausbildungsstandort WHERE (([FirmaNr] = @"& _
|
|
"Original_FirmaNr) AND ((@IsNull_NameZ1 = 1 AND [NameZ1] IS NULL) OR ([NameZ1] = "& _
|
|
"@Original_NameZ1)) AND ((@IsNull_NameZ2 = 1 AND [NameZ2] IS NULL) OR ([NameZ2] ="& _
|
|
" @Original_NameZ2)) AND ((@IsNull_Strasse = 1 AND [Strasse] IS NULL) OR ([Strass"& _
|
|
"e] = @Original_Strasse)) AND ((@IsNull_PLZ = 1 AND [PLZ] IS NULL) OR ([PLZ] = @O"& _
|
|
"riginal_PLZ)) AND ((@IsNull_Ort = 1 AND [Ort] IS NULL) OR ([Ort] = @Original_Ort"& _
|
|
")) AND ((@IsNull_Tel = 1 AND [Tel] IS NULL) OR ([Tel] = @Original_Tel)) AND ((@I"& _
|
|
"sNull_Fax = 1 AND [Fax] IS NULL) OR ([Fax] = @Original_Fax)) AND ((@IsNull_Web ="& _
|
|
" 1 AND [Web] IS NULL) OR ([Web] = @Original_Web)) AND ((@IsNull_EMail = 1 AND [E"& _
|
|
"Mail] IS NULL) OR ([EMail] = @Original_EMail)) AND ((@IsNull_Bemerkung = 1 AND ["& _
|
|
"Bemerkung] IS NULL) OR ([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_Erstel"& _
|
|
"lt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am))"& _
|
|
" AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Orig"& _
|
|
"inal_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutier"& _
|
|
"er] = @Original_Mutierer)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Akt"& _
|
|
"iv] = @Original_Aktiv)) AND ((@IsNull_Anrede = 1 AND [Anrede] IS NULL) OR ([Anre"& _
|
|
"de] = @Original_Anrede)) AND ((@IsNull_Briefanrede = 1 AND [Briefanrede] IS NULL"& _
|
|
") OR ([Briefanrede] = @Original_Briefanrede)) AND ((@IsNull_Ausbildungsbemerkung"& _
|
|
" = 1 AND [Ausbildungsbemerkung] IS NULL) OR ([Ausbildungsbemerkung] = @Original_"& _
|
|
"Ausbildungsbemerkung)) AND ((@IsNull_Ausbildungsstandort = 1 AND [Ausbildungssta"& _
|
|
"ndort] IS NULL) OR ([Ausbildungsstandort] = @Original_Ausbildungsstandort)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NameZ1"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ1"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NameZ2"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ2"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@PLZ"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "PLZ"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Fax"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Fax"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Web"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Web"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Briefanrede"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NameZ1"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NameZ1"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NameZ1"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ1"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NameZ2"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NameZ2"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NameZ2"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NameZ2"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Strasse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_PLZ"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Tel"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Tel"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Tel"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Fax"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Fax"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Fax"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Fax"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Web"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Web"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Web"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Web"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Briefanrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Briefanrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Briefanrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ausbildungsbemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsbemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ausbildungsstandort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ausbildungsstandort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT FirmaNr, NameZ1, NameZ2, Strasse, PLZ, Ort, Tel, Fax, Web, EMail, Bemerkun"& _
|
|
"g, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Anrede, Briefanrede, Ausbildungsbem"& _
|
|
"erkung, Ausbildungsstandort FROM Firma"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT Firma.FirmaNr, Firma.NameZ1, Firma.NameZ2, Firma.Strasse, Firma.PLZ"& _
|
|
", Firma.Ort, Firma.Tel, Firma.Fax, Firma.Web, Firma.EMail, Firma.Bemerkung, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" Firma.Erstellt_am, Firma.Mutiert_am, Firma.Mutierer, Beru"& _
|
|
"f.Bezeichnung AS Beruf, FirmaBeruf.Anzahl"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Firma INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FirmaBeruf ON Firma.FirmaNr = FirmaBeruf.FirmaNr INNER JOI"& _
|
|
"N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Beruf ON FirmaBeruf.Berufnr = Beruf.Berufnr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (FirmaBeruf.Aktiv = 1)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT Bemerkung, EMail, Erstellt_am, Fax, FirmaNr, Mutierer, Mutiert_am, NameZ1,"& _
|
|
" NameZ2, Ort, PLZ, Strasse, Tel, Web, Aktiv, Anrede, Briefanrede, Ausbildungsbem"& _
|
|
"erkung, Ausbildungsstandort FROM Firma ORDER BY NameZ1, NameZ2, Ort"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.FirmaDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.FirmaDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.FirmaDataTable = New LPDataSet.FirmaDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByFirmaBeruf(ByVal dataTable As LPDataSet.FirmaDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByFirmaBeruf() As LPDataSet.FirmaDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Dim dataTable As LPDataSet.FirmaDataTable = New LPDataSet.FirmaDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByName(ByVal dataTable As LPDataSet.FirmaDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByName() As LPDataSet.FirmaDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
Dim dataTable As LPDataSet.FirmaDataTable = New LPDataSet.FirmaDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.FirmaDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Firma")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_FirmaNr As Long, _
|
|
ByVal Original_NameZ1 As String, _
|
|
ByVal Original_NameZ2 As String, _
|
|
ByVal Original_Strasse As String, _
|
|
ByVal Original_PLZ As String, _
|
|
ByVal Original_Ort As String, _
|
|
ByVal Original_Tel As String, _
|
|
ByVal Original_Fax As String, _
|
|
ByVal Original_Web As String, _
|
|
ByVal Original_EMail As String, _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Anrede As String, _
|
|
ByVal Original_Briefanrede As String, _
|
|
ByVal Original_Ausbildungsbemerkung As String, _
|
|
ByVal Original_Ausbildungsstandort As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FirmaNr,Long)
|
|
If (Original_NameZ1 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NameZ1,String)
|
|
End If
|
|
If (Original_NameZ2 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NameZ2,String)
|
|
End If
|
|
If (Original_Strasse Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Strasse,String)
|
|
End If
|
|
If (Original_PLZ Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_PLZ,String)
|
|
End If
|
|
If (Original_Ort Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Ort,String)
|
|
End If
|
|
If (Original_Tel Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Tel,String)
|
|
End If
|
|
If (Original_Fax Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Fax,String)
|
|
End If
|
|
If (Original_Web Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Web,String)
|
|
End If
|
|
If (Original_EMail Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_EMail,String)
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anrede Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Anrede,String)
|
|
End If
|
|
If (Original_Briefanrede Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_Briefanrede,String)
|
|
End If
|
|
If (Original_Ausbildungsbemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_Ausbildungsbemerkung,String)
|
|
End If
|
|
If (Original_Ausbildungsstandort Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_Ausbildungsstandort,String)
|
|
End If
|
|
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", "4.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 FirmaNr As Long, _
|
|
ByVal NameZ1 As String, _
|
|
ByVal NameZ2 As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As String, _
|
|
ByVal Ort As String, _
|
|
ByVal Tel As String, _
|
|
ByVal Fax As String, _
|
|
ByVal Web As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Anrede As String, _
|
|
ByVal Briefanrede As String, _
|
|
ByVal Ausbildungsbemerkung As String, _
|
|
ByVal Ausbildungsstandort As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirmaNr,Long)
|
|
If (NameZ1 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NameZ1,String)
|
|
End If
|
|
If (NameZ2 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(NameZ2,String)
|
|
End If
|
|
If (Strasse Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Strasse,String)
|
|
End If
|
|
If (PLZ Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(PLZ,String)
|
|
End If
|
|
If (Ort Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Ort,String)
|
|
End If
|
|
If (Tel Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Tel,String)
|
|
End If
|
|
If (Fax Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Fax,String)
|
|
End If
|
|
If (Web Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Web,String)
|
|
End If
|
|
If (EMail Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMail,String)
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anrede Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(15).Value = CType(Anrede,String)
|
|
End If
|
|
If (Briefanrede Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(16).Value = CType(Briefanrede,String)
|
|
End If
|
|
If (Ausbildungsbemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(17).Value = CType(Ausbildungsbemerkung,String)
|
|
End If
|
|
If (Ausbildungsstandort Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(18).Value = CType(Ausbildungsstandort,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", "4.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 FirmaNr As Long, _
|
|
ByVal NameZ1 As String, _
|
|
ByVal NameZ2 As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As String, _
|
|
ByVal Ort As String, _
|
|
ByVal Tel As String, _
|
|
ByVal Fax As String, _
|
|
ByVal Web As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Anrede As String, _
|
|
ByVal Briefanrede As String, _
|
|
ByVal Ausbildungsbemerkung As String, _
|
|
ByVal Ausbildungsstandort As String, _
|
|
ByVal Original_FirmaNr As Long, _
|
|
ByVal Original_NameZ1 As String, _
|
|
ByVal Original_NameZ2 As String, _
|
|
ByVal Original_Strasse As String, _
|
|
ByVal Original_PLZ As String, _
|
|
ByVal Original_Ort As String, _
|
|
ByVal Original_Tel As String, _
|
|
ByVal Original_Fax As String, _
|
|
ByVal Original_Web As String, _
|
|
ByVal Original_EMail As String, _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Anrede As String, _
|
|
ByVal Original_Briefanrede As String, _
|
|
ByVal Original_Ausbildungsbemerkung As String, _
|
|
ByVal Original_Ausbildungsstandort As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirmaNr,Long)
|
|
If (NameZ1 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NameZ1,String)
|
|
End If
|
|
If (NameZ2 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(NameZ2,String)
|
|
End If
|
|
If (Strasse Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Strasse,String)
|
|
End If
|
|
If (PLZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(PLZ,String)
|
|
End If
|
|
If (Ort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Ort,String)
|
|
End If
|
|
If (Tel Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Tel,String)
|
|
End If
|
|
If (Fax Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Fax,String)
|
|
End If
|
|
If (Web Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Web,String)
|
|
End If
|
|
If (EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMail,String)
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Anrede,String)
|
|
End If
|
|
If (Briefanrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Briefanrede,String)
|
|
End If
|
|
If (Ausbildungsbemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Ausbildungsbemerkung,String)
|
|
End If
|
|
If (Ausbildungsstandort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Ausbildungsstandort,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_FirmaNr,Long)
|
|
If (Original_NameZ1 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_NameZ1,String)
|
|
End If
|
|
If (Original_NameZ2 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_NameZ2,String)
|
|
End If
|
|
If (Original_Strasse Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Strasse,String)
|
|
End If
|
|
If (Original_PLZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_PLZ,String)
|
|
End If
|
|
If (Original_Ort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Ort,String)
|
|
End If
|
|
If (Original_Tel Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Tel,String)
|
|
End If
|
|
If (Original_Fax Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Fax,String)
|
|
End If
|
|
If (Original_Web Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Web,String)
|
|
End If
|
|
If (Original_EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_EMail,String)
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_Anrede,String)
|
|
End If
|
|
If (Original_Briefanrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Briefanrede,String)
|
|
End If
|
|
If (Original_Ausbildungsbemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_Ausbildungsbemerkung,String)
|
|
End If
|
|
If (Original_Ausbildungsstandort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_Ausbildungsstandort,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 NameZ1 As String, _
|
|
ByVal NameZ2 As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As String, _
|
|
ByVal Ort As String, _
|
|
ByVal Tel As String, _
|
|
ByVal Fax As String, _
|
|
ByVal Web As String, _
|
|
ByVal EMail As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Anrede As String, _
|
|
ByVal Briefanrede As String, _
|
|
ByVal Ausbildungsbemerkung As String, _
|
|
ByVal Ausbildungsstandort As String, _
|
|
ByVal Original_FirmaNr As Long, _
|
|
ByVal Original_NameZ1 As String, _
|
|
ByVal Original_NameZ2 As String, _
|
|
ByVal Original_Strasse As String, _
|
|
ByVal Original_PLZ As String, _
|
|
ByVal Original_Ort As String, _
|
|
ByVal Original_Tel As String, _
|
|
ByVal Original_Fax As String, _
|
|
ByVal Original_Web As String, _
|
|
ByVal Original_EMail As String, _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Anrede As String, _
|
|
ByVal Original_Briefanrede As String, _
|
|
ByVal Original_Ausbildungsbemerkung As String, _
|
|
ByVal Original_Ausbildungsstandort As String) As Integer
|
|
Return Me.Update(Original_FirmaNr, NameZ1, NameZ2, Strasse, PLZ, Ort, Tel, Fax, Web, EMail, Bemerkung, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Anrede, Briefanrede, Ausbildungsbemerkung, Ausbildungsstandort, Original_FirmaNr, Original_NameZ1, Original_NameZ2, Original_Strasse, Original_PLZ, Original_Ort, Original_Tel, Original_Fax, Original_Web, Original_EMail, Original_Bemerkung, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Aktiv, Original_Anrede, Original_Briefanrede, Original_Ausbildungsbemerkung, Original_Ausbildungsstandort)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class FirmaBerufTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "FirmaBeruf"
|
|
tableMapping.ColumnMappings.Add("FirmaBerufNr", "FirmaBerufNr")
|
|
tableMapping.ColumnMappings.Add("FirmaNr", "FirmaNr")
|
|
tableMapping.ColumnMappings.Add("Berufnr", "Berufnr")
|
|
tableMapping.ColumnMappings.Add("AnsprechpartnerNr", "AnsprechpartnerNr")
|
|
tableMapping.ColumnMappings.Add("ZeitNr", "ZeitNr")
|
|
tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Anzahl", "Anzahl")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [FirmaBeruf] WHERE (([FirmaBerufNr] = @Original_FirmaBerufNr) AND ((@"& _
|
|
"IsNull_FirmaNr = 1 AND [FirmaNr] IS NULL) OR ([FirmaNr] = @Original_FirmaNr)) AN"& _
|
|
"D ((@IsNull_Berufnr = 1 AND [Berufnr] IS NULL) OR ([Berufnr] = @Original_Berufnr"& _
|
|
")) AND ((@IsNull_AnsprechpartnerNr = 1 AND [AnsprechpartnerNr] IS NULL) OR ([Ans"& _
|
|
"prechpartnerNr] = @Original_AnsprechpartnerNr)) AND ((@IsNull_ZeitNr = 1 AND [Ze"& _
|
|
"itNr] IS NULL) OR ([ZeitNr] = @Original_ZeitNr)) AND ((@IsNull_Bemerkung = 1 AND"& _
|
|
" [Bemerkung] IS NULL) OR ([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_Akti"& _
|
|
"v = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstell"& _
|
|
"t_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) "& _
|
|
"AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Origi"& _
|
|
"nal_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutiere"& _
|
|
"r] = @Original_Mutierer)) AND ((@IsNull_Anzahl = 1 AND [Anzahl] IS NULL) OR ([An"& _
|
|
"zahl] = @Original_Anzahl)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anzahl"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Anzahl"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [FirmaBeruf] ([FirmaBerufNr], [FirmaNr], [Berufnr], [AnsprechpartnerN"& _
|
|
"r], [ZeitNr], [Bemerkung], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer], [An"& _
|
|
"zahl]) VALUES (@FirmaBerufNr, @FirmaNr, @Berufnr, @AnsprechpartnerNr, @ZeitNr, @"& _
|
|
"Bemerkung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer, @Anzahl)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Anzahl"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [FirmaBeruf] SET [FirmaBerufNr] = @FirmaBerufNr, [FirmaNr] = @FirmaNr, [Be"& _
|
|
"rufnr] = @Berufnr, [AnsprechpartnerNr] = @AnsprechpartnerNr, [ZeitNr] = @ZeitNr,"& _
|
|
" [Bemerkung] = @Bemerkung, [Aktiv] = @Aktiv, [Erstellt_am] = @Erstellt_am, [Muti"& _
|
|
"ert_am] = @Mutiert_am, [Mutierer] = @Mutierer, [Anzahl] = @Anzahl WHERE (([Firma"& _
|
|
"BerufNr] = @Original_FirmaBerufNr) AND ((@IsNull_FirmaNr = 1 AND [FirmaNr] IS NU"& _
|
|
"LL) OR ([FirmaNr] = @Original_FirmaNr)) AND ((@IsNull_Berufnr = 1 AND [Berufnr] "& _
|
|
"IS NULL) OR ([Berufnr] = @Original_Berufnr)) AND ((@IsNull_AnsprechpartnerNr = 1"& _
|
|
" AND [AnsprechpartnerNr] IS NULL) OR ([AnsprechpartnerNr] = @Original_Ansprechpa"& _
|
|
"rtnerNr)) AND ((@IsNull_ZeitNr = 1 AND [ZeitNr] IS NULL) OR ([ZeitNr] = @Origina"& _
|
|
"l_ZeitNr)) AND ((@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR ([Bemerkung] "& _
|
|
"= @Original_Bemerkung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv]"& _
|
|
" = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR"& _
|
|
" ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Muti"& _
|
|
"ert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutiere"& _
|
|
"r = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNul"& _
|
|
"l_Anzahl = 1 AND [Anzahl] IS NULL) OR ([Anzahl] = @Original_Anzahl)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Anzahl"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Berufnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Berufnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_AnsprechpartnerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "AnsprechpartnerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Anzahl"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Anzahl"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Anzahl"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT FirmaBerufNr, FirmaNr, Berufnr, AnsprechpartnerNr, ZeitNr, Bemerkung, Akti"& _
|
|
"v, Erstellt_am, Mutiert_am, Mutierer, Anzahl FROM FirmaBeruf"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT FirmaBeruf.FirmaBerufNr, FirmaBeruf.FirmaNr, FirmaBeruf.Berufnr, Fi"& _
|
|
"rmaBeruf.AnsprechpartnerNr, FirmaBeruf.ZeitNr, FirmaBeruf.Bemerkung, FirmaBeruf."& _
|
|
"Aktiv, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FirmaBeruf.Erstellt_am, FirmaBeruf.Mutiert_am,"& _
|
|
" FirmaBeruf.Mutierer, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Firma.NameZ1 || Firma.NameZ2 || ', ' || Firma.PLZ + ' ' "& _
|
|
"+ Firma.Ort AS Firmenname, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Beruf.Bezeichnung AS Beruf"& _
|
|
", FirmaBeruf.Anzahl, Zeiten.Bezeichnung AS Zeit, Ansprechpartner.Name || ' ' || "& _
|
|
"Ansprechpartner.vorname as Ansprechpartner"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM FirmaBeruf INNER JOI"& _
|
|
"N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Beruf ON FirmaBeruf.Berufnr = Beruf.Berufnr INNER JO"& _
|
|
"IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Firma ON FirmaBeruf.FirmaNr = Firma.FirmaNr INNER J"& _
|
|
"OIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Zeiten ON FirmaBeruf.ZeitNr = Zeiten.ZeitNr INNER "& _
|
|
"JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Ansprechpartner ON FirmaBeruf.AnsprechpartnerNr ="& _
|
|
" Ansprechpartner.AnsprechpartnerNr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FirmaBeruf.FirmaNr = @firmanr)"& _
|
|
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Beruf, Zeiten.Reihenfolge"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@firmanr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "FirmaNr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.FirmaBerufDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.FirmaBerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.FirmaBerufDataTable = New LPDataSet.FirmaBerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByFirmaNr(ByVal dataTable As LPDataSet.FirmaBerufDataTable, ByVal firmanr As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByFirmaNr(ByVal firmanr As Global.System.Nullable(Of Long)) As LPDataSet.FirmaBerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (firmanr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(firmanr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim dataTable As LPDataSet.FirmaBerufDataTable = New LPDataSet.FirmaBerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.FirmaBerufDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "FirmaBeruf")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_FirmaBerufNr As Long, ByVal Original_FirmaNr As Global.System.Nullable(Of Long), ByVal Original_Berufnr As Global.System.Nullable(Of Long), ByVal Original_AnsprechpartnerNr As Global.System.Nullable(Of Long), ByVal Original_ZeitNr As Global.System.Nullable(Of Long), ByVal Original_Bemerkung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Anzahl As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_FirmaBerufNr,Long)
|
|
If (Original_FirmaNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Berufnr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Berufnr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_AnsprechpartnerNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_AnsprechpartnerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_ZeitNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ZeitNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anzahl.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Anzahl.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 FirmaBerufNr As Long, ByVal FirmaNr As Global.System.Nullable(Of Long), ByVal Berufnr As Global.System.Nullable(Of Long), ByVal AnsprechpartnerNr As Global.System.Nullable(Of Long), ByVal ZeitNr As Global.System.Nullable(Of Long), ByVal Bemerkung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Anzahl As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirmaBerufNr,Long)
|
|
If (FirmaNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Berufnr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Berufnr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (AnsprechpartnerNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(AnsprechpartnerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (ZeitNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(ZeitNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anzahl.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(Anzahl.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
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", "4.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 FirmaBerufNr As Long, _
|
|
ByVal FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Berufnr As Global.System.Nullable(Of Long), _
|
|
ByVal AnsprechpartnerNr As Global.System.Nullable(Of Long), _
|
|
ByVal ZeitNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Anzahl As Global.System.Nullable(Of Long), _
|
|
ByVal Original_FirmaBerufNr As Long, _
|
|
ByVal Original_FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Berufnr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_AnsprechpartnerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_ZeitNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Anzahl As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirmaBerufNr,Long)
|
|
If (FirmaNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Berufnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Berufnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (AnsprechpartnerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AnsprechpartnerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (ZeitNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ZeitNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Anzahl.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Anzahl.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FirmaBerufNr,Long)
|
|
If (Original_FirmaNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_FirmaNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Berufnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Berufnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_AnsprechpartnerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_AnsprechpartnerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_ZeitNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ZeitNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Anzahl.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Anzahl.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Berufnr As Global.System.Nullable(Of Long), _
|
|
ByVal AnsprechpartnerNr As Global.System.Nullable(Of Long), _
|
|
ByVal ZeitNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Anzahl As Global.System.Nullable(Of Long), _
|
|
ByVal Original_FirmaBerufNr As Long, _
|
|
ByVal Original_FirmaNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Berufnr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_AnsprechpartnerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_ZeitNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Anzahl As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_FirmaBerufNr, FirmaNr, Berufnr, AnsprechpartnerNr, ZeitNr, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Anzahl, Original_FirmaBerufNr, Original_FirmaNr, Original_Berufnr, Original_AnsprechpartnerNr, Original_ZeitNr, Original_Bemerkung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Anzahl)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class key_tabelleTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "key_tabelle"
|
|
tableMapping.ColumnMappings.Add("keynr", "keynr")
|
|
tableMapping.ColumnMappings.Add("beschreibung", "beschreibung")
|
|
tableMapping.ColumnMappings.Add("key_wert", "key_wert")
|
|
tableMapping.ColumnMappings.Add("mandantnr", "mandantnr")
|
|
tableMapping.ColumnMappings.Add("aktiv", "aktiv")
|
|
tableMapping.ColumnMappings.Add("erstellt_am", "erstellt_am")
|
|
tableMapping.ColumnMappings.Add("mutiert_am", "mutiert_am")
|
|
tableMapping.ColumnMappings.Add("mutierer", "mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [key_tabelle] WHERE (([keynr] = @Original_keynr) AND ([beschreibung] "& _
|
|
"= @Original_beschreibung) AND ([key_wert] = @Original_key_wert) AND ((@IsNull_ma"& _
|
|
"ndantnr = 1 AND [mandantnr] IS NULL) OR ([mandantnr] = @Original_mandantnr)) AND"& _
|
|
" ((@IsNull_aktiv = 1 AND [aktiv] IS NULL) OR ([aktiv] = @Original_aktiv)) AND (("& _
|
|
"@IsNull_erstellt_am = 1 AND [erstellt_am] IS NULL) OR ([erstellt_am] = @Original"& _
|
|
"_erstellt_am)) AND ((@IsNull_mutiert_am = 1 AND [mutiert_am] IS NULL) OR ([mutie"& _
|
|
"rt_am] = @Original_mutiert_am)) AND ((@IsNull_mutierer = 1 AND [mutierer] IS NUL"& _
|
|
"L) OR ([mutierer] = @Original_mutierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_keynr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "keynr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_key_wert"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "key_wert"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [key_tabelle] ([beschreibung], [key_wert], [mandantnr], [aktiv], [ers"& _
|
|
"tellt_am], [mutiert_am], [mutierer]) VALUES (@beschreibung, @key_wert, @mandantn"& _
|
|
"r, @aktiv, @erstellt_am, @mutiert_am, @mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "beschreibung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@key_wert"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "key_wert"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [key_tabelle] SET [beschreibung] = @beschreibung, [key_wert] = @key_wert, "& _
|
|
"[mandantnr] = @mandantnr, [aktiv] = @aktiv, [erstellt_am] = @erstellt_am, [mutie"& _
|
|
"rt_am] = @mutiert_am, [mutierer] = @mutierer WHERE (([keynr] = @Original_keynr) "& _
|
|
"AND ([beschreibung] = @Original_beschreibung) AND ([key_wert] = @Original_key_we"& _
|
|
"rt) AND ((@IsNull_mandantnr = 1 AND [mandantnr] IS NULL) OR ([mandantnr] = @Orig"& _
|
|
"inal_mandantnr)) AND ((@IsNull_aktiv = 1 AND [aktiv] IS NULL) OR ([aktiv] = @Ori"& _
|
|
"ginal_aktiv)) AND ((@IsNull_erstellt_am = 1 AND [erstellt_am] IS NULL) OR ([erst"& _
|
|
"ellt_am] = @Original_erstellt_am)) AND ((@IsNull_mutiert_am = 1 AND [mutiert_am]"& _
|
|
" IS NULL) OR ([mutiert_am] = @Original_mutiert_am)) AND ((@IsNull_mutierer = 1 A"& _
|
|
"ND [mutierer] IS NULL) OR ([mutierer] = @Original_mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "beschreibung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@key_wert"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "key_wert"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_keynr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "keynr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_key_wert"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "key_wert"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [keynr], [beschreibung], [key_wert], [mandantnr], [aktiv], [erstellt_am], "& _
|
|
"[mutiert_am], [mutierer] FROM [key_tabelle]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT [keynr], [beschreibung], [key_wert], [mandantnr], [aktiv], [erstellt_am], "& _
|
|
"[mutiert_am], [mutierer] FROM [key_tabelle] where beschreibung=@tablename"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tablename"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.Size = 255
|
|
param.SourceColumn = "beschreibung"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.key_tabelleDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.key_tabelleDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.key_tabelleDataTable = New LPDataSet.key_tabelleDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByTablename(ByVal dataTable As LPDataSet.key_tabelleDataTable, ByVal tablename As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (tablename Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("tablename")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(tablename,String)
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByTablename(ByVal tablename As String) As LPDataSet.key_tabelleDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (tablename Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("tablename")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(tablename,String)
|
|
End If
|
|
Dim dataTable As LPDataSet.key_tabelleDataTable = New LPDataSet.key_tabelleDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.key_tabelleDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "key_tabelle")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_keynr As Long, ByVal Original_beschreibung As String, ByVal Original_key_wert As Long, ByVal Original_mandantnr As Global.System.Nullable(Of Long), ByVal Original_aktiv As Global.System.Nullable(Of Boolean), ByVal Original_erstellt_am As Global.System.Nullable(Of Date), ByVal Original_mutiert_am As Global.System.Nullable(Of Date), ByVal Original_mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_keynr,Long)
|
|
If (Original_beschreibung Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_beschreibung")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_beschreibung,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_key_wert,Long)
|
|
If (Original_mandantnr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 beschreibung As String, ByVal key_wert As Long, ByVal mandantnr As Global.System.Nullable(Of Long), ByVal aktiv As Global.System.Nullable(Of Boolean), ByVal erstellt_am As Global.System.Nullable(Of Date), ByVal mutiert_am As Global.System.Nullable(Of Date), ByVal mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
If (beschreibung Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("beschreibung")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(beschreibung,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(key_wert,Long)
|
|
If (mandantnr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
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", "4.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 beschreibung As String, ByVal key_wert As Long, ByVal mandantnr As Global.System.Nullable(Of Long), ByVal aktiv As Global.System.Nullable(Of Boolean), ByVal erstellt_am As Global.System.Nullable(Of Date), ByVal mutiert_am As Global.System.Nullable(Of Date), ByVal mutierer As Global.System.Nullable(Of Long), ByVal Original_keynr As Long, ByVal Original_beschreibung As String, ByVal Original_key_wert As Long, ByVal Original_mandantnr As Global.System.Nullable(Of Long), ByVal Original_aktiv As Global.System.Nullable(Of Boolean), ByVal Original_erstellt_am As Global.System.Nullable(Of Date), ByVal Original_mutiert_am As Global.System.Nullable(Of Date), ByVal Original_mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
If (beschreibung Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("beschreibung")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(beschreibung,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(key_wert,Long)
|
|
If (mandantnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_keynr,Long)
|
|
If (Original_beschreibung Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_beschreibung")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_beschreibung,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_key_wert,Long)
|
|
If (Original_mandantnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
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>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class KlasseTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Klasse"
|
|
tableMapping.ColumnMappings.Add("KlasseNr", "KlasseNr")
|
|
tableMapping.ColumnMappings.Add("SchulhausNr", "SchulhausNr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Lehrer_Name", "Lehrer_Name")
|
|
tableMapping.ColumnMappings.Add("Lehrer_Vorname", "Lehrer_Vorname")
|
|
tableMapping.ColumnMappings.Add("Lehrer_Anrede", "Lehrer_Anrede")
|
|
tableMapping.ColumnMappings.Add("Lehrer_Telefon", "Lehrer_Telefon")
|
|
tableMapping.ColumnMappings.Add("Lehrer_EMail", "Lehrer_EMail")
|
|
tableMapping.ColumnMappings.Add("Klassengroesse", "Klassengroesse")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Klasse] WHERE (([KlasseNr] = @Original_KlasseNr) AND ((@IsNull_Schul"& _
|
|
"hausNr = 1 AND [SchulhausNr] IS NULL) OR ([SchulhausNr] = @Original_SchulhausNr)"& _
|
|
") AND ((@IsNull_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @"& _
|
|
"Original_Bezeichnung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] "& _
|
|
"= @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR "& _
|
|
"([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutie"& _
|
|
"rt_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer"& _
|
|
" = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull"& _
|
|
"_Klassengroesse = 1 AND [Klassengroesse] IS NULL) OR ([Klassengroesse] = @Origin"& _
|
|
"al_Klassengroesse)) AND ((@IsNull_Lehrer_Anrede = 1 AND [Lehrer_Anrede] IS NULL)"& _
|
|
" OR ([Lehrer_Anrede] = @Original_Lehrer_Anrede)) AND ((@IsNull_Lehrer_EMail = 1 "& _
|
|
"AND [Lehrer_EMail] IS NULL) OR ([Lehrer_EMail] = @Original_Lehrer_EMail)) AND (("& _
|
|
"@IsNull_Lehrer_Name = 1 AND [Lehrer_Name] IS NULL) OR ([Lehrer_Name] = @Original"& _
|
|
"_Lehrer_Name)) AND ((@IsNull_Lehrer_Telefon = 1 AND [Lehrer_Telefon] IS NULL) OR"& _
|
|
" ([Lehrer_Telefon] = @Original_Lehrer_Telefon)) AND ((@IsNull_Lehrer_Vorname = 1"& _
|
|
" AND [Lehrer_Vorname] IS NULL) OR ([Lehrer_Vorname] = @Original_Lehrer_Vorname))"& _
|
|
")"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Klasse] ([KlasseNr], [SchulhausNr], [Bezeichnung], [Aktiv], [Erstell"& _
|
|
"t_am], [Mutiert_am], [Mutierer], [Klassengroesse], [Lehrer_Anrede], [Lehrer_EMai"& _
|
|
"l], [Lehrer_Name], [Lehrer_Telefon], [Lehrer_Vorname]) VALUES (@KlasseNr, @Schul"& _
|
|
"hausNr, @Bezeichnung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer, @Klassengroe"& _
|
|
"sse, @Lehrer_Anrede, @Lehrer_EMail, @Lehrer_Name, @Lehrer_Telefon, @Lehrer_Vorna"& _
|
|
"me)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Name"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Klasse] SET [KlasseNr] = @KlasseNr, [SchulhausNr] = @SchulhausNr, [Bezeic"& _
|
|
"hnung] = @Bezeichnung, [Aktiv] = @Aktiv, [Erstellt_am] = @Erstellt_am, [Mutiert_"& _
|
|
"am] = @Mutiert_am, [Mutierer] = @Mutierer, [Klassengroesse] = @Klassengroesse, ["& _
|
|
"Lehrer_Anrede] = @Lehrer_Anrede, [Lehrer_EMail] = @Lehrer_EMail, [Lehrer_Name] ="& _
|
|
" @Lehrer_Name, [Lehrer_Telefon] = @Lehrer_Telefon, [Lehrer_Vorname] = @Lehrer_Vo"& _
|
|
"rname WHERE (([KlasseNr] = @Original_KlasseNr) AND ((@IsNull_SchulhausNr = 1 AND"& _
|
|
" [SchulhausNr] IS NULL) OR ([SchulhausNr] = @Original_SchulhausNr)) AND ((@IsNul"& _
|
|
"l_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezei"& _
|
|
"chnung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Ak"& _
|
|
"tiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am]"& _
|
|
" = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL"& _
|
|
") OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Muti"& _
|
|
"erer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Klassengroess"& _
|
|
"e = 1 AND [Klassengroesse] IS NULL) OR ([Klassengroesse] = @Original_Klassengroe"& _
|
|
"sse)) AND ((@IsNull_Lehrer_Anrede = 1 AND [Lehrer_Anrede] IS NULL) OR ([Lehrer_A"& _
|
|
"nrede] = @Original_Lehrer_Anrede)) AND ((@IsNull_Lehrer_EMail = 1 AND [Lehrer_EM"& _
|
|
"ail] IS NULL) OR ([Lehrer_EMail] = @Original_Lehrer_EMail)) AND ((@IsNull_Lehrer"& _
|
|
"_Name = 1 AND [Lehrer_Name] IS NULL) OR ([Lehrer_Name] = @Original_Lehrer_Name))"& _
|
|
" AND ((@IsNull_Lehrer_Telefon = 1 AND [Lehrer_Telefon] IS NULL) OR ([Lehrer_Tele"& _
|
|
"fon] = @Original_Lehrer_Telefon)) AND ((@IsNull_Lehrer_Vorname = 1 AND [Lehrer_V"& _
|
|
"orname] IS NULL) OR ([Lehrer_Vorname] = @Original_Lehrer_Vorname)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Name"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Klassengroesse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Klassengroesse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Anrede"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Anrede"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_EMail"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_EMail"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Lehrer_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Lehrer_Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT KlasseNr, SchulhausNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutier"& _
|
|
"er, Klassengroesse, Lehrer_Anrede, Lehrer_EMail, Lehrer_Name, Lehrer_Telefon, Le"& _
|
|
"hrer_Vorname FROM Klasse"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.KlasseDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.KlasseDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.KlasseDataTable = New LPDataSet.KlasseDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.KlasseDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Klasse")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_KlasseNr As Long, ByVal Original_SchulhausNr As Global.System.Nullable(Of Long), ByVal Original_Bezeichnung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Klassengroesse As Global.System.Nullable(Of Integer), ByVal Original_Lehrer_Anrede As String, ByVal Original_Lehrer_EMail As String, ByVal Original_Lehrer_Name As String, ByVal Original_Lehrer_Telefon As String, ByVal Original_Lehrer_Vorname As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_KlasseNr,Long)
|
|
If (Original_SchulhausNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SchulhausNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Klassengroesse.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Klassengroesse.Value,Integer)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Lehrer_Anrede Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Lehrer_Anrede,String)
|
|
End If
|
|
If (Original_Lehrer_EMail Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Lehrer_EMail,String)
|
|
End If
|
|
If (Original_Lehrer_Name Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Lehrer_Name,String)
|
|
End If
|
|
If (Original_Lehrer_Telefon Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Lehrer_Telefon,String)
|
|
End If
|
|
If (Original_Lehrer_Vorname Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Lehrer_Vorname,String)
|
|
End If
|
|
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", "4.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 KlasseNr As Long, ByVal SchulhausNr As Global.System.Nullable(Of Long), ByVal Bezeichnung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Klassengroesse As Global.System.Nullable(Of Integer), ByVal Lehrer_Anrede As String, ByVal Lehrer_EMail As String, ByVal Lehrer_Name As String, ByVal Lehrer_Telefon As String, ByVal Lehrer_Vorname As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(KlasseNr,Long)
|
|
If (SchulhausNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchulhausNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Klassengroesse.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Klassengroesse.Value,Integer)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Lehrer_Anrede Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Lehrer_Anrede,String)
|
|
End If
|
|
If (Lehrer_EMail Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(Lehrer_EMail,String)
|
|
End If
|
|
If (Lehrer_Name Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(Lehrer_Name,String)
|
|
End If
|
|
If (Lehrer_Telefon Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(Lehrer_Telefon,String)
|
|
End If
|
|
If (Lehrer_Vorname Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(Lehrer_Vorname,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", "4.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 KlasseNr As Long, _
|
|
ByVal SchulhausNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Klassengroesse As Global.System.Nullable(Of Integer), _
|
|
ByVal Lehrer_Anrede As String, _
|
|
ByVal Lehrer_EMail As String, _
|
|
ByVal Lehrer_Name As String, _
|
|
ByVal Lehrer_Telefon As String, _
|
|
ByVal Lehrer_Vorname As String, _
|
|
ByVal Original_KlasseNr As Long, _
|
|
ByVal Original_SchulhausNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Klassengroesse As Global.System.Nullable(Of Integer), _
|
|
ByVal Original_Lehrer_Anrede As String, _
|
|
ByVal Original_Lehrer_EMail As String, _
|
|
ByVal Original_Lehrer_Name As String, _
|
|
ByVal Original_Lehrer_Telefon As String, _
|
|
ByVal Original_Lehrer_Vorname As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KlasseNr,Long)
|
|
If (SchulhausNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchulhausNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Klassengroesse.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Klassengroesse.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Lehrer_Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Lehrer_Anrede,String)
|
|
End If
|
|
If (Lehrer_EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Lehrer_EMail,String)
|
|
End If
|
|
If (Lehrer_Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Lehrer_Name,String)
|
|
End If
|
|
If (Lehrer_Telefon Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Lehrer_Telefon,String)
|
|
End If
|
|
If (Lehrer_Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Lehrer_Vorname,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_KlasseNr,Long)
|
|
If (Original_SchulhausNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SchulhausNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Klassengroesse.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Klassengroesse.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Lehrer_Anrede Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Lehrer_Anrede,String)
|
|
End If
|
|
If (Original_Lehrer_EMail Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Lehrer_EMail,String)
|
|
End If
|
|
If (Original_Lehrer_Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Lehrer_Name,String)
|
|
End If
|
|
If (Original_Lehrer_Telefon Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Lehrer_Telefon,String)
|
|
End If
|
|
If (Original_Lehrer_Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_Lehrer_Vorname,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SchulhausNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Klassengroesse As Global.System.Nullable(Of Integer), _
|
|
ByVal Lehrer_Anrede As String, _
|
|
ByVal Lehrer_EMail As String, _
|
|
ByVal Lehrer_Name As String, _
|
|
ByVal Lehrer_Telefon As String, _
|
|
ByVal Lehrer_Vorname As String, _
|
|
ByVal Original_KlasseNr As Long, _
|
|
ByVal Original_SchulhausNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Klassengroesse As Global.System.Nullable(Of Integer), _
|
|
ByVal Original_Lehrer_Anrede As String, _
|
|
ByVal Original_Lehrer_EMail As String, _
|
|
ByVal Original_Lehrer_Name As String, _
|
|
ByVal Original_Lehrer_Telefon As String, _
|
|
ByVal Original_Lehrer_Vorname As String) As Integer
|
|
Return Me.Update(Original_KlasseNr, SchulhausNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Klassengroesse, Lehrer_Anrede, Lehrer_EMail, Lehrer_Name, Lehrer_Telefon, Lehrer_Vorname, Original_KlasseNr, Original_SchulhausNr, Original_Bezeichnung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Klassengroesse, Original_Lehrer_Anrede, Original_Lehrer_EMail, Original_Lehrer_Name, Original_Lehrer_Telefon, Original_Lehrer_Vorname)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class SchulhausTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Schulhaus"
|
|
tableMapping.ColumnMappings.Add("SchulhausNr", "SchulhausNr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Strasse", "Strasse")
|
|
tableMapping.ColumnMappings.Add("PLZ", "PLZ")
|
|
tableMapping.ColumnMappings.Add("Ort", "Ort")
|
|
tableMapping.ColumnMappings.Add("Telefon", "Telefon")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Schulhaus] WHERE (([SchulhausNr] = @Original_SchulhausNr) AND ((@IsN"& _
|
|
"ull_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bez"& _
|
|
"eichnung)) AND ((@IsNull_Strasse = 1 AND [Strasse] IS NULL) OR ([Strasse] = @Ori"& _
|
|
"ginal_Strasse)) AND ((@IsNull_PLZ = 1 AND [PLZ] IS NULL) OR ([PLZ] = @Original_P"& _
|
|
"LZ)) AND ((@IsNull_Ort = 1 AND [Ort] IS NULL) OR ([Ort] = @Original_Ort)) AND (("& _
|
|
"@IsNull_Telefon = 1 AND [Telefon] IS NULL) OR ([Telefon] = @Original_Telefon)) A"& _
|
|
"ND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND "& _
|
|
"((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Origin"& _
|
|
"al_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mut"& _
|
|
"iert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS N"& _
|
|
"ULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Strasse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Telefon"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Schulhaus] ([SchulhausNr], [Bezeichnung], [Strasse], [PLZ], [Ort], ["& _
|
|
"Telefon], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer]) VALUES (@SchulhausNr"& _
|
|
", @Bezeichnung, @Strasse, @PLZ, @Ort, @Telefon, @Aktiv, @Erstellt_am, @Mutiert_a"& _
|
|
"m, @Mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "PLZ"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Telefon"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Schulhaus] SET [SchulhausNr] = @SchulhausNr, [Bezeichnung] = @Bezeichnung"& _
|
|
", [Strasse] = @Strasse, [PLZ] = @PLZ, [Ort] = @Ort, [Telefon] = @Telefon, [Aktiv"& _
|
|
"] = @Aktiv, [Erstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer]"& _
|
|
" = @Mutierer WHERE (([SchulhausNr] = @Original_SchulhausNr) AND ((@IsNull_Bezeic"& _
|
|
"hnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung))"& _
|
|
" AND ((@IsNull_Strasse = 1 AND [Strasse] IS NULL) OR ([Strasse] = @Original_Stra"& _
|
|
"sse)) AND ((@IsNull_PLZ = 1 AND [PLZ] IS NULL) OR ([PLZ] = @Original_PLZ)) AND ("& _
|
|
"(@IsNull_Ort = 1 AND [Ort] IS NULL) OR ([Ort] = @Original_Ort)) AND ((@IsNull_Te"& _
|
|
"lefon = 1 AND [Telefon] IS NULL) OR ([Telefon] = @Original_Telefon)) AND ((@IsNu"& _
|
|
"ll_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_"& _
|
|
"Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstell"& _
|
|
"t_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] ="& _
|
|
" @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR (["& _
|
|
"Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "PLZ"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Telefon"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchulhausNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchulhausNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Strasse"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Strasse"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Strasse"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_PLZ"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "PLZ"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ort"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ort"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Ort"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Telefon"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Telefon"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Telefon"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [SchulhausNr], [Bezeichnung], [Strasse], [PLZ], [Ort], [Telefon], [Aktiv],"& _
|
|
" [Erstellt_am], [Mutiert_am], [Mutierer] FROM [Schulhaus]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchulhausDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchulhausDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.SchulhausDataTable = New LPDataSet.SchulhausDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.SchulhausDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Schulhaus")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_SchulhausNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Strasse As String, ByVal Original_PLZ As Global.System.Nullable(Of Long), ByVal Original_Ort As String, ByVal Original_Telefon As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SchulhausNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Strasse Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Strasse,String)
|
|
End If
|
|
If (Original_PLZ.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PLZ.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Ort Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Ort,String)
|
|
End If
|
|
If (Original_Telefon Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Telefon,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 SchulhausNr As Long, ByVal Bezeichnung As String, ByVal Strasse As String, ByVal PLZ As Global.System.Nullable(Of Long), ByVal Ort As String, ByVal Telefon As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(SchulhausNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Strasse Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Strasse,String)
|
|
End If
|
|
If (PLZ.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(PLZ.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Ort Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Ort,String)
|
|
End If
|
|
If (Telefon Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Telefon,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
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", "4.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 SchulhausNr As Long, _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As Global.System.Nullable(Of Long), _
|
|
ByVal Ort As String, _
|
|
ByVal Telefon As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchulhausNr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Strasse As String, _
|
|
ByVal Original_PLZ As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Ort As String, _
|
|
ByVal Original_Telefon As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SchulhausNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Strasse Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Strasse,String)
|
|
End If
|
|
If (PLZ.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PLZ.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Ort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Ort,String)
|
|
End If
|
|
If (Telefon Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Telefon,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_SchulhausNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Strasse Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Strasse,String)
|
|
End If
|
|
If (Original_PLZ.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_PLZ.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Ort Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Ort,String)
|
|
End If
|
|
If (Original_Telefon Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Telefon,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, _
|
|
ByVal Strasse As String, _
|
|
ByVal PLZ As Global.System.Nullable(Of Long), _
|
|
ByVal Ort As String, _
|
|
ByVal Telefon As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchulhausNr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Strasse As String, _
|
|
ByVal Original_PLZ As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Ort As String, _
|
|
ByVal Original_Telefon As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_SchulhausNr, Bezeichnung, Strasse, PLZ, Ort, Telefon, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Original_SchulhausNr, Original_Bezeichnung, Original_Strasse, Original_PLZ, Original_Ort, Original_Telefon, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class spaltenTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "spalten"
|
|
tableMapping.ColumnMappings.Add("eintragnr", "eintragnr")
|
|
tableMapping.ColumnMappings.Add("tabelle", "tabelle")
|
|
tableMapping.ColumnMappings.Add("tabellenspalte", "tabellenspalte")
|
|
tableMapping.ColumnMappings.Add("spalte", "spalte")
|
|
tableMapping.ColumnMappings.Add("Readonly", "Readonly")
|
|
tableMapping.ColumnMappings.Add("alsHacken", "alsHacken")
|
|
tableMapping.ColumnMappings.Add("Breite", "Breite")
|
|
tableMapping.ColumnMappings.Add("Reihenfolge", "Reihenfolge")
|
|
tableMapping.ColumnMappings.Add("tiptext", "tiptext")
|
|
tableMapping.ColumnMappings.Add("aktiv", "aktiv")
|
|
tableMapping.ColumnMappings.Add("erstellt_am", "erstellt_am")
|
|
tableMapping.ColumnMappings.Add("mutiert_am", "mutiert_am")
|
|
tableMapping.ColumnMappings.Add("mutierer", "mutierer")
|
|
tableMapping.ColumnMappings.Add("mandantnr", "mandantnr")
|
|
tableMapping.ColumnMappings.Add("NumberFormat", "NumberFormat")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [spalten] WHERE (([eintragnr] = @Original_eintragnr) AND ((@IsNull_ta"& _
|
|
"belle = 1 AND [tabelle] IS NULL) OR ([tabelle] = @Original_tabelle)) AND ((@IsNu"& _
|
|
"ll_tabellenspalte = 1 AND [tabellenspalte] IS NULL) OR ([tabellenspalte] = @Orig"& _
|
|
"inal_tabellenspalte)) AND ((@IsNull_spalte = 1 AND [spalte] IS NULL) OR ([spalte"& _
|
|
"] = @Original_spalte)) AND ([Readonly] = @Original_Readonly) AND ([alsHacken] = "& _
|
|
"@Original_alsHacken) AND ((@IsNull_Breite = 1 AND [Breite] IS NULL) OR ([Breite]"& _
|
|
" = @Original_Breite)) AND ((@IsNull_Reihenfolge = 1 AND [Reihenfolge] IS NULL) O"& _
|
|
"R ([Reihenfolge] = @Original_Reihenfolge)) AND ((@IsNull_tiptext = 1 AND [tiptex"& _
|
|
"t] IS NULL) OR ([tiptext] = @Original_tiptext)) AND ([aktiv] = @Original_aktiv) "& _
|
|
"AND ((@IsNull_erstellt_am = 1 AND [erstellt_am] IS NULL) OR ([erstellt_am] = @Or"& _
|
|
"iginal_erstellt_am)) AND ((@IsNull_mutiert_am = 1 AND [mutiert_am] IS NULL) OR ("& _
|
|
"[mutiert_am] = @Original_mutiert_am)) AND ((@IsNull_mutierer = 1 AND [mutierer] "& _
|
|
"IS NULL) OR ([mutierer] = @Original_mutierer)) AND ((@IsNull_mandantnr = 1 AND ["& _
|
|
"mandantnr] IS NULL) OR ([mandantnr] = @Original_mandantnr)) AND ((@IsNull_Number"& _
|
|
"Format = 1 AND [NumberFormat] IS NULL) OR ([NumberFormat] = @Original_NumberForm"& _
|
|
"at)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_eintragnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "eintragnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tabelle"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tabelle"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tabelle"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabelle"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tabellenspalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabellenspalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_spalte"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "spalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_spalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "spalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Readonly"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Readonly"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_alsHacken"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "alsHacken"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Breite"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Breite"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Breite"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Breite"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tiptext"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tiptext"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tiptext"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tiptext"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NumberFormat"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NumberFormat"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [spalten] ([eintragnr], [tabelle], [tabellenspalte], [spalte], [Reado"& _
|
|
"nly], [alsHacken], [Breite], [Reihenfolge], [tiptext], [aktiv], [erstellt_am], ["& _
|
|
"mutiert_am], [mutierer], [mandantnr], [NumberFormat]) VALUES (@eintragnr, @tabel"& _
|
|
"le, @tabellenspalte, @spalte, @Readonly, @alsHacken, @Breite, @Reihenfolge, @tip"& _
|
|
"text, @aktiv, @erstellt_am, @mutiert_am, @mutierer, @mandantnr, @NumberFormat)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@eintragnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "eintragnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tabelle"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabelle"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabellenspalte"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@spalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "spalte"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Readonly"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Readonly"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@alsHacken"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "alsHacken"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Breite"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Breite"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tiptext"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tiptext"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NumberFormat"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [spalten] SET [eintragnr] = @eintragnr, [tabelle] = @tabelle, [tabellenspa"& _
|
|
"lte] = @tabellenspalte, [spalte] = @spalte, [Readonly] = @Readonly, [alsHacken] "& _
|
|
"= @alsHacken, [Breite] = @Breite, [Reihenfolge] = @Reihenfolge, [tiptext] = @tip"& _
|
|
"text, [aktiv] = @aktiv, [erstellt_am] = @erstellt_am, [mutiert_am] = @mutiert_am"& _
|
|
", [mutierer] = @mutierer, [mandantnr] = @mandantnr, [NumberFormat] = @NumberForm"& _
|
|
"at WHERE (([eintragnr] = @Original_eintragnr) AND ((@IsNull_tabelle = 1 AND [tab"& _
|
|
"elle] IS NULL) OR ([tabelle] = @Original_tabelle)) AND ((@IsNull_tabellenspalte "& _
|
|
"= 1 AND [tabellenspalte] IS NULL) OR ([tabellenspalte] = @Original_tabellenspalt"& _
|
|
"e)) AND ((@IsNull_spalte = 1 AND [spalte] IS NULL) OR ([spalte] = @Original_spal"& _
|
|
"te)) AND ([Readonly] = @Original_Readonly) AND ([alsHacken] = @Original_alsHacke"& _
|
|
"n) AND ((@IsNull_Breite = 1 AND [Breite] IS NULL) OR ([Breite] = @Original_Breit"& _
|
|
"e)) AND ((@IsNull_Reihenfolge = 1 AND [Reihenfolge] IS NULL) OR ([Reihenfolge] ="& _
|
|
" @Original_Reihenfolge)) AND ((@IsNull_tiptext = 1 AND [tiptext] IS NULL) OR ([t"& _
|
|
"iptext] = @Original_tiptext)) AND ([aktiv] = @Original_aktiv) AND ((@IsNull_erst"& _
|
|
"ellt_am = 1 AND [erstellt_am] IS NULL) OR ([erstellt_am] = @Original_erstellt_am"& _
|
|
")) AND ((@IsNull_mutiert_am = 1 AND [mutiert_am] IS NULL) OR ([mutiert_am] = @Or"& _
|
|
"iginal_mutiert_am)) AND ((@IsNull_mutierer = 1 AND [mutierer] IS NULL) OR ([muti"& _
|
|
"erer] = @Original_mutierer)) AND ((@IsNull_mandantnr = 1 AND [mandantnr] IS NULL"& _
|
|
") OR ([mandantnr] = @Original_mandantnr)) AND ((@IsNull_NumberFormat = 1 AND [Nu"& _
|
|
"mberFormat] IS NULL) OR ([NumberFormat] = @Original_NumberFormat)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@eintragnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "eintragnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tabelle"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabelle"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabellenspalte"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@spalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "spalte"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Readonly"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Readonly"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@alsHacken"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "alsHacken"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Breite"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Breite"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@tiptext"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tiptext"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NumberFormat"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_eintragnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "eintragnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tabelle"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tabelle"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tabelle"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabelle"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tabellenspalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tabellenspalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tabellenspalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_spalte"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "spalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_spalte"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "spalte"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Readonly"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Readonly"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_alsHacken"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "alsHacken"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Breite"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Breite"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Breite"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Breite"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_tiptext"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "tiptext"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_tiptext"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "tiptext"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mandantnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "mandantnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "NumberFormat"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_NumberFormat"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "NumberFormat"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [eintragnr], [tabelle], [tabellenspalte], [spalte], [Readonly], [alsHacken"& _
|
|
"], [Breite], [Reihenfolge], [tiptext], [aktiv], [erstellt_am], [mutiert_am], [mu"& _
|
|
"tierer], [mandantnr], [NumberFormat] FROM [spalten]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT [eintragnr], [tabelle], [tabellenspalte], [spalte], [Readonly], [alsHacken"& _
|
|
"], [Breite], [Reihenfolge], [tiptext], [aktiv], [erstellt_am], [mutiert_am], [mu"& _
|
|
"tierer], [mandantnr], [NumberFormat] FROM [spalten] where aktiv=1"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.spaltenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.spaltenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.spaltenDataTable = New LPDataSet.spaltenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByAktiv(ByVal dataTable As LPDataSet.spaltenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByAktiv() As LPDataSet.spaltenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Dim dataTable As LPDataSet.spaltenDataTable = New LPDataSet.spaltenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.spaltenDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "spalten")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_eintragnr As Long, ByVal Original_tabelle As String, ByVal Original_tabellenspalte As String, ByVal Original_spalte As String, ByVal Original_Readonly As Boolean, ByVal Original_alsHacken As Boolean, ByVal Original_Breite As Global.System.Nullable(Of Long), ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), ByVal Original_tiptext As String, ByVal Original_aktiv As Boolean, ByVal Original_erstellt_am As Global.System.Nullable(Of Date), ByVal Original_mutiert_am As Global.System.Nullable(Of Date), ByVal Original_mutierer As Global.System.Nullable(Of Long), ByVal Original_mandantnr As Global.System.Nullable(Of Long), ByVal Original_NumberFormat As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_eintragnr,Long)
|
|
If (Original_tabelle Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_tabelle,String)
|
|
End If
|
|
If (Original_tabellenspalte Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_tabellenspalte,String)
|
|
End If
|
|
If (Original_spalte Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_spalte,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Readonly,Boolean)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_alsHacken,Boolean)
|
|
If (Original_Breite.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Breite.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_tiptext Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_tiptext,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_aktiv,Boolean)
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mandantnr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_NumberFormat Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_NumberFormat,String)
|
|
End If
|
|
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", "4.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 eintragnr As Long, ByVal tabelle As String, ByVal tabellenspalte As String, ByVal spalte As String, ByVal _Readonly As Boolean, ByVal alsHacken As Boolean, ByVal Breite As Global.System.Nullable(Of Long), ByVal Reihenfolge As Global.System.Nullable(Of Long), ByVal tiptext As String, ByVal aktiv As Boolean, ByVal erstellt_am As Global.System.Nullable(Of Date), ByVal mutiert_am As Global.System.Nullable(Of Date), ByVal mutierer As Global.System.Nullable(Of Long), ByVal mandantnr As Global.System.Nullable(Of Long), ByVal NumberFormat As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(eintragnr,Long)
|
|
If (tabelle Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(tabelle,String)
|
|
End If
|
|
If (tabellenspalte Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(tabellenspalte,String)
|
|
End If
|
|
If (spalte Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(spalte,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(_Readonly,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(alsHacken,Boolean)
|
|
If (Breite.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Breite.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (tiptext Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(tiptext,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(aktiv,Boolean)
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mandantnr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (NumberFormat Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = CType(NumberFormat,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", "4.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 eintragnr As Long, _
|
|
ByVal tabelle As String, _
|
|
ByVal tabellenspalte As String, _
|
|
ByVal spalte As String, _
|
|
ByVal _Readonly As Boolean, _
|
|
ByVal alsHacken As Boolean, _
|
|
ByVal Breite As Global.System.Nullable(Of Long), _
|
|
ByVal Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal tiptext As String, _
|
|
ByVal aktiv As Boolean, _
|
|
ByVal erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal mandantnr As Global.System.Nullable(Of Long), _
|
|
ByVal NumberFormat As String, _
|
|
ByVal Original_eintragnr As Long, _
|
|
ByVal Original_tabelle As String, _
|
|
ByVal Original_tabellenspalte As String, _
|
|
ByVal Original_spalte As String, _
|
|
ByVal Original_Readonly As Boolean, _
|
|
ByVal Original_alsHacken As Boolean, _
|
|
ByVal Original_Breite As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal Original_tiptext As String, _
|
|
ByVal Original_aktiv As Boolean, _
|
|
ByVal Original_erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_mandantnr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_NumberFormat As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(eintragnr,Long)
|
|
If (tabelle Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(tabelle,String)
|
|
End If
|
|
If (tabellenspalte Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(tabellenspalte,String)
|
|
End If
|
|
If (spalte Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(spalte,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(_Readonly,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(alsHacken,Boolean)
|
|
If (Breite.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Breite.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (tiptext Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(tiptext,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(aktiv,Boolean)
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mandantnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (NumberFormat Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(NumberFormat,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_eintragnr,Long)
|
|
If (Original_tabelle Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_tabelle,String)
|
|
End If
|
|
If (Original_tabellenspalte Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_tabellenspalte,String)
|
|
End If
|
|
If (Original_spalte Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_spalte,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Readonly,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_alsHacken,Boolean)
|
|
If (Original_Breite.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Breite.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_tiptext Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_tiptext,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_aktiv,Boolean)
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mandantnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_mandantnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_NumberFormat Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_NumberFormat,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 tabelle As String, _
|
|
ByVal tabellenspalte As String, _
|
|
ByVal spalte As String, _
|
|
ByVal _Readonly As Boolean, _
|
|
ByVal alsHacken As Boolean, _
|
|
ByVal Breite As Global.System.Nullable(Of Long), _
|
|
ByVal Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal tiptext As String, _
|
|
ByVal aktiv As Boolean, _
|
|
ByVal erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal mandantnr As Global.System.Nullable(Of Long), _
|
|
ByVal NumberFormat As String, _
|
|
ByVal Original_eintragnr As Long, _
|
|
ByVal Original_tabelle As String, _
|
|
ByVal Original_tabellenspalte As String, _
|
|
ByVal Original_spalte As String, _
|
|
ByVal Original_Readonly As Boolean, _
|
|
ByVal Original_alsHacken As Boolean, _
|
|
ByVal Original_Breite As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal Original_tiptext As String, _
|
|
ByVal Original_aktiv As Boolean, _
|
|
ByVal Original_erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_mandantnr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_NumberFormat As String) As Integer
|
|
Return Me.Update(Original_eintragnr, tabelle, tabellenspalte, spalte, _Readonly, alsHacken, Breite, Reihenfolge, tiptext, aktiv, erstellt_am, mutiert_am, mutierer, mandantnr, NumberFormat, Original_eintragnr, Original_tabelle, Original_tabellenspalte, Original_spalte, Original_Readonly, Original_alsHacken, Original_Breite, Original_Reihenfolge, Original_tiptext, Original_aktiv, Original_erstellt_am, Original_mutiert_am, Original_mutierer, Original_mandantnr, Original_NumberFormat)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class sysdiagramsTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "sysdiagrams"
|
|
tableMapping.ColumnMappings.Add("name", "name")
|
|
tableMapping.ColumnMappings.Add("principal_id", "principal_id")
|
|
tableMapping.ColumnMappings.Add("diagram_id", "diagram_id")
|
|
tableMapping.ColumnMappings.Add("version", "version")
|
|
tableMapping.ColumnMappings.Add("definition", "definition")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [sysdiagrams] WHERE (([name] = @Original_name) AND ([principal_id] = "& _
|
|
"@Original_principal_id) AND ([diagram_id] = @Original_diagram_id) AND ((@IsNull_"& _
|
|
"version = 1 AND [version] IS NULL) OR ([version] = @Original_version)) AND ((@Is"& _
|
|
"Null_definition = 1 AND [definition] IS NULL) OR ([definition] = @Original_defin"& _
|
|
"ition)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_principal_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "principal_id"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_diagram_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "diagram_id"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_version"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "version"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_version"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "version"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_definition"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "definition"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_definition"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "definition"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [sysdiagrams] ([name], [principal_id], [version], [definition]) VALUE"& _
|
|
"S (@name, @principal_id, @version, @definition)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "name"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@principal_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "principal_id"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@version"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "version"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@definition"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "definition"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [sysdiagrams] SET [name] = @name, [principal_id] = @principal_id, [version"& _
|
|
"] = @version, [definition] = @definition WHERE (([name] = @Original_name) AND (["& _
|
|
"principal_id] = @Original_principal_id) AND ([diagram_id] = @Original_diagram_id"& _
|
|
") AND ((@IsNull_version = 1 AND [version] IS NULL) OR ([version] = @Original_ver"& _
|
|
"sion)) AND ((@IsNull_definition = 1 AND [definition] IS NULL) OR ([definition] ="& _
|
|
" @Original_definition)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "name"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@principal_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "principal_id"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@version"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "version"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@definition"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "definition"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_principal_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "principal_id"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_diagram_id"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "diagram_id"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_version"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "version"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_version"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "version"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_definition"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "definition"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_definition"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "definition"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [name], [principal_id], [diagram_id], [version], [definition] FROM [sysdia"& _
|
|
"grams]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.sysdiagramsDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.sysdiagramsDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.sysdiagramsDataTable = New LPDataSet.sysdiagramsDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.sysdiagramsDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "sysdiagrams")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_name As String, ByVal Original_principal_id As Long, ByVal Original_diagram_id As Long, ByVal Original_version As Global.System.Nullable(Of Long), ByVal Original_definition() As Byte) As Integer
|
|
If (Original_name Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_name")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_name,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_principal_id,Long)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_diagram_id,Long)
|
|
If (Original_version.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_version.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_definition Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_definition,Byte())
|
|
End If
|
|
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", "4.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 principal_id As Long, ByVal version As Global.System.Nullable(Of Long), ByVal definition() As Byte) As Integer
|
|
If (name Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("name")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(name,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(principal_id,Long)
|
|
If (version.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(version.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (definition Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(definition,Byte())
|
|
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", "4.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 principal_id As Long, ByVal version As Global.System.Nullable(Of Long), ByVal definition() As Byte, ByVal Original_name As String, ByVal Original_principal_id As Long, ByVal Original_diagram_id As Long, ByVal Original_version As Global.System.Nullable(Of Long), ByVal Original_definition() As Byte) As Integer
|
|
If (name Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("name")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(name,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(principal_id,Long)
|
|
If (version.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(version.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (definition Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(definition,Byte())
|
|
End If
|
|
If (Original_name Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_name")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_name,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_principal_id,Long)
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_diagram_id,Long)
|
|
If (Original_version.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_version.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_definition Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_definition,Byte())
|
|
End If
|
|
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>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class ZeitenTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Zeiten"
|
|
tableMapping.ColumnMappings.Add("ZeitNr", "ZeitNr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Beschreibung", "Beschreibung")
|
|
tableMapping.ColumnMappings.Add("Reihenfolge", "Reihenfolge")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Zeiten] WHERE (([ZeitNr] = @Original_ZeitNr) AND ((@IsNull_Bezeichnu"& _
|
|
"ng = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung)) AN"& _
|
|
"D ((@IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) OR ([Beschreibung] = @O"& _
|
|
"riginal_Beschreibung)) AND ((@IsNull_Reihenfolge = 1 AND [Reihenfolge] IS NULL) "& _
|
|
"OR ([Reihenfolge] = @Original_Reihenfolge)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] "& _
|
|
"IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erst"& _
|
|
"ellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Muti"& _
|
|
"ert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) A"& _
|
|
"ND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mut"& _
|
|
"ierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Zeiten] ([ZeitNr], [Bezeichnung], [Beschreibung], [Reihenfolge], [Ak"& _
|
|
"tiv], [Erstellt_am], [Mutiert_am], [Mutierer]) VALUES (@ZeitNr, @Bezeichnung, @B"& _
|
|
"eschreibung, @Reihenfolge, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Zeiten] SET [ZeitNr] = @ZeitNr, [Bezeichnung] = @Bezeichnung, [Beschreibu"& _
|
|
"ng] = @Beschreibung, [Reihenfolge] = @Reihenfolge, [Aktiv] = @Aktiv, [Erstellt_a"& _
|
|
"m] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer WHERE (([Z"& _
|
|
"eitNr] = @Original_ZeitNr) AND ((@IsNull_Bezeichnung = 1 AND [Bezeichnung] IS NU"& _
|
|
"LL) OR ([Bezeichnung] = @Original_Bezeichnung)) AND ((@IsNull_Beschreibung = 1 A"& _
|
|
"ND [Beschreibung] IS NULL) OR ([Beschreibung] = @Original_Beschreibung)) AND ((@"& _
|
|
"IsNull_Reihenfolge = 1 AND [Reihenfolge] IS NULL) OR ([Reihenfolge] = @Original_"& _
|
|
"Reihenfolge)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Origin"& _
|
|
"al_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstell"& _
|
|
"t_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS"& _
|
|
" NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND "& _
|
|
"[Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ZeitNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ZeitNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Reihenfolge"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Reihenfolge"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [ZeitNr], [Bezeichnung], [Beschreibung], [Reihenfolge], [Aktiv], [Erstellt"& _
|
|
"_am], [Mutiert_am], [Mutierer] FROM [Zeiten]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT [ZeitNr], [Bezeichnung], [Beschreibung], [Reihenfolge], [Aktiv], [Erstellt"& _
|
|
"_am], [Mutiert_am], [Mutierer] FROM [Zeiten] where aktiv=1 order by reihenfolge"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ZeitenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ZeitenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.ZeitenDataTable = New LPDataSet.ZeitenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByAktiv(ByVal dataTable As LPDataSet.ZeitenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByAktiv() As LPDataSet.ZeitenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Dim dataTable As LPDataSet.ZeitenDataTable = New LPDataSet.ZeitenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.ZeitenDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Zeiten")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_ZeitNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ZeitNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 ZeitNr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Reihenfolge As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ZeitNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
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", "4.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 ZeitNr As Long, _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Beschreibung As String, _
|
|
ByVal Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_ZeitNr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Beschreibung As String, _
|
|
ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ZeitNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ZeitNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Reihenfolge.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Reihenfolge.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, ByVal Beschreibung As String, ByVal Reihenfolge As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Original_ZeitNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Reihenfolge As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_ZeitNr, Bezeichnung, Beschreibung, Reihenfolge, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Original_ZeitNr, Original_Bezeichnung, Original_Beschreibung, Original_Reihenfolge, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class SchuelerTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Schueler"
|
|
tableMapping.ColumnMappings.Add("SchuelerNr", "SchuelerNr")
|
|
tableMapping.ColumnMappings.Add("KlasseNr", "KlasseNr")
|
|
tableMapping.ColumnMappings.Add("Name", "Name")
|
|
tableMapping.ColumnMappings.Add("Vorname", "Vorname")
|
|
tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Schueler] WHERE (([SchuelerNr] = @Original_SchuelerNr) AND ((@IsNull"& _
|
|
"_KlasseNr = 1 AND [KlasseNr] IS NULL) OR ([KlasseNr] = @Original_KlasseNr)) AND "& _
|
|
"((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] = @Original_Name)) AND ((@IsNu"& _
|
|
"ll_Vorname = 1 AND [Vorname] IS NULL) OR ([Vorname] = @Original_Vorname)) AND (("& _
|
|
"@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR ([Bemerkung] = @Original_Bemer"& _
|
|
"kung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Akti"& _
|
|
"v)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] ="& _
|
|
" @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) "& _
|
|
"OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutier"& _
|
|
"er] IS NULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Schueler] ([SchuelerNr], [KlasseNr], [Name], [Vorname], [Bemerkung],"& _
|
|
" [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer]) VALUES (@SchuelerNr, @KlasseN"& _
|
|
"r, @Name, @Vorname, @Bemerkung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Schueler] SET [SchuelerNr] = @SchuelerNr, [KlasseNr] = @KlasseNr, [Name] "& _
|
|
"= @Name, [Vorname] = @Vorname, [Bemerkung] = @Bemerkung, [Aktiv] = @Aktiv, [Erst"& _
|
|
"ellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer WHER"& _
|
|
"E (([SchuelerNr] = @Original_SchuelerNr) AND ((@IsNull_KlasseNr = 1 AND [KlasseN"& _
|
|
"r] IS NULL) OR ([KlasseNr] = @Original_KlasseNr)) AND ((@IsNull_Name = 1 AND [Na"& _
|
|
"me] IS NULL) OR ([Name] = @Original_Name)) AND ((@IsNull_Vorname = 1 AND [Vornam"& _
|
|
"e] IS NULL) OR ([Vorname] = @Original_Vorname)) AND ((@IsNull_Bemerkung = 1 AND "& _
|
|
"[Bemerkung] IS NULL) OR ([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_Aktiv"& _
|
|
" = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt"& _
|
|
"_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) A"& _
|
|
"ND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Origin"& _
|
|
"al_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer"& _
|
|
"] = @Original_Mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_KlasseNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "KlasseNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Name"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Name"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Vorname"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Vorname"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Vorname"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(3) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [SchuelerNr], [KlasseNr], [Name], [Vorname], [Bemerkung], [Aktiv], [Erstel"& _
|
|
"lt_am], [Mutiert_am], [Mutierer] FROM [Schueler]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT Klasse.KlasseNr AS Klasse_KlasseNr, Klasse.Bezeichnung AS Klasse, S"& _
|
|
"chueler.SchuelerNr, Schueler.KlasseNr, Schueler.Name, Schueler.Vorname, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" Schueler.Bemerkung, Schueler.Aktiv, Schueler.Erstellt_am, Sch"& _
|
|
"ueler.Mutiert_am, Schueler.Mutierer"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Schueler INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" Klasse ON Schueler.KlasseNr = Klasse.KlasseNr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Klass"& _
|
|
"e, Schueler.KlasseNr, Schueler.Name, Schueler.Vorname"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT Schueler.SchuelerNr, Schueler.KlasseNr, Schueler.Name, Schueler.Vor"& _
|
|
"name, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Schueler.Bemerkung, Schueler.Aktiv, Schueler.Er"& _
|
|
"stellt_am, Schueler.Mutiert_am, Schueler.Mutierer"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Schueler "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OR"& _
|
|
"DER BY Schueler.Name, Schueler.Vorname"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(3) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(3).Connection = Me.Connection
|
|
Me._commandCollection(3).CommandText = "SELECT Schueler.SchuelerNr, Schueler.KlasseNr, Schueler.Name, Schueler.Vor"& _
|
|
"name, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Schueler.Bemerkung, Schueler.Aktiv, Schueler.Er"& _
|
|
"stellt_am, Schueler.Mutiert_am, Schueler.Mutierer"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Schueler "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"wh"& _
|
|
"ere Schueler.name like @Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Schueler.Name, Schueler.Vorname"
|
|
Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Name"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.Size = 50
|
|
param.SourceColumn = "Name"
|
|
Me._commandCollection(3).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchuelerDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchuelerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.SchuelerDataTable = New LPDataSet.SchuelerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByKlasse(ByVal dataTable As LPDataSet.SchuelerDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByKlasse() As LPDataSet.SchuelerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Dim dataTable As LPDataSet.SchuelerDataTable = New LPDataSet.SchuelerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByName(ByVal dataTable As LPDataSet.SchuelerDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByName() As LPDataSet.SchuelerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
Dim dataTable As LPDataSet.SchuelerDataTable = New LPDataSet.SchuelerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByNamensuche(ByVal dataTable As LPDataSet.SchuelerDataTable, ByVal Name As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(3)
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Name,String)
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByNamenSuche(ByVal Name As String) As LPDataSet.SchuelerDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(3)
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Name,String)
|
|
End If
|
|
Dim dataTable As LPDataSet.SchuelerDataTable = New LPDataSet.SchuelerDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.SchuelerDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Schueler")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_SchuelerNr As Long, ByVal Original_KlasseNr As Global.System.Nullable(Of Long), ByVal Original_Name As String, ByVal Original_Vorname As String, ByVal Original_Bemerkung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SchuelerNr,Long)
|
|
If (Original_KlasseNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_KlasseNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Name Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Name,String)
|
|
End If
|
|
If (Original_Vorname Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Vorname,String)
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 SchuelerNr As Long, ByVal KlasseNr As Global.System.Nullable(Of Long), ByVal Name As String, ByVal Vorname As String, ByVal Bemerkung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(SchuelerNr,Long)
|
|
If (KlasseNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(KlasseNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
|
|
End If
|
|
If (Vorname Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Vorname,String)
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
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", "4.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 SchuelerNr As Long, _
|
|
ByVal KlasseNr As Global.System.Nullable(Of Long), _
|
|
ByVal Name As String, _
|
|
ByVal Vorname As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerNr As Long, _
|
|
ByVal Original_KlasseNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Name As String, _
|
|
ByVal Original_Vorname As String, _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SchuelerNr,Long)
|
|
If (KlasseNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KlasseNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
|
|
End If
|
|
If (Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Vorname,String)
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SchuelerNr,Long)
|
|
If (Original_KlasseNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_KlasseNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Name Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Name,String)
|
|
End If
|
|
If (Original_Vorname Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Vorname,String)
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 KlasseNr As Global.System.Nullable(Of Long), _
|
|
ByVal Name As String, _
|
|
ByVal Vorname As String, _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerNr As Long, _
|
|
ByVal Original_KlasseNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Name As String, _
|
|
ByVal Original_Vorname As String, _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_SchuelerNr, KlasseNr, Name, Vorname, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Original_SchuelerNr, Original_KlasseNr, Original_Name, Original_Vorname, Original_Bemerkung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class SchuelerBerufTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "SchuelerBeruf"
|
|
tableMapping.ColumnMappings.Add("SchuelerBerufNr", "SchuelerBerufNr")
|
|
tableMapping.ColumnMappings.Add("SchuelerNr", "SchuelerNr")
|
|
tableMapping.ColumnMappings.Add("BerufNr", "BerufNr")
|
|
tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Prioritaet", "Prioritaet")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [SchuelerBeruf] WHERE (([SchuelerBerufNr] = @Original_SchuelerBerufNr"& _
|
|
") AND ((@IsNull_SchuelerNr = 1 AND [SchuelerNr] IS NULL) OR ([SchuelerNr] = @Ori"& _
|
|
"ginal_SchuelerNr)) AND ((@IsNull_BerufNr = 1 AND [BerufNr] IS NULL) OR ([BerufNr"& _
|
|
"] = @Original_BerufNr)) AND ((@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR "& _
|
|
"([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL"& _
|
|
") OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am"& _
|
|
"] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am "& _
|
|
"= 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@I"& _
|
|
"sNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer))"& _
|
|
" AND ((@IsNull_Prioritaet = 1 AND [Prioritaet] IS NULL) OR ([Prioritaet] = @Orig"& _
|
|
"inal_Prioritaet)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "BerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "BerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [SchuelerBeruf] ([SchuelerBerufNr], [SchuelerNr], [BerufNr], [Bemerku"& _
|
|
"ng], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer], [Prioritaet]) VALUES (@Sc"& _
|
|
"huelerBerufNr, @SchuelerNr, @BerufNr, @Bemerkung, @Aktiv, @Erstellt_am, @Mutiert"& _
|
|
"_am, @Mutierer, @Prioritaet)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "BerufNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [SchuelerBeruf] SET [SchuelerBerufNr] = @SchuelerBerufNr, [SchuelerNr] = @"& _
|
|
"SchuelerNr, [BerufNr] = @BerufNr, [Bemerkung] = @Bemerkung, [Aktiv] = @Aktiv, [E"& _
|
|
"rstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer, "& _
|
|
"[Prioritaet] = @Prioritaet WHERE (([SchuelerBerufNr] = @Original_SchuelerBerufNr"& _
|
|
") AND ((@IsNull_SchuelerNr = 1 AND [SchuelerNr] IS NULL) OR ([SchuelerNr] = @Ori"& _
|
|
"ginal_SchuelerNr)) AND ((@IsNull_BerufNr = 1 AND [BerufNr] IS NULL) OR ([BerufNr"& _
|
|
"] = @Original_BerufNr)) AND ((@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR "& _
|
|
"([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL"& _
|
|
") OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am"& _
|
|
"] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am "& _
|
|
"= 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@I"& _
|
|
"sNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer))"& _
|
|
" AND ((@IsNull_Prioritaet = 1 AND [Prioritaet] IS NULL) OR ([Prioritaet] = @Orig"& _
|
|
"inal_Prioritaet)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "BerufNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "BerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_BerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "BerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [SchuelerBerufNr], [SchuelerNr], [BerufNr], [Bemerkung], [Aktiv], [Erstell"& _
|
|
"t_am], [Mutiert_am], [Mutierer], [Prioritaet] FROM [SchuelerBeruf]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT SchuelerBeruf.SchuelerBerufNr, SchuelerBeruf.SchuelerNr, SchuelerBe"& _
|
|
"ruf.BerufNr, SchuelerBeruf.Bemerkung, SchuelerBeruf.Aktiv, SchuelerBeruf.Erstell"& _
|
|
"t_am, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SchuelerBeruf.Mutiert_am, SchuelerBeruf.Mutiere"& _
|
|
"r, SchuelerBeruf.Prioritaet, Beruf.Bezeichnung AS Beruf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Schuele"& _
|
|
"rBeruf INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Beruf ON SchuelerBeruf.BerufNr = Ber"& _
|
|
"uf.Berufnr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (SchuelerBeruf.SchuelerNr = @schuelernr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@schuelernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
Me._commandCollection(2) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT [SchuelerBerufNr], [SchuelerNr], [BerufNr], [Bemerkung], [Aktiv], [Erstell"& _
|
|
"t_am], [Mutiert_am], [Mutierer], [Prioritaet] FROM [SchuelerBeruf]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"where aktiv="& _
|
|
"1 and schuelernr=@schuelernr order by prioritaet desc"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@schuelernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._commandCollection(2).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchuelerBerufDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SchuelerBerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.SchuelerBerufDataTable = New LPDataSet.SchuelerBerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillBySchuelerNr(ByVal dataTable As LPDataSet.SchuelerBerufDataTable, ByVal schuelernr As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (schuelernr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(schuelernr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataBySchuelerNr(ByVal schuelernr As Global.System.Nullable(Of Long)) As LPDataSet.SchuelerBerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (schuelernr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(schuelernr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim dataTable As LPDataSet.SchuelerBerufDataTable = New LPDataSet.SchuelerBerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillBySchuelerPrio(ByVal dataTable As LPDataSet.SchuelerBerufDataTable, ByVal schuelernr As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (schuelernr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(schuelernr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataBySchuelerPrio(ByVal schuelernr As Global.System.Nullable(Of Long)) As LPDataSet.SchuelerBerufDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (schuelernr.HasValue = true) Then
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(schuelernr.Value,Long)
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim dataTable As LPDataSet.SchuelerBerufDataTable = New LPDataSet.SchuelerBerufDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.SchuelerBerufDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "SchuelerBeruf")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_SchuelerBerufNr As Long, ByVal Original_SchuelerNr As Global.System.Nullable(Of Long), ByVal Original_BerufNr As Global.System.Nullable(Of Long), ByVal Original_Bemerkung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SchuelerBerufNr,Long)
|
|
If (Original_SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_BerufNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Prioritaet.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 SchuelerBerufNr As Long, ByVal SchuelerNr As Global.System.Nullable(Of Long), ByVal BerufNr As Global.System.Nullable(Of Long), ByVal Bemerkung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(SchuelerBerufNr,Long)
|
|
If (SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (BerufNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(BerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Prioritaet.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
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", "4.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 SchuelerBerufNr As Long, _
|
|
ByVal SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal BerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Prioritaet As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerBerufNr As Long, _
|
|
ByVal Original_SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_BerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SchuelerBerufNr,Long)
|
|
If (SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (BerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Prioritaet.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SchuelerBerufNr,Long)
|
|
If (Original_SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_BerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_BerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Prioritaet.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal BerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Prioritaet As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerBerufNr As Long, _
|
|
ByVal Original_SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_BerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_SchuelerBerufNr, SchuelerNr, BerufNr, Bemerkung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Prioritaet, Original_SchuelerBerufNr, Original_SchuelerNr, Original_BerufNr, Original_Bemerkung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Prioritaet)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class ReportTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Report"
|
|
tableMapping.ColumnMappings.Add("ReportNr", "ReportNr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Filename", "Filename")
|
|
tableMapping.ColumnMappings.Add("ReportGruppeNr", "ReportGruppeNr")
|
|
tableMapping.ColumnMappings.Add("SQL_Statement", "SQL_Statement")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Report] WHERE (([ReportNr] = @Original_ReportNr) AND ((@IsNull_Bezei"& _
|
|
"chnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung)"& _
|
|
") AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) A"& _
|
|
"ND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Ori"& _
|
|
"ginal_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR (["& _
|
|
"Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] I"& _
|
|
"S NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Filename = 1 AND [Fi"& _
|
|
"lename] IS NULL) OR ([Filename] = @Original_Filename)) AND ((@IsNull_ReportGrupp"& _
|
|
"eNr = 1 AND [ReportGruppeNr] IS NULL) OR ([ReportGruppeNr] = @Original_ReportGru"& _
|
|
"ppeNr)) AND ((@IsNull_SQL_Statement = 1 AND [SQL_Statement] IS NULL) OR ([SQL_St"& _
|
|
"atement] = @Original_SQL_Statement)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Filename"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Filename"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Filename"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Filename"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQL_Statement"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQL_Statement"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Report] ([ReportNr], [Bezeichnung], [Aktiv], [Erstellt_am], [Mutiert"& _
|
|
"_am], [Mutierer], [Filename], [ReportGruppeNr], [SQL_Statement]) VALUES (@Report"& _
|
|
"Nr, @Bezeichnung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer, @Filename, @Repo"& _
|
|
"rtGruppeNr, @SQL_Statement)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Filename"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Filename"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQL_Statement"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Report] SET [ReportNr] = @ReportNr, [Bezeichnung] = @Bezeichnung, [Aktiv]"& _
|
|
" = @Aktiv, [Erstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] "& _
|
|
"= @Mutierer, [Filename] = @Filename, [ReportGruppeNr] = @ReportGruppeNr, [SQL_St"& _
|
|
"atement] = @SQL_Statement WHERE (([ReportNr] = @Original_ReportNr) AND ((@IsNull"& _
|
|
"_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeic"& _
|
|
"hnung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Akt"& _
|
|
"iv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] "& _
|
|
"= @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL)"& _
|
|
" OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutie"& _
|
|
"rer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Filename = 1 A"& _
|
|
"ND [Filename] IS NULL) OR ([Filename] = @Original_Filename)) AND ((@IsNull_Repor"& _
|
|
"tGruppeNr = 1 AND [ReportGruppeNr] IS NULL) OR ([ReportGruppeNr] = @Original_Rep"& _
|
|
"ortGruppeNr)) AND ((@IsNull_SQL_Statement = 1 AND [SQL_Statement] IS NULL) OR (["& _
|
|
"SQL_Statement] = @Original_SQL_Statement)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Filename"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Filename"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQL_Statement"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Filename"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Filename"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Filename"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Filename"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQL_Statement"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQL_Statement"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQL_Statement"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT ReportNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Filename,"& _
|
|
" ReportGruppeNr, SQL_Statement FROM Report"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT ReportNr, Filename, ReportGruppeNr, SQL_Statement FROM Report WHERE (Repor"& _
|
|
"tNr = @ReportNr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "ReportNr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ReportDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ReportDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.ReportDataTable = New LPDataSet.ReportDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByReportNr(ByVal dataTable As LPDataSet.ReportDataTable, ByVal ReportNr As Long) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(ReportNr,Long)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByReportNr(ByVal ReportNr As Long) As LPDataSet.ReportDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(ReportNr,Long)
|
|
Dim dataTable As LPDataSet.ReportDataTable = New LPDataSet.ReportDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.ReportDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Report")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_ReportNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Filename As String, ByVal Original_ReportGruppeNr As Global.System.Nullable(Of Integer), ByVal Original_SQL_Statement As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ReportNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Filename Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Filename,String)
|
|
End If
|
|
If (Original_ReportGruppeNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ReportGruppeNr.Value,Integer)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SQL_Statement Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SQL_Statement,String)
|
|
End If
|
|
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", "4.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 ReportNr As Long, ByVal Bezeichnung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Filename As String, ByVal ReportGruppeNr As Global.System.Nullable(Of Integer), ByVal SQL_Statement As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ReportNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Filename Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Filename,String)
|
|
End If
|
|
If (ReportGruppeNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ReportGruppeNr.Value,Integer)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SQL_Statement Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_Statement,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", "4.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 ReportNr As Long, _
|
|
ByVal Bezeichnung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Filename As String, _
|
|
ByVal ReportGruppeNr As Global.System.Nullable(Of Integer), _
|
|
ByVal SQL_Statement As String, _
|
|
ByVal Original_ReportNr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Filename As String, _
|
|
ByVal Original_ReportGruppeNr As Global.System.Nullable(Of Integer), _
|
|
ByVal Original_SQL_Statement As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ReportNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Filename Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Filename,String)
|
|
End If
|
|
If (ReportGruppeNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ReportGruppeNr.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SQL_Statement Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_Statement,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ReportNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Filename Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Filename,String)
|
|
End If
|
|
If (Original_ReportGruppeNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ReportGruppeNr.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SQL_Statement Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_SQL_Statement,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, _
|
|
ByVal Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Filename As String, _
|
|
ByVal ReportGruppeNr As Global.System.Nullable(Of Integer), _
|
|
ByVal SQL_Statement As String, _
|
|
ByVal Original_ReportNr As Long, _
|
|
ByVal Original_Bezeichnung As String, _
|
|
ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Mutierer As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Filename As String, _
|
|
ByVal Original_ReportGruppeNr As Global.System.Nullable(Of Integer), _
|
|
ByVal Original_SQL_Statement As String) As Integer
|
|
Return Me.Update(Original_ReportNr, Bezeichnung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Filename, ReportGruppeNr, SQL_Statement, Original_ReportNr, Original_Bezeichnung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Filename, Original_ReportGruppeNr, Original_SQL_Statement)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class OptionenTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Optionen"
|
|
tableMapping.ColumnMappings.Add("Optionnr", "Optionnr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Inhalt", "Inhalt")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Optionen] WHERE (([Optionnr] = @Original_Optionnr) AND ((@IsNull_Bez"& _
|
|
"eichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnun"& _
|
|
"g)) AND ((@IsNull_Inhalt = 1 AND [Inhalt] IS NULL) OR ([Inhalt] = @Original_Inha"& _
|
|
"lt)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] "& _
|
|
"= @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL)"& _
|
|
" OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutie"& _
|
|
"rer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Aktiv = 1 AND "& _
|
|
"[Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Optionnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Optionnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Inhalt"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Inhalt"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Inhalt"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Inhalt"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Optionen] ([Optionnr], [Bezeichnung], [Inhalt], [Erstellt_am], [Muti"& _
|
|
"ert_am], [Mutierer], [Aktiv]) VALUES (@Optionnr, @Bezeichnung, @Inhalt, @Erstell"& _
|
|
"t_am, @Mutiert_am, @Mutierer, @Aktiv)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Optionnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Optionnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Inhalt"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Inhalt"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Optionen] SET [Optionnr] = @Optionnr, [Bezeichnung] = @Bezeichnung, [Inha"& _
|
|
"lt] = @Inhalt, [Erstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutier"& _
|
|
"er] = @Mutierer, [Aktiv] = @Aktiv WHERE (([Optionnr] = @Original_Optionnr) AND ("& _
|
|
"(@IsNull_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Origina"& _
|
|
"l_Bezeichnung)) AND ((@IsNull_Inhalt = 1 AND [Inhalt] IS NULL) OR ([Inhalt] = @O"& _
|
|
"riginal_Inhalt)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([E"& _
|
|
"rstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_"& _
|
|
"am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = "& _
|
|
"1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)) AND ((@IsNull_Ak"& _
|
|
"tiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Optionnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Optionnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Inhalt"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Inhalt"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Optionnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Optionnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Inhalt"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Inhalt"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Inhalt"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Inhalt"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [Optionnr], [Bezeichnung], [Inhalt], [Erstellt_am], [Mutiert_am], [Mutiere"& _
|
|
"r], [Aktiv] FROM [Optionen]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT optionnr, Inhalt"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Optionen"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (Optionnr ="& _
|
|
" @Optionnr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Optionnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.Size = 8
|
|
param.SourceColumn = "Optionnr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.OptionenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.OptionenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.OptionenDataTable = New LPDataSet.OptionenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByOptionNr(ByVal dataTable As LPDataSet.OptionenDataTable, ByVal Optionnr As Long) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Optionnr,Long)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByOptionNr(ByVal Optionnr As Long) As LPDataSet.OptionenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Optionnr,Long)
|
|
Dim dataTable As LPDataSet.OptionenDataTable = New LPDataSet.OptionenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.OptionenDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Optionen")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_Optionnr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Inhalt As String, ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Optionnr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Inhalt Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Inhalt,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 Optionnr As Long, ByVal Bezeichnung As String, ByVal Inhalt As String, ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(Optionnr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Inhalt Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Inhalt,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
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", "4.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 Optionnr As Long, ByVal Bezeichnung As String, ByVal Inhalt As String, ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Optionnr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Inhalt As String, ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Optionnr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Inhalt Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Inhalt,String)
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Optionnr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Inhalt Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Inhalt,String)
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, ByVal Inhalt As String, ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Optionnr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Inhalt As String, ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long), ByVal Original_Aktiv As Global.System.Nullable(Of Boolean)) As Integer
|
|
Return Me.Update(Original_Optionnr, Bezeichnung, Inhalt, Erstellt_am, Mutiert_am, Mutierer, Aktiv, Original_Optionnr, Original_Bezeichnung, Original_Inhalt, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer, Original_Aktiv)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class ReportGruppeTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "ReportGruppe"
|
|
tableMapping.ColumnMappings.Add("ReportGruppeNr", "ReportGruppeNr")
|
|
tableMapping.ColumnMappings.Add("Bezeichnung", "Bezeichnung")
|
|
tableMapping.ColumnMappings.Add("Beschreibung", "Beschreibung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [ReportGruppe] WHERE (([ReportGruppeNr] = @Original_ReportGruppeNr) A"& _
|
|
"ND ((@IsNull_Bezeichnung = 1 AND [Bezeichnung] IS NULL) OR ([Bezeichnung] = @Ori"& _
|
|
"ginal_Bezeichnung)) AND ((@IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) O"& _
|
|
"R ([Beschreibung] = @Original_Beschreibung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv]"& _
|
|
" IS NULL) OR ([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Ers"& _
|
|
"tellt_am] IS NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mut"& _
|
|
"iert_am = 1 AND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) "& _
|
|
"AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mu"& _
|
|
"tierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [ReportGruppe] ([ReportGruppeNr], [Bezeichnung], [Beschreibung], [Akt"& _
|
|
"iv], [Erstellt_am], [Mutiert_am], [Mutierer]) VALUES (@ReportGruppeNr, @Bezeichn"& _
|
|
"ung, @Beschreibung, @Aktiv, @Erstellt_am, @Mutiert_am, @Mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [ReportGruppe] SET [ReportGruppeNr] = @ReportGruppeNr, [Bezeichnung] = @Be"& _
|
|
"zeichnung, [Beschreibung] = @Beschreibung, [Aktiv] = @Aktiv, [Erstellt_am] = @Er"& _
|
|
"stellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer WHERE (([ReportGru"& _
|
|
"ppeNr] = @Original_ReportGruppeNr) AND ((@IsNull_Bezeichnung = 1 AND [Bezeichnun"& _
|
|
"g] IS NULL) OR ([Bezeichnung] = @Original_Bezeichnung)) AND ((@IsNull_Beschreibu"& _
|
|
"ng = 1 AND [Beschreibung] IS NULL) OR ([Beschreibung] = @Original_Beschreibung))"& _
|
|
" AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Original_Aktiv)) AN"& _
|
|
"D ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Erstellt_am] = @Orig"& _
|
|
"inal_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am] IS NULL) OR ([M"& _
|
|
"utiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 AND [Mutierer] IS"& _
|
|
" NULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_ReportGruppeNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "ReportGruppeNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bezeichnung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bezeichnung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [ReportGruppeNr], [Bezeichnung], [Beschreibung], [Aktiv], [Erstellt_am], ["& _
|
|
"Mutiert_am], [Mutierer] FROM [ReportGruppe]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ReportGruppeDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ReportGruppeDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.ReportGruppeDataTable = New LPDataSet.ReportGruppeDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.ReportGruppeDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "ReportGruppe")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_ReportGruppeNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ReportGruppeNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 ReportGruppeNr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ReportGruppeNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
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", "4.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 ReportGruppeNr As Long, ByVal Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Original_ReportGruppeNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ReportGruppeNr,Long)
|
|
If (Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Bezeichnung,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ReportGruppeNr,Long)
|
|
If (Original_Bezeichnung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Bezeichnung,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Bezeichnung As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Original_ReportGruppeNr As Long, ByVal Original_Bezeichnung As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_ReportGruppeNr, Bezeichnung, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Original_ReportGruppeNr, Original_Bezeichnung, Original_Beschreibung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class SQLAbfragenTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "SQLAbfragen"
|
|
tableMapping.ColumnMappings.Add("SQLNr", "SQLNr")
|
|
tableMapping.ColumnMappings.Add("SQLScript", "SQLScript")
|
|
tableMapping.ColumnMappings.Add("Beschreibung", "Beschreibung")
|
|
tableMapping.ColumnMappings.Add("Aktiv", "Aktiv")
|
|
tableMapping.ColumnMappings.Add("Erstellt_am", "Erstellt_am")
|
|
tableMapping.ColumnMappings.Add("Mutiert_am", "Mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Mutierer", "Mutierer")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [SQLAbfragen] WHERE (([SQLNr] = @Original_SQLNr) AND ((@IsNull_SQLScr"& _
|
|
"ipt = 1 AND [SQLScript] IS NULL) OR ([SQLScript] = @Original_SQLScript)) AND ((@"& _
|
|
"IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) OR ([Beschreibung] = @Origin"& _
|
|
"al_Beschreibung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR ([Aktiv] = @Or"& _
|
|
"iginal_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS NULL) OR ([Ers"& _
|
|
"tellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 AND [Mutiert_am"& _
|
|
"] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull_Mutierer = 1 "& _
|
|
"AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQLNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SQLScript"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLScript"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQLScript"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQLScript"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [SQLAbfragen] ([SQLNr], [SQLScript], [Beschreibung], [Aktiv], [Erstel"& _
|
|
"lt_am], [Mutiert_am], [Mutierer]) VALUES (@SQLNr, @SQLScript, @Beschreibung, @Ak"& _
|
|
"tiv, @Erstellt_am, @Mutiert_am, @Mutierer)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQLNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQLScript"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQLScript"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [SQLAbfragen] SET [SQLNr] = @SQLNr, [SQLScript] = @SQLScript, [Beschreibun"& _
|
|
"g] = @Beschreibung, [Aktiv] = @Aktiv, [Erstellt_am] = @Erstellt_am, [Mutiert_am]"& _
|
|
" = @Mutiert_am, [Mutierer] = @Mutierer WHERE (([SQLNr] = @Original_SQLNr) AND (("& _
|
|
"@IsNull_SQLScript = 1 AND [SQLScript] IS NULL) OR ([SQLScript] = @Original_SQLSc"& _
|
|
"ript)) AND ((@IsNull_Beschreibung = 1 AND [Beschreibung] IS NULL) OR ([Beschreib"& _
|
|
"ung] = @Original_Beschreibung)) AND ((@IsNull_Aktiv = 1 AND [Aktiv] IS NULL) OR "& _
|
|
"([Aktiv] = @Original_Aktiv)) AND ((@IsNull_Erstellt_am = 1 AND [Erstellt_am] IS "& _
|
|
"NULL) OR ([Erstellt_am] = @Original_Erstellt_am)) AND ((@IsNull_Mutiert_am = 1 A"& _
|
|
"ND [Mutiert_am] IS NULL) OR ([Mutiert_am] = @Original_Mutiert_am)) AND ((@IsNull"& _
|
|
"_Mutierer = 1 AND [Mutierer] IS NULL) OR ([Mutierer] = @Original_Mutierer)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQLNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SQLScript"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQLScript"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQLNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SQLScript"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SQLScript"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SQLScript"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "SQLScript"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Beschreibung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Beschreibung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "Aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "Mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Mutierer"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Mutierer"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT [SQLNr], [SQLScript], [Beschreibung], [Aktiv], [Erstellt_am], [Mutiert_am]"& _
|
|
", [Mutierer] FROM [SQLAbfragen]"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT Aktiv, Beschreibung, Erstellt_am, Mutierer, Mutiert_am, SQLNr, SQLScript F"& _
|
|
"ROM SQLAbfragen WHERE (SQLNr = @sqlnr)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@sqlnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.Size = 4
|
|
param.SourceColumn = "SQLNr"
|
|
Me._commandCollection(1).Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SQLAbfragenDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.SQLAbfragenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.SQLAbfragenDataTable = New LPDataSet.SQLAbfragenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillBySQLNr(ByVal dataTable As LPDataSet.SQLAbfragenDataTable, ByVal sqlnr As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(sqlnr,Integer)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataBySQLNr(ByVal sqlnr As Integer) As LPDataSet.SQLAbfragenDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(sqlnr,Integer)
|
|
Dim dataTable As LPDataSet.SQLAbfragenDataTable = New LPDataSet.SQLAbfragenDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.SQLAbfragenDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "SQLAbfragen")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_SQLNr As Integer, ByVal Original_SQLScript As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SQLNr,Integer)
|
|
If (Original_SQLScript Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SQLScript,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 SQLNr As Integer, ByVal SQLScript As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(SQLNr,Integer)
|
|
If (SQLScript Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQLScript,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
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", "4.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 SQLNr As Integer, ByVal SQLScript As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Original_SQLNr As Integer, ByVal Original_SQLScript As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SQLNr,Integer)
|
|
If (SQLScript Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQLScript,String)
|
|
End If
|
|
If (Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Beschreibung,String)
|
|
End If
|
|
If (Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SQLNr,Integer)
|
|
If (Original_SQLScript Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SQLScript,String)
|
|
End If
|
|
If (Original_Beschreibung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Beschreibung,String)
|
|
End If
|
|
If (Original_Aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Mutierer.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Mutierer.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SQLScript As String, ByVal Beschreibung As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Erstellt_am As Global.System.Nullable(Of Date), ByVal Mutiert_am As Global.System.Nullable(Of Date), ByVal Mutierer As Global.System.Nullable(Of Long), ByVal Original_SQLNr As Integer, ByVal Original_SQLScript As String, ByVal Original_Beschreibung As String, ByVal Original_Aktiv As Global.System.Nullable(Of Boolean), ByVal Original_Erstellt_am As Global.System.Nullable(Of Date), ByVal Original_Mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Mutierer As Global.System.Nullable(Of Long)) As Integer
|
|
Return Me.Update(Original_SQLNr, SQLScript, Beschreibung, Aktiv, Erstellt_am, Mutiert_am, Mutierer, Original_SQLNr, Original_SQLScript, Original_Beschreibung, Original_Aktiv, Original_Erstellt_am, Original_Mutiert_am, Original_Mutierer)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class ZuteilungTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "Zuteilung"
|
|
tableMapping.ColumnMappings.Add("EintragNr", "EintragNr")
|
|
tableMapping.ColumnMappings.Add("FirmaBerufNr", "FirmaBerufNr")
|
|
tableMapping.ColumnMappings.Add("SchuelerBerufNr", "SchuelerBerufNr")
|
|
tableMapping.ColumnMappings.Add("aktiv", "aktiv")
|
|
tableMapping.ColumnMappings.Add("erstellt_am", "erstellt_am")
|
|
tableMapping.ColumnMappings.Add("mutiert_am", "mutiert_am")
|
|
tableMapping.ColumnMappings.Add("Bemerkung", "Bemerkung")
|
|
tableMapping.ColumnMappings.Add("SchuelerNr", "SchuelerNr")
|
|
tableMapping.ColumnMappings.Add("Zeitnr", "Zeitnr")
|
|
tableMapping.ColumnMappings.Add("Ansprechpartnernr", "Ansprechpartnernr")
|
|
tableMapping.ColumnMappings.Add("Prioritaet", "Prioritaet")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [Zuteilung] WHERE (([EintragNr] = @Original_EintragNr) AND ((@IsNull_"& _
|
|
"FirmaBerufNr = 1 AND [FirmaBerufNr] IS NULL) OR ([FirmaBerufNr] = @Original_Firm"& _
|
|
"aBerufNr)) AND ((@IsNull_SchuelerBerufNr = 1 AND [SchuelerBerufNr] IS NULL) OR ("& _
|
|
"[SchuelerBerufNr] = @Original_SchuelerBerufNr)) AND ((@IsNull_aktiv = 1 AND [akt"& _
|
|
"iv] IS NULL) OR ([aktiv] = @Original_aktiv)) AND ((@IsNull_erstellt_am = 1 AND ["& _
|
|
"erstellt_am] IS NULL) OR ([erstellt_am] = @Original_erstellt_am)) AND ((@IsNull_"& _
|
|
"mutiert_am = 1 AND [mutiert_am] IS NULL) OR ([mutiert_am] = @Original_mutiert_am"& _
|
|
")) AND ((@IsNull_Bemerkung = 1 AND [Bemerkung] IS NULL) OR ([Bemerkung] = @Origi"& _
|
|
"nal_Bemerkung)) AND ((@IsNull_Ansprechpartnernr = 1 AND [Ansprechpartnernr] IS N"& _
|
|
"ULL) OR ([Ansprechpartnernr] = @Original_Ansprechpartnernr)) AND ((@IsNull_Schue"& _
|
|
"lerNr = 1 AND [SchuelerNr] IS NULL) OR ([SchuelerNr] = @Original_SchuelerNr)) AN"& _
|
|
"D ((@IsNull_Zeitnr = 1 AND [Zeitnr] IS NULL) OR ([Zeitnr] = @Original_Zeitnr)) A"& _
|
|
"ND ((@IsNull_Prioritaet = 1 AND [Prioritaet] IS NULL) OR ([Prioritaet] = @Origin"& _
|
|
"al_Prioritaet)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Zeitnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Zeitnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [Zuteilung] ([FirmaBerufNr], [SchuelerBerufNr], [aktiv], [erstellt_am"& _
|
|
"], [mutiert_am], [Bemerkung], [Ansprechpartnernr], [SchuelerNr], [Zeitnr], [Prio"& _
|
|
"ritaet]) VALUES (@FirmaBerufNr, @SchuelerBerufNr, @aktiv, @erstellt_am, @mutiert"& _
|
|
"_am, @Bemerkung, @Ansprechpartnernr, @SchuelerNr, @Zeitnr, @Prioritaet)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Zeitnr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [Zuteilung] SET [FirmaBerufNr] = @FirmaBerufNr, [SchuelerBerufNr] = @Schue"& _
|
|
"lerBerufNr, [aktiv] = @aktiv, [erstellt_am] = @erstellt_am, [mutiert_am] = @muti"& _
|
|
"ert_am, [Bemerkung] = @Bemerkung, [Ansprechpartnernr] = @Ansprechpartnernr, [Sch"& _
|
|
"uelerNr] = @SchuelerNr, [Zeitnr] = @Zeitnr, [Prioritaet] = @Prioritaet WHERE ((["& _
|
|
"EintragNr] = @Original_EintragNr) AND ((@IsNull_FirmaBerufNr = 1 AND [FirmaBeruf"& _
|
|
"Nr] IS NULL) OR ([FirmaBerufNr] = @Original_FirmaBerufNr)) AND ((@IsNull_Schuele"& _
|
|
"rBerufNr = 1 AND [SchuelerBerufNr] IS NULL) OR ([SchuelerBerufNr] = @Original_Sc"& _
|
|
"huelerBerufNr)) AND ((@IsNull_aktiv = 1 AND [aktiv] IS NULL) OR ([aktiv] = @Orig"& _
|
|
"inal_aktiv)) AND ((@IsNull_erstellt_am = 1 AND [erstellt_am] IS NULL) OR ([erste"& _
|
|
"llt_am] = @Original_erstellt_am)) AND ((@IsNull_mutiert_am = 1 AND [mutiert_am] "& _
|
|
"IS NULL) OR ([mutiert_am] = @Original_mutiert_am)) AND ((@IsNull_Bemerkung = 1 A"& _
|
|
"ND [Bemerkung] IS NULL) OR ([Bemerkung] = @Original_Bemerkung)) AND ((@IsNull_An"& _
|
|
"sprechpartnernr = 1 AND [Ansprechpartnernr] IS NULL) OR ([Ansprechpartnernr] = @"& _
|
|
"Original_Ansprechpartnernr)) AND ((@IsNull_SchuelerNr = 1 AND [SchuelerNr] IS NU"& _
|
|
"LL) OR ([SchuelerNr] = @Original_SchuelerNr)) AND ((@IsNull_Zeitnr = 1 AND [Zeit"& _
|
|
"nr] IS NULL) OR ([Zeitnr] = @Original_Zeitnr)) AND ((@IsNull_Prioritaet = 1 AND "& _
|
|
"[Prioritaet] IS NULL) OR ([Prioritaet] = @Original_Prioritaet)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Zeitnr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_FirmaBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "FirmaBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerBerufNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerBerufNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_aktiv"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_aktiv"
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.DbType = Global.System.Data.DbType.[Boolean]
|
|
param.SourceColumn = "aktiv"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_erstellt_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "erstellt_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_mutiert_am"
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.DbType = Global.System.Data.DbType.DateTime
|
|
param.SourceColumn = "mutiert_am"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Bemerkung"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "Bemerkung"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Ansprechpartnernr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Ansprechpartnernr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_SchuelerNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "SchuelerNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Zeitnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Zeitnr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Zeitnr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Prioritaet"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "Prioritaet"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT EintragNr, FirmaBerufNr, SchuelerBerufNr, aktiv, erstellt_am, mutiert_am, "& _
|
|
"Bemerkung, Ansprechpartnernr, SchuelerNr, Zeitnr, Prioritaet FROM Zuteilung"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ZuteilungDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.ZuteilungDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.ZuteilungDataTable = New LPDataSet.ZuteilungDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.ZuteilungDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "Zuteilung")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_EintragNr As Long, ByVal Original_FirmaBerufNr As Global.System.Nullable(Of Long), ByVal Original_SchuelerBerufNr As Global.System.Nullable(Of Long), ByVal Original_aktiv As Global.System.Nullable(Of Boolean), ByVal Original_erstellt_am As Global.System.Nullable(Of Date), ByVal Original_mutiert_am As Global.System.Nullable(Of Date), ByVal Original_Bemerkung As String, ByVal Original_Ansprechpartnernr As Global.System.Nullable(Of Long), ByVal Original_SchuelerNr As Global.System.Nullable(Of Long), ByVal Original_Zeitnr As Global.System.Nullable(Of Long), ByVal Original_Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_EintragNr,Long)
|
|
If (Original_FirmaBerufNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FirmaBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SchuelerBerufNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SchuelerBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_aktiv.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Ansprechpartnernr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Ansprechpartnernr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Zeitnr.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Zeitnr.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Prioritaet.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
End If
|
|
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", "4.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 FirmaBerufNr As Global.System.Nullable(Of Long), ByVal SchuelerBerufNr As Global.System.Nullable(Of Long), ByVal aktiv As Global.System.Nullable(Of Boolean), ByVal erstellt_am As Global.System.Nullable(Of Date), ByVal mutiert_am As Global.System.Nullable(Of Date), ByVal Bemerkung As String, ByVal Ansprechpartnernr As Global.System.Nullable(Of Long), ByVal SchuelerNr As Global.System.Nullable(Of Long), ByVal Zeitnr As Global.System.Nullable(Of Long), ByVal Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
If (FirmaBerufNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirmaBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SchuelerBerufNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchuelerBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (aktiv.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Ansprechpartnernr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Ansprechpartnernr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Zeitnr.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(Zeitnr.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Prioritaet.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
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", "4.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 FirmaBerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal SchuelerBerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Bemerkung As String, _
|
|
ByVal Ansprechpartnernr As Global.System.Nullable(Of Long), _
|
|
ByVal SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Zeitnr As Global.System.Nullable(Of Long), _
|
|
ByVal Prioritaet As Global.System.Nullable(Of Long), _
|
|
ByVal Original_EintragNr As Long, _
|
|
ByVal Original_FirmaBerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerBerufNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_aktiv As Global.System.Nullable(Of Boolean), _
|
|
ByVal Original_erstellt_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_mutiert_am As Global.System.Nullable(Of Date), _
|
|
ByVal Original_Bemerkung As String, _
|
|
ByVal Original_Ansprechpartnernr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_SchuelerNr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Zeitnr As Global.System.Nullable(Of Long), _
|
|
ByVal Original_Prioritaet As Global.System.Nullable(Of Long)) As Integer
|
|
If (FirmaBerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirmaBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SchuelerBerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchuelerBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Bemerkung,String)
|
|
End If
|
|
If (Ansprechpartnernr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Ansprechpartnernr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Zeitnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Zeitnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Prioritaet.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_EintragNr,Long)
|
|
If (Original_FirmaBerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_FirmaBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SchuelerBerufNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_SchuelerBerufNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_aktiv.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_aktiv.Value,Boolean)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_erstellt_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_erstellt_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_mutiert_am.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_mutiert_am.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Bemerkung Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Bemerkung,String)
|
|
End If
|
|
If (Original_Ansprechpartnernr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Ansprechpartnernr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_SchuelerNr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_SchuelerNr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Zeitnr.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Zeitnr.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_Prioritaet.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Prioritaet.Value,Long)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
End If
|
|
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>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class RichTextTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SQLite.SQLiteConnection
|
|
|
|
Private _transaction As Global.System.Data.SQLite.SQLiteTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SQLite.SQLiteCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SQLite.SQLiteDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SQLite.SQLiteConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SQLite.SQLiteCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SQLite.SQLiteTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SQLite.SQLiteCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SQLite.SQLiteDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "RichText"
|
|
tableMapping.ColumnMappings.Add("EintragNr", "EintragNr")
|
|
tableMapping.ColumnMappings.Add("Richtextfile", "Richtextfile")
|
|
tableMapping.ColumnMappings.Add("RTFText", "RTFText")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [RichText] WHERE (([EintragNr] = @Original_EintragNr) AND ((@IsNull_R"& _
|
|
"ichtextfile = 1 AND [Richtextfile] IS NULL) OR ([Richtextfile] = @Original_Richt"& _
|
|
"extfile)) AND ((@IsNull_RTFText = 1 AND [RTFText] IS NULL) OR ([RTFText] = @Orig"& _
|
|
"inal_RTFText)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Dim param As Global.System.Data.SQLite.SQLiteParameter = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Richtextfile"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "Richtextfile"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_RTFText"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "RTFText"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_RTFText"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "RTFText"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.DeleteCommand.Parameters.Add(param)
|
|
Me._adapter.InsertCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [RichText] ([EintragNr], [Richtextfile], [RTFText]) VALUES (@EintragN"& _
|
|
"r, @Richtextfile, @RTFText)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "Richtextfile"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@RTFText"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "RTFText"
|
|
Me._adapter.InsertCommand.Parameters.Add(param)
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [RichText] SET [EintragNr] = @EintragNr, [Richtextfile] = @Richtextfile, ["& _
|
|
"RTFText] = @RTFText WHERE (([EintragNr] = @Original_EintragNr) AND ((@IsNull_Ric"& _
|
|
"htextfile = 1 AND [Richtextfile] IS NULL) OR ([Richtextfile] = @Original_Richtex"& _
|
|
"tfile)) AND ((@IsNull_RTFText = 1 AND [RTFText] IS NULL) OR ([RTFText] = @Origin"& _
|
|
"al_RTFText)))"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "Richtextfile"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@RTFText"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "RTFText"
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_EintragNr"
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.DbType = Global.System.Data.DbType.Int64
|
|
param.SourceColumn = "EintragNr"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "Richtextfile"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_Richtextfile"
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.DbType = Global.System.Data.DbType.Binary
|
|
param.SourceColumn = "Richtextfile"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@IsNull_RTFText"
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.DbType = Global.System.Data.DbType.Int32
|
|
param.SourceColumn = "RTFText"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
param.SourceColumnNullMapping = true
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
param = New Global.System.Data.SQLite.SQLiteParameter()
|
|
param.ParameterName = "@Original_RTFText"
|
|
param.DbType = Global.System.Data.DbType.[String]
|
|
param.SourceColumn = "RTFText"
|
|
param.SourceVersion = Global.System.Data.DataRowVersion.Original
|
|
Me._adapter.UpdateCommand.Parameters.Add(param)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SQLite.SQLiteConnection()
|
|
Me._connection.ConnectionString = Global.LP.My.MySettings.Default.LPConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SQLite.SQLiteCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SQLite.SQLiteCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT EintragNr, Richtextfile, RTFText FROM RichText"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.RichTextDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 LPDataSet.RichTextDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As LPDataSet.RichTextDataTable = New LPDataSet.RichTextDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As LPDataSet.RichTextDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As LPDataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "RichText")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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_EintragNr As Long, ByVal Original_Richtextfile() As Byte, ByVal Original_RTFText As String) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_EintragNr,Long)
|
|
If (Original_Richtextfile Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Richtextfile,Byte())
|
|
End If
|
|
If (Original_RTFText Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_RTFText,String)
|
|
End If
|
|
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", "4.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 EintragNr As Long, ByVal Richtextfile() As Byte, ByVal RTFText As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(EintragNr,Long)
|
|
If (Richtextfile Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Richtextfile,Byte())
|
|
End If
|
|
If (RTFText Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(RTFText,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", "4.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 EintragNr As Long, ByVal Richtextfile() As Byte, ByVal RTFText As String, ByVal Original_EintragNr As Long, ByVal Original_Richtextfile() As Byte, ByVal Original_RTFText As String) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(EintragNr,Long)
|
|
If (Richtextfile Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Richtextfile,Byte())
|
|
End If
|
|
If (RTFText Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(RTFText,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_EintragNr,Long)
|
|
If (Original_Richtextfile Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Richtextfile,Byte())
|
|
End If
|
|
If (Original_RTFText Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_RTFText,String)
|
|
End If
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 Richtextfile() As Byte, ByVal RTFText As String, ByVal Original_EintragNr As Long, ByVal Original_Richtextfile() As Byte, ByVal Original_RTFText As String) As Integer
|
|
Return Me.Update(Original_EintragNr, Richtextfile, RTFText, Original_EintragNr, Original_Richtextfile, Original_RTFText)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
|
|
"esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
|
|
Partial Public Class TableAdapterManager
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private _updateOrder As UpdateOrderOption
|
|
|
|
Private _ansprechpartnerTableAdapter As AnsprechpartnerTableAdapter
|
|
|
|
Private _berufTableAdapter As BerufTableAdapter
|
|
|
|
Private _firmaTableAdapter As FirmaTableAdapter
|
|
|
|
Private _firmaBerufTableAdapter As FirmaBerufTableAdapter
|
|
|
|
Private _key_tabelleTableAdapter As key_tabelleTableAdapter
|
|
|
|
Private _klasseTableAdapter As KlasseTableAdapter
|
|
|
|
Private _schulhausTableAdapter As SchulhausTableAdapter
|
|
|
|
Private _spaltenTableAdapter As spaltenTableAdapter
|
|
|
|
Private _sysdiagramsTableAdapter As sysdiagramsTableAdapter
|
|
|
|
Private _zeitenTableAdapter As ZeitenTableAdapter
|
|
|
|
Private _schuelerTableAdapter As SchuelerTableAdapter
|
|
|
|
Private _schuelerBerufTableAdapter As SchuelerBerufTableAdapter
|
|
|
|
Private _reportTableAdapter As ReportTableAdapter
|
|
|
|
Private _optionenTableAdapter As OptionenTableAdapter
|
|
|
|
Private _reportGruppeTableAdapter As ReportGruppeTableAdapter
|
|
|
|
Private _sQLAbfragenTableAdapter As SQLAbfragenTableAdapter
|
|
|
|
Private _zuteilungTableAdapter As ZuteilungTableAdapter
|
|
|
|
Private _richTextTableAdapter As RichTextTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property UpdateOrder() As UpdateOrderOption
|
|
Get
|
|
Return Me._updateOrder
|
|
End Get
|
|
Set
|
|
Me._updateOrder = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 AnsprechpartnerTableAdapter() As AnsprechpartnerTableAdapter
|
|
Get
|
|
Return Me._ansprechpartnerTableAdapter
|
|
End Get
|
|
Set
|
|
Me._ansprechpartnerTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 BerufTableAdapter() As BerufTableAdapter
|
|
Get
|
|
Return Me._berufTableAdapter
|
|
End Get
|
|
Set
|
|
Me._berufTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 FirmaTableAdapter() As FirmaTableAdapter
|
|
Get
|
|
Return Me._firmaTableAdapter
|
|
End Get
|
|
Set
|
|
Me._firmaTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 FirmaBerufTableAdapter() As FirmaBerufTableAdapter
|
|
Get
|
|
Return Me._firmaBerufTableAdapter
|
|
End Get
|
|
Set
|
|
Me._firmaBerufTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 key_tabelleTableAdapter() As key_tabelleTableAdapter
|
|
Get
|
|
Return Me._key_tabelleTableAdapter
|
|
End Get
|
|
Set
|
|
Me._key_tabelleTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 KlasseTableAdapter() As KlasseTableAdapter
|
|
Get
|
|
Return Me._klasseTableAdapter
|
|
End Get
|
|
Set
|
|
Me._klasseTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SchulhausTableAdapter() As SchulhausTableAdapter
|
|
Get
|
|
Return Me._schulhausTableAdapter
|
|
End Get
|
|
Set
|
|
Me._schulhausTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 spaltenTableAdapter() As spaltenTableAdapter
|
|
Get
|
|
Return Me._spaltenTableAdapter
|
|
End Get
|
|
Set
|
|
Me._spaltenTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 sysdiagramsTableAdapter() As sysdiagramsTableAdapter
|
|
Get
|
|
Return Me._sysdiagramsTableAdapter
|
|
End Get
|
|
Set
|
|
Me._sysdiagramsTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 ZeitenTableAdapter() As ZeitenTableAdapter
|
|
Get
|
|
Return Me._zeitenTableAdapter
|
|
End Get
|
|
Set
|
|
Me._zeitenTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SchuelerTableAdapter() As SchuelerTableAdapter
|
|
Get
|
|
Return Me._schuelerTableAdapter
|
|
End Get
|
|
Set
|
|
Me._schuelerTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SchuelerBerufTableAdapter() As SchuelerBerufTableAdapter
|
|
Get
|
|
Return Me._schuelerBerufTableAdapter
|
|
End Get
|
|
Set
|
|
Me._schuelerBerufTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 ReportTableAdapter() As ReportTableAdapter
|
|
Get
|
|
Return Me._reportTableAdapter
|
|
End Get
|
|
Set
|
|
Me._reportTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 OptionenTableAdapter() As OptionenTableAdapter
|
|
Get
|
|
Return Me._optionenTableAdapter
|
|
End Get
|
|
Set
|
|
Me._optionenTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 ReportGruppeTableAdapter() As ReportGruppeTableAdapter
|
|
Get
|
|
Return Me._reportGruppeTableAdapter
|
|
End Get
|
|
Set
|
|
Me._reportGruppeTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 SQLAbfragenTableAdapter() As SQLAbfragenTableAdapter
|
|
Get
|
|
Return Me._sQLAbfragenTableAdapter
|
|
End Get
|
|
Set
|
|
Me._sQLAbfragenTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 ZuteilungTableAdapter() As ZuteilungTableAdapter
|
|
Get
|
|
Return Me._zuteilungTableAdapter
|
|
End Get
|
|
Set
|
|
Me._zuteilungTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 RichTextTableAdapter() As RichTextTableAdapter
|
|
Get
|
|
Return Me._richTextTableAdapter
|
|
End Get
|
|
Set
|
|
Me._richTextTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Property BackupDataSetBeforeUpdate() As Boolean
|
|
Get
|
|
Return Me._backupDataSetBeforeUpdate
|
|
End Get
|
|
Set
|
|
Me._backupDataSetBeforeUpdate = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public Property Connection() As Global.System.Data.IDbConnection
|
|
Get
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return Me._connection
|
|
End If
|
|
If ((Not (Me._ansprechpartnerTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._ansprechpartnerTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._ansprechpartnerTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._berufTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._berufTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._berufTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._firmaTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._firmaTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._firmaTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._firmaBerufTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._firmaBerufTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._firmaBerufTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._key_tabelleTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._key_tabelleTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._key_tabelleTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._klasseTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._klasseTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._klasseTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._schulhausTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._schulhausTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._schulhausTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._spaltenTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._spaltenTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._spaltenTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._sysdiagramsTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._sysdiagramsTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._sysdiagramsTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._zeitenTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._zeitenTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._zeitenTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._schuelerTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._schuelerTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._schuelerTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._schuelerBerufTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._schuelerBerufTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._schuelerBerufTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._reportTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._reportTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._reportTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._optionenTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._optionenTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._optionenTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._reportGruppeTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._reportGruppeTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._reportGruppeTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._sQLAbfragenTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._sQLAbfragenTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._sQLAbfragenTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._zuteilungTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._zuteilungTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._zuteilungTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._richTextTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._richTextTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._richTextTableAdapter.Connection
|
|
End If
|
|
Return Nothing
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
Return count
|
|
End Get
|
|
End Property
|
|
|
|
'''<summary>
|
|
'''Update rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As LPDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Firma.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._firmaTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Report.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._reportTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Optionen.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._optionenTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.SchuelerBeruf.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._schuelerBerufTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Schueler.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._schuelerTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zuteilung.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._zuteilungTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.RichText.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._richTextTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.ReportGruppe.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._reportGruppeTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.SQLAbfragen.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._sQLAbfragenTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Zeiten.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._zeitenTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.FirmaBeruf.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._firmaBerufTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.key_tabelle.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._key_tabelleTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Ansprechpartner.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._ansprechpartnerTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Beruf.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._berufTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.spalten.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._spaltenTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.sysdiagrams.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._sysdiagramsTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Klasse.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._klasseTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Schulhaus.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._schulhausTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Insert rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As LPDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Firma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._firmaTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Report.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._reportTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Optionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._optionenTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.SchuelerBeruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._schuelerBerufTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Schueler.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._schuelerTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Zuteilung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._zuteilungTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.RichText.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._richTextTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.ReportGruppe.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._reportGruppeTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.SQLAbfragen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._sQLAbfragenTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Zeiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._zeitenTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.FirmaBeruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._firmaBerufTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.key_tabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._key_tabelleTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Ansprechpartner.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._ansprechpartnerTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Beruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._berufTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.spalten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._spaltenTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.sysdiagrams.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._sysdiagramsTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Klasse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._klasseTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.Schulhaus.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._schulhausTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Delete rows in bottom-up order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As LPDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Schulhaus.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._schulhausTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Klasse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._klasseTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.sysdiagrams.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._sysdiagramsTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.spalten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._spaltenTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Beruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._berufTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Ansprechpartner.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._ansprechpartnerTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.key_tabelle.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._key_tabelleTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.FirmaBeruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._firmaBerufTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zeiten.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._zeitenTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.SQLAbfragen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._sQLAbfragenTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.ReportGruppe.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._reportGruppeTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.RichText.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._richTextTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Zuteilung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._zuteilungTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Schueler.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._schuelerTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.SchuelerBeruf.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._schuelerBerufTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Optionen.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._optionenTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Report.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._reportTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Firma.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._firmaTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
|
|
If ((updatedRows Is Nothing) _
|
|
OrElse (updatedRows.Length < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
If ((allAddedRows Is Nothing) _
|
|
OrElse (allAddedRows.Count < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim i As Integer = 0
|
|
Do While (i < updatedRows.Length)
|
|
Dim row As Global.System.Data.DataRow = updatedRows(i)
|
|
If (allAddedRows.Contains(row) = false) Then
|
|
realUpdatedRows.Add(row)
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
Return realUpdatedRows.ToArray
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update all changes to the dataset.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As LPDataSet) As Integer
|
|
If (dataSet Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("dataSet")
|
|
End If
|
|
If (dataSet.HasChanges = false) Then
|
|
Return 0
|
|
End If
|
|
If ((Not (Me._ansprechpartnerTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._ansprechpartnerTableAdapter.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._berufTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._berufTableAdapter.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._firmaTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._firmaTableAdapter.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._firmaBerufTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._firmaBerufTableAdapter.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._key_tabelleTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._key_tabelleTableAdapter.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._klasseTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._klasseTableAdapter.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._schulhausTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._schulhausTableAdapter.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._spaltenTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._spaltenTableAdapter.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._sysdiagramsTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._sysdiagramsTableAdapter.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._zeitenTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._zeitenTableAdapter.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._schuelerTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._schuelerTableAdapter.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._schuelerBerufTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._schuelerBerufTableAdapter.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._reportTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._reportTableAdapter.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._optionenTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._optionenTableAdapter.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._reportGruppeTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._reportGruppeTableAdapter.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._sQLAbfragenTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._sQLAbfragenTableAdapter.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._zuteilungTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._zuteilungTableAdapter.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._richTextTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._richTextTableAdapter.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
|
|
Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
|
|
If (workConnection Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _
|
|
"dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _
|
|
"t.")
|
|
End If
|
|
Dim workConnOpened As Boolean = false
|
|
If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
|
|
= Global.System.Data.ConnectionState.Broken) Then
|
|
workConnection.Close
|
|
End If
|
|
If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
|
|
workConnection.Open
|
|
workConnOpened = true
|
|
End If
|
|
Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
|
|
If (workTransaction Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _
|
|
"ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _
|
|
"ion nicht zu.")
|
|
End If
|
|
Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
|
|
Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
|
|
Dim result As Integer = 0
|
|
Dim backupDataSet As Global.System.Data.DataSet = Nothing
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
backupDataSet = New Global.System.Data.DataSet()
|
|
backupDataSet.Merge(dataSet)
|
|
End If
|
|
Try
|
|
'---- Prepare for update -----------
|
|
'
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._ansprechpartnerTableAdapter, Me._ansprechpartnerTableAdapter.Connection)
|
|
Me._ansprechpartnerTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._ansprechpartnerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._ansprechpartnerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._ansprechpartnerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._ansprechpartnerTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._berufTableAdapter, Me._berufTableAdapter.Connection)
|
|
Me._berufTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._berufTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._berufTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._berufTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._berufTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._firmaTableAdapter, Me._firmaTableAdapter.Connection)
|
|
Me._firmaTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._firmaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._firmaTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._firmaTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._firmaTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._firmaBerufTableAdapter, Me._firmaBerufTableAdapter.Connection)
|
|
Me._firmaBerufTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._firmaBerufTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._firmaBerufTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._firmaBerufTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._firmaBerufTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._key_tabelleTableAdapter, Me._key_tabelleTableAdapter.Connection)
|
|
Me._key_tabelleTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._key_tabelleTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._key_tabelleTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._key_tabelleTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._key_tabelleTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._klasseTableAdapter, Me._klasseTableAdapter.Connection)
|
|
Me._klasseTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._klasseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._klasseTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._klasseTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._klasseTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._schulhausTableAdapter, Me._schulhausTableAdapter.Connection)
|
|
Me._schulhausTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schulhausTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._schulhausTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._schulhausTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._schulhausTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._spaltenTableAdapter, Me._spaltenTableAdapter.Connection)
|
|
Me._spaltenTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._spaltenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._spaltenTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._spaltenTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._spaltenTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._sysdiagramsTableAdapter, Me._sysdiagramsTableAdapter.Connection)
|
|
Me._sysdiagramsTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._sysdiagramsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._sysdiagramsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._sysdiagramsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._sysdiagramsTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._zeitenTableAdapter, Me._zeitenTableAdapter.Connection)
|
|
Me._zeitenTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._zeitenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._zeitenTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._zeitenTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._zeitenTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._schuelerTableAdapter, Me._schuelerTableAdapter.Connection)
|
|
Me._schuelerTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schuelerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._schuelerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._schuelerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._schuelerTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._schuelerBerufTableAdapter, Me._schuelerBerufTableAdapter.Connection)
|
|
Me._schuelerBerufTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schuelerBerufTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._schuelerBerufTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._schuelerBerufTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._schuelerBerufTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._reportTableAdapter, Me._reportTableAdapter.Connection)
|
|
Me._reportTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._reportTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._reportTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._reportTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._reportTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._optionenTableAdapter, Me._optionenTableAdapter.Connection)
|
|
Me._optionenTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._optionenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._optionenTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._optionenTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._optionenTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._reportGruppeTableAdapter, Me._reportGruppeTableAdapter.Connection)
|
|
Me._reportGruppeTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._reportGruppeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._reportGruppeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._reportGruppeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._reportGruppeTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._sQLAbfragenTableAdapter, Me._sQLAbfragenTableAdapter.Connection)
|
|
Me._sQLAbfragenTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._sQLAbfragenTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._sQLAbfragenTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._sQLAbfragenTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._sQLAbfragenTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._zuteilungTableAdapter, Me._zuteilungTableAdapter.Connection)
|
|
Me._zuteilungTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._zuteilungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._zuteilungTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._zuteilungTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._zuteilungTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._richTextTableAdapter, Me._richTextTableAdapter.Connection)
|
|
Me._richTextTableAdapter.Connection = CType(workConnection,Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._richTextTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SQLite.SQLiteTransaction)
|
|
If Me._richTextTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._richTextTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._richTextTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
'
|
|
'---- Perform updates -----------
|
|
'
|
|
If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
Else
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
End If
|
|
result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
|
|
'
|
|
'---- Commit updates -----------
|
|
'
|
|
workTransaction.Commit
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
If (0 < allChangedRows.Count) Then
|
|
Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allChangedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
Catch ex As Global.System.Exception
|
|
workTransaction.Rollback
|
|
'---- Restore the dataset -----------
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
|
|
dataSet.Clear
|
|
dataSet.Merge(backupDataSet)
|
|
Else
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
row.SetAdded
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End If
|
|
Throw ex
|
|
Finally
|
|
If workConnOpened Then
|
|
workConnection.Close
|
|
End If
|
|
If (Not (Me._ansprechpartnerTableAdapter) Is Nothing) Then
|
|
Me._ansprechpartnerTableAdapter.Connection = CType(revertConnections(Me._ansprechpartnerTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._ansprechpartnerTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._berufTableAdapter) Is Nothing) Then
|
|
Me._berufTableAdapter.Connection = CType(revertConnections(Me._berufTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._berufTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._firmaTableAdapter) Is Nothing) Then
|
|
Me._firmaTableAdapter.Connection = CType(revertConnections(Me._firmaTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._firmaTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._firmaBerufTableAdapter) Is Nothing) Then
|
|
Me._firmaBerufTableAdapter.Connection = CType(revertConnections(Me._firmaBerufTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._firmaBerufTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._key_tabelleTableAdapter) Is Nothing) Then
|
|
Me._key_tabelleTableAdapter.Connection = CType(revertConnections(Me._key_tabelleTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._key_tabelleTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._klasseTableAdapter) Is Nothing) Then
|
|
Me._klasseTableAdapter.Connection = CType(revertConnections(Me._klasseTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._klasseTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._schulhausTableAdapter) Is Nothing) Then
|
|
Me._schulhausTableAdapter.Connection = CType(revertConnections(Me._schulhausTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schulhausTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._spaltenTableAdapter) Is Nothing) Then
|
|
Me._spaltenTableAdapter.Connection = CType(revertConnections(Me._spaltenTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._spaltenTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._sysdiagramsTableAdapter) Is Nothing) Then
|
|
Me._sysdiagramsTableAdapter.Connection = CType(revertConnections(Me._sysdiagramsTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._sysdiagramsTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._zeitenTableAdapter) Is Nothing) Then
|
|
Me._zeitenTableAdapter.Connection = CType(revertConnections(Me._zeitenTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._zeitenTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._schuelerTableAdapter) Is Nothing) Then
|
|
Me._schuelerTableAdapter.Connection = CType(revertConnections(Me._schuelerTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schuelerTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._schuelerBerufTableAdapter) Is Nothing) Then
|
|
Me._schuelerBerufTableAdapter.Connection = CType(revertConnections(Me._schuelerBerufTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._schuelerBerufTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._reportTableAdapter) Is Nothing) Then
|
|
Me._reportTableAdapter.Connection = CType(revertConnections(Me._reportTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._reportTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._optionenTableAdapter) Is Nothing) Then
|
|
Me._optionenTableAdapter.Connection = CType(revertConnections(Me._optionenTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._optionenTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._reportGruppeTableAdapter) Is Nothing) Then
|
|
Me._reportGruppeTableAdapter.Connection = CType(revertConnections(Me._reportGruppeTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._reportGruppeTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._sQLAbfragenTableAdapter) Is Nothing) Then
|
|
Me._sQLAbfragenTableAdapter.Connection = CType(revertConnections(Me._sQLAbfragenTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._sQLAbfragenTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._zuteilungTableAdapter) Is Nothing) Then
|
|
Me._zuteilungTableAdapter.Connection = CType(revertConnections(Me._zuteilungTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._zuteilungTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._richTextTableAdapter) Is Nothing) Then
|
|
Me._richTextTableAdapter.Connection = CType(revertConnections(Me._richTextTableAdapter),Global.System.Data.SQLite.SQLiteConnection)
|
|
Me._richTextTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
|
|
Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
|
|
adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
|
|
Dim i As Integer = 0
|
|
Do While (i < adapters.Length)
|
|
Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
|
|
adapter.AcceptChangesDuringUpdate = true
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End Try
|
|
Return result
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return true
|
|
End If
|
|
If ((Me.Connection Is Nothing) _
|
|
OrElse (inputConnection Is Nothing)) Then
|
|
Return true
|
|
End If
|
|
If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
|
|
Return true
|
|
End If
|
|
Return false
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update Order Option
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Enum UpdateOrderOption
|
|
|
|
InsertUpdateDelete = 0
|
|
|
|
UpdateInsertDelete = 1
|
|
End Enum
|
|
|
|
'''<summary>
|
|
'''Used to sort self-referenced table's rows
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Class SelfReferenceComparer
|
|
Inherits Object
|
|
Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
|
|
|
|
Private _relation As Global.System.Data.DataRelation
|
|
|
|
Private _childFirst As Integer
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
MyBase.New
|
|
Me._relation = relation
|
|
If childFirst Then
|
|
Me._childFirst = -1
|
|
Else
|
|
Me._childFirst = 1
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
|
|
Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
|
|
Dim root As Global.System.Data.DataRow = row
|
|
distance = 0
|
|
|
|
Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
|
|
traversedRows(row) = row
|
|
|
|
Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Do While ((Not (parent) Is Nothing) _
|
|
AndAlso (traversedRows.ContainsKey(parent) = false))
|
|
distance = (distance + 1)
|
|
root = parent
|
|
traversedRows(parent) = parent
|
|
parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Loop
|
|
|
|
If (distance = 0) Then
|
|
traversedRows.Clear
|
|
traversedRows(row) = row
|
|
parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
|
|
Do While ((Not (parent) Is Nothing) _
|
|
AndAlso (traversedRows.ContainsKey(parent) = false))
|
|
distance = (distance + 1)
|
|
root = parent
|
|
traversedRows(parent) = parent
|
|
parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
|
|
Loop
|
|
End If
|
|
|
|
Return root
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
|
Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
|
|
If Object.ReferenceEquals(row1, row2) Then
|
|
Return 0
|
|
End If
|
|
If (row1 Is Nothing) Then
|
|
Return -1
|
|
End If
|
|
If (row2 Is Nothing) Then
|
|
Return 1
|
|
End If
|
|
|
|
Dim distance1 As Integer = 0
|
|
Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
|
|
|
|
Dim distance2 As Integer = 0
|
|
Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
|
|
|
|
If Object.ReferenceEquals(root1, root2) Then
|
|
Return (Me._childFirst * distance1.CompareTo(distance2))
|
|
Else
|
|
Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
|
|
AndAlso (Not (root2.Table) Is Nothing)))
|
|
If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
|
|
Return -1
|
|
Else
|
|
Return 1
|
|
End If
|
|
End If
|
|
End Function
|
|
End Class
|
|
End Class
|
|
End Namespace
|