'------------------------------------------------------------------------------
' <auto-generated>
'     Este código fue generado por una herramienta.
'     Versión de runtime:4.0.30319.530
'
'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
'     se vuelve a generar el código.
' </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("DataSetBDNotasAlumnos"),  _
 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _
Partial Public Class DataSetBDNotasAlumnos
    Inherits Global.System.Data.DataSet
    
  Private tablealumnos As alumnosDataTable

  Private tableasignaturas As asignaturasDataTable

  Private tablealums_asigs_ex As alums_asigs_exDataTable

  Private relationFK__alums_asi__id_al__08EA5793 As Global.System.Data.DataRelation

  Private relationFK__alums_asi__id_as__09DE7BCC 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("alumnos")) Is Nothing) Then
        MyBase.Tables.Add(New alumnosDataTable(ds.Tables("alumnos")))
      End If
      If (Not (ds.Tables("asignaturas")) Is Nothing) Then
        MyBase.Tables.Add(New asignaturasDataTable(ds.Tables("asignaturas")))
      End If
      If (Not (ds.Tables("alums_asigs_ex")) Is Nothing) Then
        MyBase.Tables.Add(New alums_asigs_exDataTable(ds.Tables("alums_asigs_ex")))
      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 alumnos() As alumnosDataTable
    Get
      Return Me.tablealumnos
    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 asignaturas() As asignaturasDataTable
    Get
      Return Me.tableasignaturas
    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 alums_asigs_ex() As alums_asigs_exDataTable
    Get
      Return Me.tablealums_asigs_ex
    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(value As Global.System.Data.SchemaSerializationMode)
      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 DataSetBDNotasAlumnos = CType(MyBase.Clone, DataSetBDNotasAlumnos)
    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("alumnos")) Is Nothing) Then
        MyBase.Tables.Add(New alumnosDataTable(ds.Tables("alumnos")))
      End If
      If (Not (ds.Tables("asignaturas")) Is Nothing) Then
        MyBase.Tables.Add(New asignaturasDataTable(ds.Tables("asignaturas")))
      End If
      If (Not (ds.Tables("alums_asigs_ex")) Is Nothing) Then
        MyBase.Tables.Add(New alums_asigs_exDataTable(ds.Tables("alums_asigs_ex")))
      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.tablealumnos = CType(MyBase.Tables("alumnos"), alumnosDataTable)
    If (initTable = True) Then
      If (Not (Me.tablealumnos) Is Nothing) Then
        Me.tablealumnos.InitVars()
      End If
    End If
    Me.tableasignaturas = CType(MyBase.Tables("asignaturas"), asignaturasDataTable)
    If (initTable = True) Then
      If (Not (Me.tableasignaturas) Is Nothing) Then
        Me.tableasignaturas.InitVars()
      End If
    End If
    Me.tablealums_asigs_ex = CType(MyBase.Tables("alums_asigs_ex"), alums_asigs_exDataTable)
    If (initTable = True) Then
      If (Not (Me.tablealums_asigs_ex) Is Nothing) Then
        Me.tablealums_asigs_ex.InitVars()
      End If
    End If
    Me.relationFK__alums_asi__id_al__08EA5793 = Me.Relations("FK__alums_asi__id_al__08EA5793")
    Me.relationFK__alums_asi__id_as__09DE7BCC = Me.Relations("FK__alums_asi__id_as__09DE7BCC")
  End Sub

  <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
   Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  Private Sub InitClass()
    Me.DataSetName = "DataSetBDNotasAlumnos"
    Me.Prefix = ""
    Me.Namespace = "http://tempuri.org/DataSetBDNotasAlumnos.xsd"
    Me.EnforceConstraints = True
    Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
    Me.tablealumnos = New alumnosDataTable()
    MyBase.Tables.Add(Me.tablealumnos)
    Me.tableasignaturas = New asignaturasDataTable()
    MyBase.Tables.Add(Me.tableasignaturas)
    Me.tablealums_asigs_ex = New alums_asigs_exDataTable()
    MyBase.Tables.Add(Me.tablealums_asigs_ex)
    Me.relationFK__alums_asi__id_al__08EA5793 = New Global.System.Data.DataRelation("FK__alums_asi__id_al__08EA5793", New Global.System.Data.DataColumn() {Me.tablealumnos.id_alumnoColumn}, New Global.System.Data.DataColumn() {Me.tablealums_asigs_ex.id_alumnoColumn}, False)
    Me.Relations.Add(Me.relationFK__alums_asi__id_al__08EA5793)
    Me.relationFK__alums_asi__id_as__09DE7BCC = New Global.System.Data.DataRelation("FK__alums_asi__id_as__09DE7BCC", New Global.System.Data.DataColumn() {Me.tableasignaturas.id_asignaturaColumn}, New Global.System.Data.DataColumn() {Me.tablealums_asigs_ex.id_asignaturaColumn}, False)
    Me.Relations.Add(Me.relationFK__alums_asi__id_as__09DE7BCC)
  End Sub

  <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
   Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  Private Function ShouldSerializealumnos() 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 ShouldSerializeasignaturas() 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 ShouldSerializealums_asigs_ex() 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 DataSetBDNotasAlumnos = New DataSetBDNotasAlumnos()
    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 alumnosRowChangeEventHandler(ByVal sender As Object, ByVal e As alumnosRowChangeEvent)

  <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  Public Delegate Sub asignaturasRowChangeEventHandler(ByVal sender As Object, ByVal e As asignaturasRowChangeEvent)

  <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
  Public Delegate Sub alums_asigs_exRowChangeEventHandler(ByVal sender As Object, ByVal e As alums_asigs_exRowChangeEvent)

  '''<summary>
  '''Represents the strongly named DataTable class.
  '''</summary>
  <Global.System.Serializable(), _
   Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
  Partial Public Class alumnosDataTable
    Inherits Global.System.Data.TypedTableBase(Of alumnosRow)

    Private columnid_alumno As Global.System.Data.DataColumn

    Private columnnombre 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 = "alumnos"
      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 id_alumnoColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnid_alumno
      End Get
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public ReadOnly Property nombreColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnnombre
      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")> _
    Default Public ReadOnly Property Item(ByVal index As Integer) As alumnosRow
      Get
        Return CType(Me.Rows(index), alumnosRow)
      End Get
    End Property

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alumnosRowChanging As alumnosRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alumnosRowChanged As alumnosRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alumnosRowDeleting As alumnosRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alumnosRowDeleted As alumnosRowChangeEventHandler

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Overloads Sub AddalumnosRow(ByVal row As alumnosRow)
      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 AddalumnosRow(ByVal id_alumno As Integer, ByVal nombre As String) As alumnosRow
      Dim rowalumnosRow As alumnosRow = CType(Me.NewRow, alumnosRow)
      Dim columnValuesArray() As Object = New Object() {id_alumno, nombre}
      rowalumnosRow.ItemArray = columnValuesArray
      Me.Rows.Add(rowalumnosRow)
      Return rowalumnosRow
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function FindByid_alumno(ByVal id_alumno As Integer) As alumnosRow
      Return CType(Me.Rows.Find(New Object() {id_alumno}), alumnosRow)
    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 alumnosDataTable = CType(MyBase.Clone, alumnosDataTable)
      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 alumnosDataTable()
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Friend Sub InitVars()
      Me.columnid_alumno = MyBase.Columns("id_alumno")
      Me.columnnombre = MyBase.Columns("nombre")
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Private Sub InitClass()
      Me.columnid_alumno = New Global.System.Data.DataColumn("id_alumno", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnid_alumno)
      Me.columnnombre = New Global.System.Data.DataColumn("nombre", GetType(String), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnnombre)
      Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_alumno}, True))
      Me.columnid_alumno.AllowDBNull = False
      Me.columnid_alumno.Unique = True
      Me.columnnombre.AllowDBNull = False
      Me.columnnombre.MaxLength = 50
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function NewalumnosRow() As alumnosRow
      Return CType(Me.NewRow, alumnosRow)
    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 alumnosRow(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(alumnosRow)
    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.alumnosRowChangedEvent) Is Nothing) Then
        RaiseEvent alumnosRowChanged(Me, New alumnosRowChangeEvent(CType(e.Row, alumnosRow), 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.alumnosRowChangingEvent) Is Nothing) Then
        RaiseEvent alumnosRowChanging(Me, New alumnosRowChangeEvent(CType(e.Row, alumnosRow), 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.alumnosRowDeletedEvent) Is Nothing) Then
        RaiseEvent alumnosRowDeleted(Me, New alumnosRowChangeEvent(CType(e.Row, alumnosRow), 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.alumnosRowDeletingEvent) Is Nothing) Then
        RaiseEvent alumnosRowDeleting(Me, New alumnosRowChangeEvent(CType(e.Row, alumnosRow), 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 RemovealumnosRow(ByVal row As alumnosRow)
      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 DataSetBDNotasAlumnos = New DataSetBDNotasAlumnos()
      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 = "alumnosDataTable"
      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 asignaturasDataTable
    Inherits Global.System.Data.TypedTableBase(Of asignaturasRow)

    Private columnid_asignatura As Global.System.Data.DataColumn

    Private columnnombre 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 = "asignaturas"
      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 id_asignaturaColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnid_asignatura
      End Get
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public ReadOnly Property nombreColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnnombre
      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")> _
    Default Public ReadOnly Property Item(ByVal index As Integer) As asignaturasRow
      Get
        Return CType(Me.Rows(index), asignaturasRow)
      End Get
    End Property

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event asignaturasRowChanging As asignaturasRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event asignaturasRowChanged As asignaturasRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event asignaturasRowDeleting As asignaturasRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event asignaturasRowDeleted As asignaturasRowChangeEventHandler

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Overloads Sub AddasignaturasRow(ByVal row As asignaturasRow)
      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 AddasignaturasRow(ByVal id_asignatura As Integer, ByVal nombre As String) As asignaturasRow
      Dim rowasignaturasRow As asignaturasRow = CType(Me.NewRow, asignaturasRow)
      Dim columnValuesArray() As Object = New Object() {id_asignatura, nombre}
      rowasignaturasRow.ItemArray = columnValuesArray
      Me.Rows.Add(rowasignaturasRow)
      Return rowasignaturasRow
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function FindByid_asignatura(ByVal id_asignatura As Integer) As asignaturasRow
      Return CType(Me.Rows.Find(New Object() {id_asignatura}), asignaturasRow)
    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 asignaturasDataTable = CType(MyBase.Clone, asignaturasDataTable)
      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 asignaturasDataTable()
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Friend Sub InitVars()
      Me.columnid_asignatura = MyBase.Columns("id_asignatura")
      Me.columnnombre = MyBase.Columns("nombre")
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Private Sub InitClass()
      Me.columnid_asignatura = New Global.System.Data.DataColumn("id_asignatura", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnid_asignatura)
      Me.columnnombre = New Global.System.Data.DataColumn("nombre", GetType(String), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnnombre)
      Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_asignatura}, True))
      Me.columnid_asignatura.AllowDBNull = False
      Me.columnid_asignatura.Unique = True
      Me.columnnombre.AllowDBNull = False
      Me.columnnombre.MaxLength = 60
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function NewasignaturasRow() As asignaturasRow
      Return CType(Me.NewRow, asignaturasRow)
    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 asignaturasRow(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(asignaturasRow)
    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.asignaturasRowChangedEvent) Is Nothing) Then
        RaiseEvent asignaturasRowChanged(Me, New asignaturasRowChangeEvent(CType(e.Row, asignaturasRow), 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.asignaturasRowChangingEvent) Is Nothing) Then
        RaiseEvent asignaturasRowChanging(Me, New asignaturasRowChangeEvent(CType(e.Row, asignaturasRow), 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.asignaturasRowDeletedEvent) Is Nothing) Then
        RaiseEvent asignaturasRowDeleted(Me, New asignaturasRowChangeEvent(CType(e.Row, asignaturasRow), 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.asignaturasRowDeletingEvent) Is Nothing) Then
        RaiseEvent asignaturasRowDeleting(Me, New asignaturasRowChangeEvent(CType(e.Row, asignaturasRow), 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 RemoveasignaturasRow(ByVal row As asignaturasRow)
      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 DataSetBDNotasAlumnos = New DataSetBDNotasAlumnos()
      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 = "asignaturasDataTable"
      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 alums_asigs_exDataTable
    Inherits Global.System.Data.TypedTableBase(Of alums_asigs_exRow)

    Private columnid_alumno As Global.System.Data.DataColumn

    Private columnid_asignatura As Global.System.Data.DataColumn

    Private columnnota As Global.System.Data.DataColumn

    Private columnnombreAsig 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 = "alums_asigs_ex"
      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 id_alumnoColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnid_alumno
      End Get
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public ReadOnly Property id_asignaturaColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnid_asignatura
      End Get
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public ReadOnly Property notaColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnnota
      End Get
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public ReadOnly Property nombreAsigColumn() As Global.System.Data.DataColumn
      Get
        Return Me.columnnombreAsig
      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")> _
    Default Public ReadOnly Property Item(ByVal index As Integer) As alums_asigs_exRow
      Get
        Return CType(Me.Rows(index), alums_asigs_exRow)
      End Get
    End Property

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alums_asigs_exRowChanging As alums_asigs_exRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alums_asigs_exRowChanged As alums_asigs_exRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alums_asigs_exRowDeleting As alums_asigs_exRowChangeEventHandler

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Event alums_asigs_exRowDeleted As alums_asigs_exRowChangeEventHandler

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Overloads Sub Addalums_asigs_exRow(ByVal row As alums_asigs_exRow)
      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 Addalums_asigs_exRow(ByVal parentalumnosRowByFK__alums_asi__id_al__08EA5793 As alumnosRow, ByVal parentasignaturasRowByFK__alums_asi__id_as__09DE7BCC As asignaturasRow, ByVal nota As Single, ByVal nombreAsig As String) As alums_asigs_exRow
      Dim rowalums_asigs_exRow As alums_asigs_exRow = CType(Me.NewRow, alums_asigs_exRow)
      Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, nota, nombreAsig}
      If (Not (parentalumnosRowByFK__alums_asi__id_al__08EA5793) Is Nothing) Then
        columnValuesArray(0) = parentalumnosRowByFK__alums_asi__id_al__08EA5793(0)
      End If
      If (Not (parentasignaturasRowByFK__alums_asi__id_as__09DE7BCC) Is Nothing) Then
        columnValuesArray(1) = parentasignaturasRowByFK__alums_asi__id_as__09DE7BCC(0)
      End If
      rowalums_asigs_exRow.ItemArray = columnValuesArray
      Me.Rows.Add(rowalums_asigs_exRow)
      Return rowalums_asigs_exRow
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function FindByid_alumnoid_asignatura(ByVal id_alumno As Integer, ByVal id_asignatura As Integer) As alums_asigs_exRow
      Return CType(Me.Rows.Find(New Object() {id_alumno, id_asignatura}), alums_asigs_exRow)
    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 alums_asigs_exDataTable = CType(MyBase.Clone, alums_asigs_exDataTable)
      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 alums_asigs_exDataTable()
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Friend Sub InitVars()
      Me.columnid_alumno = MyBase.Columns("id_alumno")
      Me.columnid_asignatura = MyBase.Columns("id_asignatura")
      Me.columnnota = MyBase.Columns("nota")
      Me.columnnombreAsig = MyBase.Columns("nombreAsig")
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Private Sub InitClass()
      Me.columnid_alumno = New Global.System.Data.DataColumn("id_alumno", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnid_alumno)
      Me.columnid_asignatura = New Global.System.Data.DataColumn("id_asignatura", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnid_asignatura)
      Me.columnnota = New Global.System.Data.DataColumn("nota", GetType(Single), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnnota)
      Me.columnnombreAsig = New Global.System.Data.DataColumn("nombreAsig", GetType(String), Nothing, Global.System.Data.MappingType.Element)
      MyBase.Columns.Add(Me.columnnombreAsig)
      Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_alumno, Me.columnid_asignatura}, True))
      Me.columnid_alumno.AllowDBNull = False
      Me.columnid_asignatura.AllowDBNull = False
      Me.columnnota.AllowDBNull = False
      Me.columnnombreAsig.ReadOnly = True
      Me.columnnombreAsig.MaxLength = 60
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function Newalums_asigs_exRow() As alums_asigs_exRow
      Return CType(Me.NewRow, alums_asigs_exRow)
    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 alums_asigs_exRow(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(alums_asigs_exRow)
    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.alums_asigs_exRowChangedEvent) Is Nothing) Then
        RaiseEvent alums_asigs_exRowChanged(Me, New alums_asigs_exRowChangeEvent(CType(e.Row, alums_asigs_exRow), 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.alums_asigs_exRowChangingEvent) Is Nothing) Then
        RaiseEvent alums_asigs_exRowChanging(Me, New alums_asigs_exRowChangeEvent(CType(e.Row, alums_asigs_exRow), 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.alums_asigs_exRowDeletedEvent) Is Nothing) Then
        RaiseEvent alums_asigs_exRowDeleted(Me, New alums_asigs_exRowChangeEvent(CType(e.Row, alums_asigs_exRow), 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.alums_asigs_exRowDeletingEvent) Is Nothing) Then
        RaiseEvent alums_asigs_exRowDeleting(Me, New alums_asigs_exRowChangeEvent(CType(e.Row, alums_asigs_exRow), 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 Removealums_asigs_exRow(ByVal row As alums_asigs_exRow)
      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 DataSetBDNotasAlumnos = New DataSetBDNotasAlumnos()
      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 = "alums_asigs_exDataTable"
      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 alumnosRow
    Inherits Global.System.Data.DataRow

    Private tablealumnos As alumnosDataTable

    <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.tablealumnos = CType(Me.Table, alumnosDataTable)
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property id_alumno() As Integer
      Get
        Return CType(Me(Me.tablealumnos.id_alumnoColumn), Integer)
      End Get
      Set(value As Integer)
        Me(Me.tablealumnos.id_alumnoColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property nombre() As String
      Get
        Return CType(Me(Me.tablealumnos.nombreColumn), String)
      End Get
      Set(value As String)
        Me(Me.tablealumnos.nombreColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function Getalums_asigs_exRows() As alums_asigs_exRow()
      If (Me.Table.ChildRelations("FK__alums_asi__id_al__08EA5793") Is Nothing) Then
        Return New alums_asigs_exRow(-1) {}
      Else
        Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK__alums_asi__id_al__08EA5793")), alums_asigs_exRow())
      End If
    End Function
  End Class

  '''<summary>
  '''Represents strongly named DataRow class.
  '''</summary>
  Partial Public Class asignaturasRow
    Inherits Global.System.Data.DataRow

    Private tableasignaturas As asignaturasDataTable

    <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.tableasignaturas = CType(Me.Table, asignaturasDataTable)
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property id_asignatura() As Integer
      Get
        Return CType(Me(Me.tableasignaturas.id_asignaturaColumn), Integer)
      End Get
      Set(value As Integer)
        Me(Me.tableasignaturas.id_asignaturaColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property nombre() As String
      Get
        Return CType(Me(Me.tableasignaturas.nombreColumn), String)
      End Get
      Set(value As String)
        Me(Me.tableasignaturas.nombreColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function Getalums_asigs_exRows() As alums_asigs_exRow()
      If (Me.Table.ChildRelations("FK__alums_asi__id_as__09DE7BCC") Is Nothing) Then
        Return New alums_asigs_exRow(-1) {}
      Else
        Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK__alums_asi__id_as__09DE7BCC")), alums_asigs_exRow())
      End If
    End Function
  End Class

  '''<summary>
  '''Represents strongly named DataRow class.
  '''</summary>
  Partial Public Class alums_asigs_exRow
    Inherits Global.System.Data.DataRow

    Private tablealums_asigs_ex As alums_asigs_exDataTable

    <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.tablealums_asigs_ex = CType(Me.Table, alums_asigs_exDataTable)
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property id_alumno() As Integer
      Get
        Return CType(Me(Me.tablealums_asigs_ex.id_alumnoColumn), Integer)
      End Get
      Set(value As Integer)
        Me(Me.tablealums_asigs_ex.id_alumnoColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property id_asignatura() As Integer
      Get
        Return CType(Me(Me.tablealums_asigs_ex.id_asignaturaColumn), Integer)
      End Get
      Set(value As Integer)
        Me(Me.tablealums_asigs_ex.id_asignaturaColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property nota() As Single
      Get
        Return CType(Me(Me.tablealums_asigs_ex.notaColumn), Single)
      End Get
      Set(value As Single)
        Me(Me.tablealums_asigs_ex.notaColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property nombreAsig() As String
      Get
        Try
          Return CType(Me(Me.tablealums_asigs_ex.nombreAsigColumn), String)
        Catch e As Global.System.InvalidCastException
          Throw New Global.System.Data.StrongTypingException("El valor de la columna 'nombreAsig' de la tabla 'alums_asigs_ex' es DBNull.", e)
        End Try
      End Get
      Set(value As String)
        Me(Me.tablealums_asigs_ex.nombreAsigColumn) = value
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property alumnosRow() As alumnosRow
      Get
        Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK__alums_asi__id_al__08EA5793")), alumnosRow)
      End Get
      Set(value As alumnosRow)
        Me.SetParentRow(value, Me.Table.ParentRelations("FK__alums_asi__id_al__08EA5793"))
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Property asignaturasRow() As asignaturasRow
      Get
        Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK__alums_asi__id_as__09DE7BCC")), asignaturasRow)
      End Get
      Set(value As asignaturasRow)
        Me.SetParentRow(value, Me.Table.ParentRelations("FK__alums_asi__id_as__09DE7BCC"))
      End Set
    End Property

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Function IsnombreAsigNull() As Boolean
      Return Me.IsNull(Me.tablealums_asigs_ex.nombreAsigColumn)
    End Function

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
    Public Sub SetnombreAsigNull()
      Me(Me.tablealums_asigs_ex.nombreAsigColumn) = 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 alumnosRowChangeEvent
    Inherits Global.System.EventArgs

    Private eventRow As alumnosRow

    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 alumnosRow, 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 alumnosRow
      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 asignaturasRowChangeEvent
    Inherits Global.System.EventArgs

    Private eventRow As asignaturasRow

    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 asignaturasRow, 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 asignaturasRow
      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 alums_asigs_exRowChangeEvent
    Inherits Global.System.EventArgs

    Private eventRow As alums_asigs_exRow

    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 alums_asigs_exRow, 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 alums_asigs_exRow
      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 DataSetBDNotasAlumnosTableAdapters

  '''<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 alumnosTableAdapter
    Inherits Global.System.ComponentModel.Component

    Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    Private _connection As Global.System.Data.SqlClient.SqlConnection

    Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    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.SqlClient.SqlDataAdapter
      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.SqlClient.SqlConnection
      Get
        If (Me._connection Is Nothing) Then
          Me.InitConnection()
        End If
        Return Me._connection
      End Get
      Set(value As Global.System.Data.SqlClient.SqlConnection)
        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.SqlClient.SqlCommand).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.SqlClient.SqlTransaction
      Get
        Return Me._transaction
      End Get
      Set(value As Global.System.Data.SqlClient.SqlTransaction)
        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.SqlClient.SqlCommand()
      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(value As Boolean)
        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.SqlClient.SqlDataAdapter()
      Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
      tableMapping.SourceTable = "Table"
      tableMapping.DataSetTable = "alumnos"
      tableMapping.ColumnMappings.Add("id_alumno", "id_alumno")
      tableMapping.ColumnMappings.Add("nombre", "nombre")
      Me._adapter.TableMappings.Add(tableMapping)
      Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.DeleteCommand.Connection = Me.Connection
      Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[alumnos] WHERE (([id_alumno] = @Original_id_alumno) AND ([nomb" & _
          "re] = @Original_nombre))"
      Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.InsertCommand.Connection = Me.Connection
      Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[alumnos] ([id_alumno], [nombre]) VALUES (@id_alumno, @nombre);" & _
          "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id_alumno, nombre FROM alumnos WHERE (id_alumno = @id_alumno)"
      Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.UpdateCommand.Connection = Me.Connection
      Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[alumnos] SET [id_alumno] = @id_alumno, [nombre] = @nombre WHERE (([" & _
          "id_alumno] = @Original_id_alumno) AND ([nombre] = @Original_nombre));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id" & _
          "_alumno, nombre FROM alumnos WHERE (id_alumno = @id_alumno)"
      Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
    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.SqlClient.SqlConnection()
      Me._connection.ConnectionString = Global.BDNotasAlumnos.My.MySettings.Default.bd_notasAlumnosConnectionString
    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.SqlClient.SqlCommand(0) {}
      Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
      Me._commandCollection(0).Connection = Me.Connection
      Me._commandCollection(0).CommandText = "SELECT id_alumno, nombre FROM dbo.alumnos"
      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 Overridable Overloads Function Fill(ByVal dataTable As DataSetBDNotasAlumnos.alumnosDataTable) 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 Overridable Overloads Function GetData() As DataSetBDNotasAlumnos.alumnosDataTable
      Me.Adapter.SelectCommand = Me.CommandCollection(0)
      Dim dataTable As DataSetBDNotasAlumnos.alumnosDataTable = New DataSetBDNotasAlumnos.alumnosDataTable()
      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 Overridable Overloads Function Update(ByVal dataTable As DataSetBDNotasAlumnos.alumnosDataTable) 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 Overridable Overloads Function Update(ByVal dataSet As DataSetBDNotasAlumnos) As Integer
      Return Me.Adapter.Update(dataSet, "alumnos")
    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 Overridable Overloads 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 Overridable Overloads 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 Overridable Overloads Function Delete(ByVal Original_id_alumno As Integer, ByVal Original_nombre As String) As Integer
      Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_id_alumno, Integer)
      If (Original_nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("Original_nombre")
      Else
        Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nombre, 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 Overridable Overloads Function Insert(ByVal id_alumno As Integer, ByVal nombre As String) As Integer
      Me.Adapter.InsertCommand.Parameters(0).Value = CType(id_alumno, Integer)
      If (nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("nombre")
      Else
        Me.Adapter.InsertCommand.Parameters(1).Value = CType(nombre, 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 Overridable Overloads Function Update(ByVal id_alumno As Integer, ByVal nombre As String, ByVal Original_id_alumno As Integer, ByVal Original_nombre As String) As Integer
      Me.Adapter.UpdateCommand.Parameters(0).Value = CType(id_alumno, Integer)
      If (nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("nombre")
      Else
        Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nombre, String)
      End If
      Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_id_alumno, Integer)
      If (Original_nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("Original_nombre")
      Else
        Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nombre, 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 Overridable Overloads Function Update(ByVal nombre As String, ByVal Original_id_alumno As Integer, ByVal Original_nombre As String) As Integer
      Return Me.Update(Original_id_alumno, nombre, Original_id_alumno, Original_nombre)
    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 asignaturasTableAdapter
    Inherits Global.System.ComponentModel.Component

    Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    Private _connection As Global.System.Data.SqlClient.SqlConnection

    Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    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.SqlClient.SqlDataAdapter
      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.SqlClient.SqlConnection
      Get
        If (Me._connection Is Nothing) Then
          Me.InitConnection()
        End If
        Return Me._connection
      End Get
      Set(value As Global.System.Data.SqlClient.SqlConnection)
        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.SqlClient.SqlCommand).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.SqlClient.SqlTransaction
      Get
        Return Me._transaction
      End Get
      Set(value As Global.System.Data.SqlClient.SqlTransaction)
        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.SqlClient.SqlCommand()
      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(value As Boolean)
        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.SqlClient.SqlDataAdapter()
      Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
      tableMapping.SourceTable = "Table"
      tableMapping.DataSetTable = "asignaturas"
      tableMapping.ColumnMappings.Add("id_asignatura", "id_asignatura")
      tableMapping.ColumnMappings.Add("nombre", "nombre")
      Me._adapter.TableMappings.Add(tableMapping)
      Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.DeleteCommand.Connection = Me.Connection
      Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[asignaturas] WHERE (([id_asignatura] = @Original_id_asignatura" & _
          ") AND ([nombre] = @Original_nombre))"
      Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.InsertCommand.Connection = Me.Connection
      Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[asignaturas] ([id_asignatura], [nombre]) VALUES (@id_asignatur" & _
          "a, @nombre);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id_asignatura, nombre FROM asignaturas WHERE (id_asignatura" & _
          " = @id_asignatura)"
      Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.UpdateCommand.Connection = Me.Connection
      Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[asignaturas] SET [id_asignatura] = @id_asignatura, [nombre] = @nomb" & _
          "re WHERE (([id_asignatura] = @Original_id_asignatura) AND ([nombre] = @Original_" & _
          "nombre));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id_asignatura, nombre FROM asignaturas WHERE (id_asignatura = " & _
          "@id_asignatura)"
      Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nombre", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nombre", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
    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.SqlClient.SqlConnection()
      Me._connection.ConnectionString = Global.BDNotasAlumnos.My.MySettings.Default.bd_notasAlumnosConnectionString
    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.SqlClient.SqlCommand(0) {}
      Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
      Me._commandCollection(0).Connection = Me.Connection
      Me._commandCollection(0).CommandText = "SELECT id_asignatura, nombre FROM dbo.asignaturas"
      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 Overridable Overloads Function Fill(ByVal dataTable As DataSetBDNotasAlumnos.asignaturasDataTable) 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 Overridable Overloads Function GetData() As DataSetBDNotasAlumnos.asignaturasDataTable
      Me.Adapter.SelectCommand = Me.CommandCollection(0)
      Dim dataTable As DataSetBDNotasAlumnos.asignaturasDataTable = New DataSetBDNotasAlumnos.asignaturasDataTable()
      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 Overridable Overloads Function Update(ByVal dataTable As DataSetBDNotasAlumnos.asignaturasDataTable) 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 Overridable Overloads Function Update(ByVal dataSet As DataSetBDNotasAlumnos) As Integer
      Return Me.Adapter.Update(dataSet, "asignaturas")
    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 Overridable Overloads 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 Overridable Overloads 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 Overridable Overloads Function Delete(ByVal Original_id_asignatura As Integer, ByVal Original_nombre As String) As Integer
      Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_id_asignatura, Integer)
      If (Original_nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("Original_nombre")
      Else
        Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_nombre, 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 Overridable Overloads Function Insert(ByVal id_asignatura As Integer, ByVal nombre As String) As Integer
      Me.Adapter.InsertCommand.Parameters(0).Value = CType(id_asignatura, Integer)
      If (nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("nombre")
      Else
        Me.Adapter.InsertCommand.Parameters(1).Value = CType(nombre, 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 Overridable Overloads Function Update(ByVal id_asignatura As Integer, ByVal nombre As String, ByVal Original_id_asignatura As Integer, ByVal Original_nombre As String) As Integer
      Me.Adapter.UpdateCommand.Parameters(0).Value = CType(id_asignatura, Integer)
      If (nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("nombre")
      Else
        Me.Adapter.UpdateCommand.Parameters(1).Value = CType(nombre, String)
      End If
      Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_id_asignatura, Integer)
      If (Original_nombre Is Nothing) Then
        Throw New Global.System.ArgumentNullException("Original_nombre")
      Else
        Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nombre, 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 Overridable Overloads Function Update(ByVal nombre As String, ByVal Original_id_asignatura As Integer, ByVal Original_nombre As String) As Integer
      Return Me.Update(Original_id_asignatura, nombre, Original_id_asignatura, Original_nombre)
    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 alumnoAsigsNotasTableAdapter
    Inherits Global.System.ComponentModel.Component

    Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    Private _connection As Global.System.Data.SqlClient.SqlConnection

    Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    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.SqlClient.SqlDataAdapter
      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.SqlClient.SqlConnection
      Get
        If (Me._connection Is Nothing) Then
          Me.InitConnection()
        End If
        Return Me._connection
      End Get
      Set(value As Global.System.Data.SqlClient.SqlConnection)
        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.SqlClient.SqlCommand).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.SqlClient.SqlTransaction
      Get
        Return Me._transaction
      End Get
      Set(value As Global.System.Data.SqlClient.SqlTransaction)
        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.SqlClient.SqlCommand()
      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(value As Boolean)
        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.SqlClient.SqlDataAdapter()
      Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
      tableMapping.SourceTable = "Table"
      tableMapping.DataSetTable = "alums_asigs_ex"
      tableMapping.ColumnMappings.Add("id_alumno", "id_alumno")
      tableMapping.ColumnMappings.Add("id_asignatura", "id_asignatura")
      tableMapping.ColumnMappings.Add("nota", "nota")
      tableMapping.ColumnMappings.Add("nombreAsig", "nombreAsig")
      Me._adapter.TableMappings.Add(tableMapping)
      Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.DeleteCommand.Connection = Me.Connection
      Me._adapter.DeleteCommand.CommandText = "DELETE FROM [alums_asigs] WHERE (([id_alumno] = @Original_id_alumno) AND ([id_asi" & _
          "gnatura] = @Original_id_asignatura) AND ([nota] = @Original_nota))"
      Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nota", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nota", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.InsertCommand.Connection = Me.Connection
      Me._adapter.InsertCommand.CommandText = "INSERT INTO [alums_asigs] ([id_alumno], [id_asignatura], [nota]) VALUES (@id_alum" & _
          "no, @id_asignatura, @nota);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id_alumno, id_asignatura, nota, (SELECT nomb" & _
          "re FROM asignaturas WHERE (alums_asigs.id_asignatura = id_asignatura)) AS nombre" & _
          "Asig FROM alums_asigs WHERE (id_alumno = @id_alumno) AND (id_asignatura = @id_as" & _
          "ignatura)"
      Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nota", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nota", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
      Me._adapter.UpdateCommand.Connection = Me.Connection
      Me._adapter.UpdateCommand.CommandText = "UPDATE [alums_asigs] SET [id_alumno] = @id_alumno, [id_asignatura] = @id_asignatu" & _
          "ra, [nota] = @nota WHERE (([id_alumno] = @Original_id_alumno) AND ([id_asignatur" & _
          "a] = @Original_id_asignatura) AND ([nota] = @Original_nota));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT id_alumno," & _
          " id_asignatura, nota, (SELECT nombre FROM asignaturas WHERE (alums_asigs.id_asig" & _
          "natura = id_asignatura)) AS nombreAsig FROM alums_asigs WHERE (id_alumno = @id_a" & _
          "lumno) AND (id_asignatura = @id_asignatura)"
      Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@nota", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nota", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_alumno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id_asignatura", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id_asignatura", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
      Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_nota", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "nota", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
    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.SqlClient.SqlConnection()
      Me._connection.ConnectionString = Global.BDNotasAlumnos.My.MySettings.Default.bd_notasAlumnosConnectionString
    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.SqlClient.SqlCommand(0) {}
      Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
      Me._commandCollection(0).Connection = Me.Connection
      Me._commandCollection(0).CommandText = "SELECT id_alumno, id_asignatura, nota," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELECT nombre FROM asignaturas" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "  WHERE" & _
          " (alums_asigs.id_asignatura = id_asignatura)) AS nombreAsig" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM alums_asigs WH" & _
          "ERE (id_alumno = @id_alumno) " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
      Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
      Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id_alumno", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "id_alumno", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
    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 Overridable Overloads Function Fill(ByVal dataTable As DataSetBDNotasAlumnos.alums_asigs_exDataTable, ByVal id_alumno As Integer) As Integer
      Me.Adapter.SelectCommand = Me.CommandCollection(0)
      Me.Adapter.SelectCommand.Parameters(0).Value = CType(id_alumno, 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], True)> _
    Public Overridable Overloads Function GetData(ByVal id_alumno As Integer) As DataSetBDNotasAlumnos.alums_asigs_exDataTable
      Me.Adapter.SelectCommand = Me.CommandCollection(0)
      Me.Adapter.SelectCommand.Parameters(0).Value = CType(id_alumno, Integer)
      Dim dataTable As DataSetBDNotasAlumnos.alums_asigs_exDataTable = New DataSetBDNotasAlumnos.alums_asigs_exDataTable()
      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 Overridable Overloads Function Update(ByVal dataTable As DataSetBDNotasAlumnos.alums_asigs_exDataTable) 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 Overridable Overloads Function Update(ByVal dataSet As DataSetBDNotasAlumnos) As Integer
      Return Me.Adapter.Update(dataSet, "alums_asigs_ex")
    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 Overridable Overloads 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 Overridable Overloads 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 Overridable Overloads Function Delete(ByVal Original_id_alumno As Integer, ByVal Original_id_asignatura As Integer, ByVal Original_nota As Single) As Integer
      Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_id_alumno, Integer)
      Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_id_asignatura, Integer)
      Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nota, Single)
      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 Overridable Overloads Function Insert(ByVal id_alumno As Integer, ByVal id_asignatura As Integer, ByVal nota As Single) As Integer
      Me.Adapter.InsertCommand.Parameters(0).Value = CType(id_alumno, Integer)
      Me.Adapter.InsertCommand.Parameters(1).Value = CType(id_asignatura, Integer)
      Me.Adapter.InsertCommand.Parameters(2).Value = CType(nota, Single)
      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 Overridable Overloads Function Update(ByVal id_alumno As Integer, ByVal id_asignatura As Integer, ByVal nota As Single, ByVal Original_id_alumno As Integer, ByVal Original_id_asignatura As Integer, ByVal Original_nota As Single) As Integer
      Me.Adapter.UpdateCommand.Parameters(0).Value = CType(id_alumno, Integer)
      Me.Adapter.UpdateCommand.Parameters(1).Value = CType(id_asignatura, Integer)
      Me.Adapter.UpdateCommand.Parameters(2).Value = CType(nota, Single)
      Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_id_alumno, Integer)
      Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_id_asignatura, Integer)
      Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_nota, Single)
      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 Overridable Overloads Function Update(ByVal nota As Single, ByVal Original_id_alumno As Integer, ByVal Original_id_asignatura As Integer, ByVal Original_nota As Single) As Integer
      Return Me.Update(Original_id_alumno, Original_id_asignatura, nota, Original_id_alumno, Original_id_asignatura, Original_nota)
    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 _alumnosTableAdapter As alumnosTableAdapter

    Private _asignaturasTableAdapter As asignaturasTableAdapter

    Private _alumnoAsigsNotasTableAdapter As alumnoAsigsNotasTableAdapter

    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(value As UpdateOrderOption)
        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 alumnosTableAdapter() As alumnosTableAdapter
      Get
        Return Me._alumnosTableAdapter
      End Get
      Set(value As alumnosTableAdapter)
        Me._alumnosTableAdapter = 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 asignaturasTableAdapter() As asignaturasTableAdapter
      Get
        Return Me._asignaturasTableAdapter
      End Get
      Set(value As asignaturasTableAdapter)
        Me._asignaturasTableAdapter = 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 alumnoAsigsNotasTableAdapter() As alumnoAsigsNotasTableAdapter
      Get
        Return Me._alumnoAsigsNotasTableAdapter
      End Get
      Set(value As alumnoAsigsNotasTableAdapter)
        Me._alumnoAsigsNotasTableAdapter = 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(value As Boolean)
        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._alumnosTableAdapter) Is Nothing) _
                    AndAlso (Not (Me._alumnosTableAdapter.Connection) Is Nothing)) Then
          Return Me._alumnosTableAdapter.Connection
        End If
        If ((Not (Me._asignaturasTableAdapter) Is Nothing) _
                    AndAlso (Not (Me._asignaturasTableAdapter.Connection) Is Nothing)) Then
          Return Me._asignaturasTableAdapter.Connection
        End If
        If ((Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) _
                    AndAlso (Not (Me._alumnoAsigsNotasTableAdapter.Connection) Is Nothing)) Then
          Return Me._alumnoAsigsNotasTableAdapter.Connection
        End If
        Return Nothing
      End Get
      Set(value As Global.System.Data.IDbConnection)
        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._alumnosTableAdapter) Is Nothing) Then
          count = (count + 1)
        End If
        If (Not (Me._asignaturasTableAdapter) Is Nothing) Then
          count = (count + 1)
        End If
        If (Not (Me._alumnoAsigsNotasTableAdapter) 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 DataSetBDNotasAlumnos, 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._asignaturasTableAdapter) Is Nothing) Then
        Dim updatedRows() As Global.System.Data.DataRow = dataSet.asignaturas.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._asignaturasTableAdapter.Update(updatedRows))
          allChangedRows.AddRange(updatedRows)
        End If
      End If
      If (Not (Me._alumnosTableAdapter) Is Nothing) Then
        Dim updatedRows() As Global.System.Data.DataRow = dataSet.alumnos.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._alumnosTableAdapter.Update(updatedRows))
          allChangedRows.AddRange(updatedRows)
        End If
      End If
      If (Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) Then
        Dim updatedRows() As Global.System.Data.DataRow = dataSet.alums_asigs_ex.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._alumnoAsigsNotasTableAdapter.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 DataSetBDNotasAlumnos, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
      Dim result As Integer = 0
      If (Not (Me._asignaturasTableAdapter) Is Nothing) Then
        Dim addedRows() As Global.System.Data.DataRow = dataSet.asignaturas.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
        If ((Not (addedRows) Is Nothing) _
                    AndAlso (0 < addedRows.Length)) Then
          result = (result + Me._asignaturasTableAdapter.Update(addedRows))
          allAddedRows.AddRange(addedRows)
        End If
      End If
      If (Not (Me._alumnosTableAdapter) Is Nothing) Then
        Dim addedRows() As Global.System.Data.DataRow = dataSet.alumnos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
        If ((Not (addedRows) Is Nothing) _
                    AndAlso (0 < addedRows.Length)) Then
          result = (result + Me._alumnosTableAdapter.Update(addedRows))
          allAddedRows.AddRange(addedRows)
        End If
      End If
      If (Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) Then
        Dim addedRows() As Global.System.Data.DataRow = dataSet.alums_asigs_ex.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
        If ((Not (addedRows) Is Nothing) _
                    AndAlso (0 < addedRows.Length)) Then
          result = (result + Me._alumnoAsigsNotasTableAdapter.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 DataSetBDNotasAlumnos, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
      Dim result As Integer = 0
      If (Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) Then
        Dim deletedRows() As Global.System.Data.DataRow = dataSet.alums_asigs_ex.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
        If ((Not (deletedRows) Is Nothing) _
                    AndAlso (0 < deletedRows.Length)) Then
          result = (result + Me._alumnoAsigsNotasTableAdapter.Update(deletedRows))
          allChangedRows.AddRange(deletedRows)
        End If
      End If
      If (Not (Me._alumnosTableAdapter) Is Nothing) Then
        Dim deletedRows() As Global.System.Data.DataRow = dataSet.alumnos.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
        If ((Not (deletedRows) Is Nothing) _
                    AndAlso (0 < deletedRows.Length)) Then
          result = (result + Me._alumnosTableAdapter.Update(deletedRows))
          allChangedRows.AddRange(deletedRows)
        End If
      End If
      If (Not (Me._asignaturasTableAdapter) Is Nothing) Then
        Dim deletedRows() As Global.System.Data.DataRow = dataSet.asignaturas.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
        If ((Not (deletedRows) Is Nothing) _
                    AndAlso (0 < deletedRows.Length)) Then
          result = (result + Me._asignaturasTableAdapter.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 DataSetBDNotasAlumnos) 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._alumnosTableAdapter) Is Nothing) _
                  AndAlso (Me.MatchTableAdapterConnection(Me._alumnosTableAdapter.Connection) = False)) Then
        Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi" & _
                "sma cadena de conexión.")
      End If
      If ((Not (Me._asignaturasTableAdapter) Is Nothing) _
                  AndAlso (Me.MatchTableAdapterConnection(Me._asignaturasTableAdapter.Connection) = False)) Then
        Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi" & _
                "sma cadena de conexión.")
      End If
      If ((Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) _
                  AndAlso (Me.MatchTableAdapterConnection(Me._alumnoAsigsNotasTableAdapter.Connection) = False)) Then
        Throw New Global.System.ArgumentException("Todos los TableAdapters administrados por un TableAdapterManager deben usar la mi" & _
                "sma cadena de conexión.")
      End If
      Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
      If (workConnection Is Nothing) Then
        Throw New Global.System.ApplicationException("TableAdapterManager no contiene información de conexión. Establezca cada propieda" & _
                "d TableAdapterManager TableAdapter en una instancia TableAdapter válida.")
      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("La transacción no puede comenzar. La conexión de datos actual no es compatible co" & _
                "n las transacciones o el estado actual no permite que comience la transacción.")
      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._alumnosTableAdapter) Is Nothing) Then
          revertConnections.Add(Me._alumnosTableAdapter, Me._alumnosTableAdapter.Connection)
          Me._alumnosTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection)
          Me._alumnosTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction)
          If Me._alumnosTableAdapter.Adapter.AcceptChangesDuringUpdate Then
            Me._alumnosTableAdapter.Adapter.AcceptChangesDuringUpdate = False
            adaptersWithAcceptChangesDuringUpdate.Add(Me._alumnosTableAdapter.Adapter)
          End If
        End If
        If (Not (Me._asignaturasTableAdapter) Is Nothing) Then
          revertConnections.Add(Me._asignaturasTableAdapter, Me._asignaturasTableAdapter.Connection)
          Me._asignaturasTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection)
          Me._asignaturasTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction)
          If Me._asignaturasTableAdapter.Adapter.AcceptChangesDuringUpdate Then
            Me._asignaturasTableAdapter.Adapter.AcceptChangesDuringUpdate = False
            adaptersWithAcceptChangesDuringUpdate.Add(Me._asignaturasTableAdapter.Adapter)
          End If
        End If
        If (Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) Then
          revertConnections.Add(Me._alumnoAsigsNotasTableAdapter, Me._alumnoAsigsNotasTableAdapter.Connection)
          Me._alumnoAsigsNotasTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection)
          Me._alumnoAsigsNotasTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction)
          If Me._alumnoAsigsNotasTableAdapter.Adapter.AcceptChangesDuringUpdate Then
            Me._alumnoAsigsNotasTableAdapter.Adapter.AcceptChangesDuringUpdate = False
            adaptersWithAcceptChangesDuringUpdate.Add(Me._alumnoAsigsNotasTableAdapter.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._alumnosTableAdapter) Is Nothing) Then
          Me._alumnosTableAdapter.Connection = CType(revertConnections(Me._alumnosTableAdapter), Global.System.Data.SqlClient.SqlConnection)
          Me._alumnosTableAdapter.Transaction = Nothing
        End If
        If (Not (Me._asignaturasTableAdapter) Is Nothing) Then
          Me._asignaturasTableAdapter.Connection = CType(revertConnections(Me._asignaturasTableAdapter), Global.System.Data.SqlClient.SqlConnection)
          Me._asignaturasTableAdapter.Transaction = Nothing
        End If
        If (Not (Me._alumnoAsigsNotasTableAdapter) Is Nothing) Then
          Me._alumnoAsigsNotasTableAdapter.Connection = CType(revertConnections(Me._alumnoAsigsNotasTableAdapter), Global.System.Data.SqlClient.SqlConnection)
          Me._alumnoAsigsNotasTableAdapter.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
