Nuevo método para convertir DataSet a xml normal

Como todos sabemos, Microsoft agregará un esquema a cada nodo del servicio web entregado por conjunto de datos, por lo que no es compatible con j2ee y flash, así que encontré una manera de convertirlos a xml normal. El código es el siguiente:

Método 1:
Clase pública DataSetToXML: hereda System.Web.UI.Page

Private Sub Page_Load (remitente ByVal como System.Object, ByVal y como System.EventArgs) Maneja MyBase.Load
Dim objConn como SqlConnection
Dim strSql As String

strSql = "SELECCIONAR LOS 10 PRINCIPALES * DE Clientes"
objConn = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))

Atenuar sdaCust como nuevo SqlDataAdapter(strSql, objConn)
Atenuar dstCust como nuevo conjunto de datos()

sdaCust.Fill(dstCust, "Clientes")
'Guardar datos en un archivo xml y un archivo de esquema
dstCust.WriteXML(Server.MapPath("Clientes.xml"),XmlWriteMode.IgnoreSchema)
dstCust.WriteXMLSchema(Server.MapPath("Clientes.xsd"))
End Sub

Este método consiste en escribir un archivo xml.

Método dos:
<WebMethod(Description:="Lista de todas las aulas")> _
Función pública ListAllRooms() como

prueba

m_CpCourseArrange.FillRoomId(m_DsCourseArrange)
'Lector tenue como nuevo MemoryStream

Atenuar documento como nuevo documento Xml
doc.LoadXml(m_DsCourseArrange.GetXml.ToString)
Devolver documento

Catch ex como Protocols.SoapException
Lanzar SoapExceptionE.RaiseException("ListAllRooms", " http://tempuri.org/CourseArrange ", ex.Message, "4000", ex.Source, SoapExceptionE.FaultCode.Server)
Finalizar intento
Función final

GetXML: devuelve la representación XML de los datos almacenados en el conjunto de datos (MSDN).

Subdemostración privada compartidaGetXml()
' Crea un conjunto de datos con una tabla que contiene dos columnas y 10 filas.
Dim ds As DataSet = Nuevo conjunto de datos ("myDataSet")
Dim t As DataTable = ds.Tables.Add("Elementos")
t.Columns.Add("id", Type.GetType("System.Int32"))
t.Columns.Add("Item", Type.GetType("System.String"))

' Agrega diez filas.
Atenuar r como fila de datos
Atenuar i como entero
Para i = 0 a 9
r = t.NuevaFila()
r("identificación") = yo
r("Artículo")= "Artículo" & yo
t.Rows.Add(r)
Siguiente

' Muestra el contenido del conjunto de datos como XML.
Consola.WriteLine(ds.GetXml())
Subtítulo final

Parece que no tienes que preocuparte por su conversión cuando lo pases con un conjunto de datos en el futuro.