'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.832
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
System.Xml.Serialization.XmlRootAttribute("SynchroniqCodeBaseDataSet"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class SynchroniqCodeBaseDataSet
Inherits System.Data.DataSet
Private tableMainCode As MainCodeDataTable
Private _schemaSerializationMode As System.Data.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As 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) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("MainCode")) Is Nothing) Then
MyBase.Tables.Add(New MainCodeDataTable(ds.Tables("MainCode")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property MainCode() As MainCodeDataTable
Get
Return Me.tableMainCode
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.BrowsableAttribute(true), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataSet
Dim cln As SynchroniqCodeBaseDataSet = CType(MyBase.Clone,SynchroniqCodeBaseDataSet)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("MainCode")) Is Nothing) Then
MyBase.Tables.Add(New MainCodeDataTable(ds.Tables("MainCode")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableMainCode = CType(MyBase.Tables("MainCode"),MainCodeDataTable)
If (initTable = true) Then
If (Not (Me.tableMainCode) Is Nothing) Then
Me.tableMainCode.InitVars
End If
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.DataSetName = "SynchroniqCodeBaseDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/SynchroniqCodeBaseDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
Me.tableMainCode = New MainCodeDataTable
MyBase.Tables.Add(Me.tableMainCode)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeMainCode() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim ds As SynchroniqCodeBaseDataSet = New SynchroniqCodeBaseDataSet
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
xs.Add(ds.GetSchemaSerializable)
Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Return type
End Function
Public Delegate Sub MainCodeRowChangeEventHandler(ByVal sender As Object, ByVal e As MainCodeRowChangeEvent)
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class MainCodeDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnRecord_Number As System.Data.DataColumn
Private columnLanguage_Category As System.Data.DataColumn
Private columnCode_type_Category As System.Data.DataColumn
Private columnTimedate As System.Data.DataColumn
Private columnTime As System.Data.DataColumn
Private columnCode_Snippet_Name As System.Data.DataColumn
Private columnCode_Snippet As System.Data.DataColumn
Private columnNotes As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "MainCode"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As 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
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Record_NumberColumn() As System.Data.DataColumn
Get
Return Me.columnRecord_Number
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Language_CategoryColumn() As System.Data.DataColumn
Get
Return Me.columnLanguage_Category
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Code_type_CategoryColumn() As System.Data.DataColumn
Get
Return Me.columnCode_type_Category
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property TimedateColumn() As System.Data.DataColumn
Get
Return Me.columnTimedate
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property TimeColumn() As System.Data.DataColumn
Get
Return Me.columnTime
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Code_Snippet_NameColumn() As System.Data.DataColumn
Get
Return Me.columnCode_Snippet_Name
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Code_SnippetColumn() As System.Data.DataColumn
Get
Return Me.columnCode_Snippet
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property NotesColumn() As System.Data.DataColumn
Get
Return Me.columnNotes
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As MainCodeRow
Get
Return CType(Me.Rows(index),MainCodeRow)
End Get
End Property
Public Event MainCodeRowChanging As MainCodeRowChangeEventHandler
Public Event MainCodeRowChanged As MainCodeRowChangeEventHandler
Public Event MainCodeRowDeleting As MainCodeRowChangeEventHandler
Public Event MainCodeRowDeleted As MainCodeRowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddMainCodeRow(ByVal row As MainCodeRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddMainCodeRow(ByVal Language_Category As String, ByVal Code_type_Category As String, ByVal Timedate As String, ByVal Time As String, ByVal Code_Snippet_Name As String, ByVal Code_Snippet As String, ByVal Notes As String) As MainCodeRow
Dim rowMainCodeRow As MainCodeRow = CType(Me.NewRow,MainCodeRow)
rowMainCodeRow.ItemArray = New Object() {Nothing, Language_Category, Code_type_Category, Timedate, Time, Code_Snippet_Name, Code_Snippet, Notes}
Me.Rows.Add(rowMainCodeRow)
Return rowMainCodeRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByRecord_Number(ByVal Record_Number As Decimal) As MainCodeRow
Return CType(Me.Rows.Find(New Object() {Record_Number}),MainCodeRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As MainCodeDataTable = CType(MyBase.Clone,MainCodeDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New MainCodeDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnRecord_Number = MyBase.Columns("Record Number")
Me.columnLanguage_Category = MyBase.Columns("Language Category")
Me.columnCode_type_Category = MyBase.Columns("Code type Category")
Me.columnTimedate = MyBase.Columns("Timedate")
Me.columnTime = MyBase.Columns("Time")
Me.columnCode_Snippet_Name = MyBase.Columns("Code Snippet Name")
Me.columnCode_Snippet = MyBase.Columns("Code Snippet")
Me.columnNotes = MyBase.Columns("Notes")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnRecord_Number = New System.Data.DataColumn("Record Number", GetType(Decimal), Nothing, System.Data.MappingType.Element)
Me.columnRecord_Number.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Record_Number")
Me.columnRecord_Number.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Record_NumberColumn")
Me.columnRecord_Number.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnRecord_Number")
Me.columnRecord_Number.ExtendedProperties.Add("Generator_UserColumnName", "Record Number")
MyBase.Columns.Add(Me.columnRecord_Number)
Me.columnLanguage_Category = New System.Data.DataColumn("Language Category", GetType(String), Nothing, System.Data.MappingType.Element)
Me.columnLanguage_Category.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Language_Category")
Me.columnLanguage_Category.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Language_CategoryColumn")
Me.columnLanguage_Category.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnLanguage_Category")
Me.columnLanguage_Category.ExtendedProperties.Add("Generator_UserColumnName", "Language Category")
MyBase.Columns.Add(Me.columnLanguage_Category)
Me.columnCode_type_Category = New System.Data.DataColumn("Code type Category", GetType(String), Nothing, System.Data.MappingType.Element)
Me.columnCode_type_Category.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Code_type_Category")
Me.columnCode_type_Category.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Code_type_CategoryColumn")
Me.columnCode_type_Category.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCode_type_Category")
Me.columnCode_type_Category.ExtendedProperties.Add("Generator_UserColumnName", "Code type Category")
MyBase.Columns.Add(Me.columnCode_type_Category)
Me.columnTimedate = New System.Data.DataColumn("Timedate", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTimedate)
Me.columnTime = New System.Data.DataColumn("Time", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTime)
Me.columnCode_Snippet_Name = New System.Data.DataColumn("Code Snippet Name", GetType(String), Nothing, System.Data.MappingType.Element)
Me.columnCode_Snippet_Name.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Code_Snippet_Name")
Me.columnCode_Snippet_Name.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Code_Snippet_NameColumn")
Me.columnCode_Snippet_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCode_Snippet_Name")
Me.columnCode_Snippet_Name.ExtendedProperties.Add("Generator_UserColumnName", "Code Snippet Name")
MyBase.Columns.Add(Me.columnCode_Snippet_Name)
Me.columnCode_Snippet = New System.Data.DataColumn("Code Snippet", GetType(String), Nothing, System.Data.MappingType.Element)
Me.columnCode_Snippet.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Code_Snippet")
Me.columnCode_Snippet.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Code_SnippetColumn")
Me.columnCode_Snippet.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCode_Snippet")
Me.columnCode_Snippet.ExtendedProperties.Add("Generator_UserColumnName", "Code Snippet")
MyBase.Columns.Add(Me.columnCode_Snippet)
Me.columnNotes = New System.Data.DataColumn("Notes", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNotes)
Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnRecord_Number}, true))
Me.columnRecord_Number.AutoIncrement = true
Me.columnRecord_Number.AllowDBNull = false
Me.columnRecord_Number.ReadOnly = true
Me.columnRecord_Number.Unique = true
Me.columnLanguage_Category.MaxLength = 100
Me.columnCode_type_Category.MaxLength = 100
Me.columnTimedate.MaxLength = 100
Me.columnTime.MaxLength = 100
Me.columnCode_Snippet_Name.MaxLength = 100
Me.columnCode_Snippet.MaxLength = 2147483647
Me.columnNotes.MaxLength = 2147483647
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewMainCodeRow() As MainCodeRow
Return CType(Me.NewRow,MainCodeRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New MainCodeRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(MainCodeRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.MainCodeRowChangedEvent) Is Nothing) Then
RaiseEvent MainCodeRowChanged(Me, New MainCodeRowChangeEvent(CType(e.Row,MainCodeRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.MainCodeRowChangingEvent) Is Nothing) Then
RaiseEvent MainCodeRowChanging(Me, New MainCodeRowChangeEvent(CType(e.Row,MainCodeRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.MainCodeRowDeletedEvent) Is Nothing) Then
RaiseEvent MainCodeRowDeleted(Me, New MainCodeRowChangeEvent(CType(e.Row,MainCodeRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.MainCodeRowDeletingEvent) Is Nothing) Then
RaiseEvent MainCodeRowDeleting(Me, New MainCodeRowChangeEvent(CType(e.Row,MainCodeRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveMainCodeRow(ByVal row As MainCodeRow)
Me.Rows.Remove(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
Dim ds As SynchroniqCodeBaseDataSet = New SynchroniqCodeBaseDataSet
xs.Add(ds.GetSchemaSerializable)
Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "MainCodeDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Return type
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class MainCodeRow
Inherits System.Data.DataRow
Private tableMainCode As MainCodeDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableMainCode = CType(Me.Table,MainCodeDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Record_Number() As Decimal
Get
Return CType(Me(Me.tableMainCode.Record_NumberColumn),Decimal)
End Get
Set
Me(Me.tableMainCode.Record_NumberColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Language_Category() As String
Get
Try
Return CType(Me(Me.tableMainCode.Language_CategoryColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Language Category' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.Language_CategoryColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Code_type_Category() As String
Get
Try
Return CType(Me(Me.tableMainCode.Code_type_CategoryColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Code type Category' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.Code_type_CategoryColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Timedate() As String
Get
Try
Return CType(Me(Me.tableMainCode.TimedateColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Timedate' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.TimedateColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Time() As String
Get
Try
Return CType(Me(Me.tableMainCode.TimeColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Time' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.TimeColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Code_Snippet_Name() As String
Get
Try
Return CType(Me(Me.tableMainCode.Code_Snippet_NameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Code Snippet Name' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.Code_Snippet_NameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Code_Snippet() As String
Get
Try
Return CType(Me(Me.tableMainCode.Code_SnippetColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Code Snippet' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.Code_SnippetColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Notes() As String
Get
Try
Return CType(Me(Me.tableMainCode.NotesColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Notes' in table 'MainCode' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainCode.NotesColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsLanguage_CategoryNull() As Boolean
Return Me.IsNull(Me.tableMainCode.Language_CategoryColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetLanguage_CategoryNull()
Me(Me.tableMainCode.Language_CategoryColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCode_type_CategoryNull() As Boolean
Return Me.IsNull(Me.tableMainCode.Code_type_CategoryColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCode_type_CategoryNull()
Me(Me.tableMainCode.Code_type_CategoryColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsTimedateNull() As Boolean
Return Me.IsNull(Me.tableMainCode.TimedateColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetTimedateNull()
Me(Me.tableMainCode.TimedateColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsTimeNull() As Boolean
Return Me.IsNull(Me.tableMainCode.TimeColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetTimeNull()
Me(Me.tableMainCode.TimeColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCode_Snippet_NameNull() As Boolean
Return Me.IsNull(Me.tableMainCode.Code_Snippet_NameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCode_Snippet_NameNull()
Me(Me.tableMainCode.Code_Snippet_NameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCode_SnippetNull() As Boolean
Return Me.IsNull(Me.tableMainCode.Code_SnippetColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCode_SnippetNull()
Me(Me.tableMainCode.Code_SnippetColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsNotesNull() As Boolean
Return Me.IsNull(Me.tableMainCode.NotesColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetNotesNull()
Me(Me.tableMainCode.NotesColumn) = System.Convert.DBNull
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class MainCodeRowChangeEvent
Inherits System.EventArgs
Private eventRow As MainCodeRow
Private eventAction As System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As MainCodeRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As MainCodeRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace SynchroniqCodeBaseDataSetTableAdapters
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class MainCodeTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents _adapter As System.Data.SqlClient.SqlDataAdapter
Private _connection As System.Data.SqlClient.SqlConnection
Private _commandCollection() As System.Data.SqlClient.SqlCommand
Private _clearBeforeFill As Boolean
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private ReadOnly Property Adapter() As System.Data.SqlClient.SqlDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As System.Data.SqlClient.SqlConnection
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),System.Data.SqlClient.SqlCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As System.Data.SqlClient.SqlCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New System.Data.SqlClient.SqlDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "MainCode"
tableMapping.ColumnMappings.Add("Record Number", "Record Number")
tableMapping.ColumnMappings.Add("Language Category", "Language Category")
tableMapping.ColumnMappings.Add("Code type Category", "Code type Category")
tableMapping.ColumnMappings.Add("Timedate", "Timedate")
tableMapping.ColumnMappings.Add("Time", "Time")
tableMapping.ColumnMappings.Add("Code Snippet Name", "Code Snippet Name")
tableMapping.ColumnMappings.Add("Code Snippet", "Code Snippet")
tableMapping.ColumnMappings.Add("Notes", "Notes")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New System.Data.SqlClient.SqlCommand
Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[MainCode] WHERE (([Record Number] = @Original_Record_Number) A"& _
"ND ((@IsNull_Language_Category = 1 AND [Language Category] IS NULL) OR ([Languag"& _
"e Category] = @Original_Language_Category)) AND ((@IsNull_Code_type_Category = 1"& _
" AND [Code type Category] IS NULL) OR ([Code type Category] = @Original_Code_typ"& _
"e_Category)) AND ((@IsNull_Timedate = 1 AND [Timedate] IS NULL) OR ([Timedate] ="& _
" @Original_Timedate)) AND ((@IsNull_Time = 1 AND [Time] IS NULL) OR ([Time] = @O"& _
"riginal_Time)) AND ((@IsNull_Code_Snippet_Name = 1 AND [Code Snippet Name] IS NU"& _
"LL) OR ([Code Snippet Name] = @Original_Code_Snippet_Name)))"
Me._adapter.DeleteCommand.CommandType = System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Record_Number", System.Data.SqlDbType.[Decimal], 0, System.Data.ParameterDirection.Input, 18, 0, "Record Number", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Language_Category", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Language_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Code_type_Category", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Code_type_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Timedate", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Timedate", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Time", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Time", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Code_Snippet_Name", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Code_Snippet_Name", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New System.Data.SqlClient.SqlCommand
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[MainCode] ([Language Category], [Code type Category], [Timedat"& _
"e], [Time], [Code Snippet Name], [Code Snippet], [Notes]) VALUES (@Language_Cate"& _
"gory, @Code_type_Category, @Timedate, @Time, @Code_Snippet_Name, @Code_Snippet, "& _
"@Notes);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Record Number], [Language Category], [Code type Category], Tim"& _
"edate, Time, [Code Snippet Name], [Code Snippet], Notes FROM MainCode WHERE ([Re"& _
"cord Number] = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Language_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_type_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Timedate", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Time", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_Snippet_Name", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_Snippet", System.Data.SqlDbType.Text, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Notes", System.Data.SqlDbType.Text, 0, System.Data.ParameterDirection.Input, 0, 0, "Notes", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New System.Data.SqlClient.SqlCommand
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[MainCode] SET [Language Category] = @Language_Category, [Code type "& _
"Category] = @Code_type_Category, [Timedate] = @Timedate, [Time] = @Time, [Code S"& _
"nippet Name] = @Code_Snippet_Name, [Code Snippet] = @Code_Snippet, [Notes] = @No"& _
"tes WHERE (([Record Number] = @Original_Record_Number) AND ((@IsNull_Language_Ca"& _
"tegory = 1 AND [Language Category] IS NULL) OR ([Language Category] = @Original_"& _
"Language_Category)) AND ((@IsNull_Code_type_Category = 1 AND [Code type Category"& _
"] IS NULL) OR ([Code type Category] = @Original_Code_type_Category)) AND ((@IsNu"& _
"ll_Timedate = 1 AND [Timedate] IS NULL) OR ([Timedate] = @Original_Timedate)) AN"& _
"D ((@IsNull_Time = 1 AND [Time] IS NULL) OR ([Time] = @Original_Time)) AND ((@Is"& _
"Null_Code_Snippet_Name = 1 AND [Code Snippet Name] IS NULL) OR ([Code Snippet Na"& _
"me] = @Original_Code_Snippet_Name)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT [Record Number], [Language Categor"& _
"y], [Code type Category], Timedate, Time, [Code Snippet Name], [Code Snippet], N"& _
"otes FROM MainCode WHERE ([Record Number] = @Record_Number)"
Me._adapter.UpdateCommand.CommandType = System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Language_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_type_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Timedate", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Time", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_Snippet_Name", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Code_Snippet", System.Data.SqlDbType.Text, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Notes", System.Data.SqlDbType.Text, 0, System.Data.ParameterDirection.Input, 0, 0, "Notes", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Record_Number", System.Data.SqlDbType.[Decimal], 0, System.Data.ParameterDirection.Input, 18, 0, "Record Number", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Language_Category", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Language_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Language Category", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Code_type_Category", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Code_type_Category", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code type Category", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Timedate", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Timedate", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Timedate", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Time", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Time", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Time", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IsNull_Code_Snippet_Name", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Code_Snippet_Name", System.Data.SqlDbType.NChar, 0, System.Data.ParameterDirection.Input, 0, 0, "Code Snippet Name", System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Record_Number", System.Data.SqlDbType.[Decimal], 9, System.Data.ParameterDirection.Input, 18, 0, "Record Number", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New System.Data.SqlClient.SqlConnection
Me._connection.ConnectionString = Global.SynchroniqCodeBase.My.MySettings.Default.SynchroniqCodeBaseDBConnect
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New System.Data.SqlClient.SqlCommand
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT [Record Number], [Language Category], [Code type Category], Timedate, Time"& _
", [Code Snippet Name], [Code Snippet], Notes FROM dbo.MainCode"
Me._commandCollection(0).CommandType = System.Data.CommandType.Text
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As SynchroniqCodeBaseDataSet.MainCodeDataTable) 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
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As SynchroniqCodeBaseDataSet.MainCodeDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As SynchroniqCodeBaseDataSet.MainCodeDataTable = New SynchroniqCodeBaseDataSet.MainCodeDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As SynchroniqCodeBaseDataSet.MainCodeDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As SynchroniqCodeBaseDataSet) As Integer
Return Me.Adapter.Update(dataSet, "MainCode")
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRow As System.Data.DataRow) As Integer
Return Me.Adapter.Update(New System.Data.DataRow() {dataRow})
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal Original_Record_Number As Decimal, ByVal Original_Language_Category As String, ByVal Original_Code_type_Category As String, ByVal Original_Timedate As String, ByVal Original_Time As String, ByVal Original_Code_Snippet_Name As String) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Record_Number,Decimal)
If (Original_Language_Category Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(2).Value = System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Language_Category,String)
End If
If (Original_Code_type_Category Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(4).Value = System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Code_type_Category,String)
End If
If (Original_Timedate Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(6).Value = System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Timedate,String)
End If
If (Original_Time Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(8).Value = System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Time,String)
End If
If (Original_Code_Snippet_Name Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(10).Value = System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Code_Snippet_Name,String)
End If
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And System.Data.ConnectionState.Open) _
<> 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 = System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close
End If
End Try
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal Language_Category As String, ByVal Code_type_Category As String, ByVal Timedate As String, ByVal Time As String, ByVal Code_Snippet_Name As String, ByVal Code_Snippet As String, ByVal Notes As String) As Integer
If (Language_Category Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(Language_Category,String)
End If
If (Code_type_Category Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(1).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(Code_type_Category,String)
End If
If (Timedate Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(2).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(Timedate,String)
End If
If (Time Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(3).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(3).Value = CType(Time,String)
End If
If (Code_Snippet_Name Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(4).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(4).Value = CType(Code_Snippet_Name,String)
End If
If (Code_Snippet Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(5).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(Code_Snippet,String)
End If
If (Notes Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(6).Value = System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(Notes,String)
End If
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And System.Data.ConnectionState.Open) _
<> 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 = System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close
End If
End Try
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal Language_Category As String, ByVal Code_type_Category As String, ByVal Timedate As String, ByVal Time As String, ByVal Code_Snippet_Name As String, ByVal Code_Snippet As String, ByVal Notes As String, ByVal Original_Record_Number As Decimal, ByVal Original_Language_Category As String, ByVal Original_Code_type_Category As String, ByVal Original_Timedate As String, ByVal Original_Time As String, ByVal Original_Code_Snippet_Name As String, ByVal Record_Number As Decimal) As Integer
If (Language_Category Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Language_Category,String)
End If
If (Code_type_Category Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Code_type_Category,String)
End If
If (Timedate Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(2).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Timedate,String)
End If
If (Time Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Time,String)
End If
If (Code_Snippet_Name Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(4).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Code_Snippet_Name,String)
End If
If (Code_Snippet Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(5).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Code_Snippet,String)
End If
If (Notes Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(6).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Notes,String)
End If
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Record_Number,Decimal)
If (Original_Language_Category Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(9).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Language_Category,String)
End If
If (Original_Code_type_Category Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(11).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Code_type_Category,String)
End If
If (Original_Timedate Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(13).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Timedate,String)
End If
If (Original_Time Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(15).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Time,String)
End If
If (Original_Code_Snippet_Name Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(17).Value = System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Code_Snippet_Name,String)
End If
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Record_Number,Decimal)
Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And System.Data.ConnectionState.Open) _
<> 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 = System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close
End If
End Try
End Function
End Class
End Namespace