Question WriteXML problem?

raysefo

Well-known member
Joined
Jul 21, 2010
Messages
207
Programming Experience
Beginner
Hi,

I have a web service method like below; The problem is No XML file created!
VB.NET:
 <WebMethod()> _
    Public Function ForwardDrawProgram(ByVal dataset As Data.DataSet) As Boolean
        Dim result As Boolean = True
        Try
            Dim ds As New Data.DataSet("ds")
            ds = dataset
            ds.WriteXml("C:/test.xml")

        Catch ex As Exception
            result = False
            Console.WriteLine(ex.Message)
            Throw New Exception(ex.Message)

        End Try

        Return result
    End Function
And the client code is and dataset is NOT empty.
VB.NET:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myService As EaServices.Service = New EaServices.Service()
        Dim result As Boolean = True
        Try
            Dim dataset As DataSet = query()
            'OutputDataSetAsXML(dataset)
            result = myService.ForwardDrawProgram(dataset:=dataset)
            Response.Write(result)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

    End Sub
    Public Shared Function query() As Data.DataSet

        Dim conn As New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Dim ds As New DataSet
        Try

            Dim comm As New Data.SqlClient.SqlCommand("SELECT name,employeeNumber FROM Users", conn)
            Dim SQLSelectAdapter As New SqlDataAdapter()

            SQLSelectAdapter.SelectCommand = comm
            conn.Open()
            SQLSelectAdapter.Fill(ds)


        Catch ex As Exception
            Console.WriteLine(ex.Message)

        Finally
            'Close the connection
            conn.Close()
        End Try
        Return ds

    End Function
 
Back
Top