Comme nous le savons tous, Microsoft ajoutera un schéma à chaque nœud du WebService fourni par l'ensemble de données, il n'est donc pas compatible avec j2ee et flash, j'ai donc trouvé un moyen de les convertir en XML ordinaire. Le code est le suivant :
Méthode 1 :
Classe publique DataSetToXML : hérite de System.Web.UI.Page
Private Sub Page_Load (expéditeur ByVal en tant que System.Object, ByVal et en tant que System.EventArgs) gère MyBase.Load
Dim objConn en tant que SqlConnection
Dim strSql As String
strSql = "SELECT TOP 10 * FROM Customers"
objConn = Nouveau SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim sdaCust As New SqlDataAdapter(strSql, objConn)
Dim dstCust As New DataSet()
sdaCust.Fill(dstCust, "Clients")
'Enregistrer les données dans un fichier XML et un fichier de schéma
dstCust.WriteXML(Server.MapPath("Customers.xml"),XmlWriteMode.IgnoreSchema)
dstCust.WriteXMLSchema(Server.MapPath("Clients.xsd"))
End Sub
Cette méthode consiste à écrire un fichier XML
Deuxième méthode :
<WebMethod(Description:="Toutes les listes de classes")> _
Fonction publique ListAllRooms() en tant
qu'essai
XmlDocument
m_CpCourseArrange.FillRoomId(m_DsCourseArrange)
'Lecteur Dim en tant que nouveau MemoryStream
Dim doc en tant que nouveau XmlDocument
doc.LoadXml(m_DsCourseArrange.GetXml.ToString)
Retourner le document
Catch ex As Protocols.SoapException
Lancez SoapExceptionE.RaiseException("ListAllRooms", " http://tempuri.org/CourseArrange ", ex.Message, "4000", ex.Source, SoapExceptionE.FaultCode.Server)
Fin Essayer
Fonction de fin
GetXML : renvoie la représentation XML des données stockées dans le DataSet (MSDN).
Sous-démonstration privée partagéeGetXml()
' Créez un DataSet avec une table contenant deux colonnes et 10 lignes.
Dim ds As DataSet = Nouveau DataSet("myDataSet")
Dim t As DataTable = ds.Tables.Add("Items")
t.Columns.Add("id", Type.GetType("System.Int32"))
t.Columns.Add("Item", Type.GetType("System.String"))
'Ajoute dix lignes.
Dim r comme DataRow
Dim i comme entier
Pour i = 0 à 9
r = t.NewRow()
r("identifiant") = je
r("Article")= "Article" & je
t.Rows.Add(r)
Suivant
' Afficher le contenu du DataSet au format XML.
Console.WriteLine(ds.GetXml())
Fin du sous-marin
Il semble que vous n'ayez pas à vous soucier de sa conversion lors de sa transmission ultérieure avec un ensemble de données.