[RESOLVED] XSD, DataSet and a XML file.

[abhijit]

My requirement is to create a XML file based on an XSD.
The source data for this file will be coming from a database. For the purposes of this test, I am trying to manually assign the values.

I followed these steps:

1) Used the XSD.exe to create a VB Class.

xsd /d /l:VB emprec.xsd /n:XSDSchema.EmpCollection 

2) Added the VB Class in my project.
3) If I try to compile my code, I get an error.

Here's the code I wrote:

Private Sub cmdXML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdXML.Click
        Dim emp As New EMPLOYEE_COLLECTION
        Dim empDataTable As New EMPLOYEE_COLLECTION.EMPLOYEE_RECORDDataTable
        Dim empDataRow As New EMPLOYEE_COLLECTION.EMPLOYEE_RECORDRow
 
        Dim empDataReader As DataTableReader = empDataTable.CreateDataReader()
 
        Dim x As Integer
 
        For x = 1 To 5
            empDataRow.EMPLOYEE_NO = "AISGM"
            empDataRow.FIRSTNAME = "Abhijit"
            empDataRow.LASTNAME = "IsGettingMad"
            empDataRow.NTID = "DONTGETMAD"
            empDataTable.AddEMPLOYEE_RECORDRow(empDataRow)
            empDataRow.ClearErrors()
        Next x

The error I get is

Error    1    First statement of this 'Sub New' must be a call to 'MyBase.New' or 'MyClass.New' because base class 'System.Data.DataRow' of 'writeXMLbasedonXSD.XSDSchema.EmpCollection.EMPLOYEE_COLLECTION.EMPLOYEE_RECORDRow' does not have an accessible 'Sub New' that can be called with no arguments.    D:\Visual Studio 2010\Projects\writeXMLbasedonXSD\writeXMLbasedonXSD\emprec.vb    598    17    writeXMLbasedonXSD 

This is the code from the class that was generated using XSD utility.

Partial Public Class EMPLOYEE_RECORDRow
            Inherits Global.System.Data.DataRow
 
            Private tableEMPLOYEE_RECORD As EMPLOYEE_RECORDDataTable
 
            <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.tableEMPLOYEE_RECORD = CType(Me.Table, EMPLOYEE_RECORDDataTable)
            End Sub
 
            Sub New()
                ' TODO: Complete member initialization 
 
                'I AM UNABLE TO ADD ANY CODE HERE.
            End Sub
 
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
            Public Property EMPLOYEE_NO() As String
                Get
                    Return CType(Me(Me.tableEMPLOYEE_RECORD.EMPLOYEE_NOColumn), String)
                End Get
                Set(ByVal value As String)
                    Me(Me.tableEMPLOYEE_RECORD.EMPLOYEE_NOColumn) = value
                End Set
            End Property
 
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
            Public Property FIRSTNAME() As String
                Get
                    Return CType(Me(Me.tableEMPLOYEE_RECORD.FIRSTNAMEColumn), String)
                End Get
                Set(ByVal value As String)
                    Me(Me.tableEMPLOYEE_RECORD.FIRSTNAMEColumn) = value
                End Set
            End Property
 
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
            Public Property LASTNAME() As String
                Get
                    Return CType(Me(Me.tableEMPLOYEE_RECORD.LASTNAMEColumn), String)
                End Get
                Set(ByVal value As String)
                    Me(Me.tableEMPLOYEE_RECORD.LASTNAMEColumn) = value
                End Set
            End Property
 
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
            Public Property NTID() As String
                Get
                    Return CType(Me(Me.tableEMPLOYEE_RECORD.NTIDColumn), String)
                End Get
                Set(ByVal value As String)
                    Me(Me.tableEMPLOYEE_RECORD.NTIDColumn) = value
                End Set
            End Property
        End Class

How do I resolve this? I am unable to add any code in the 'TODO section for this generated class. What am I missing?