Seperti kita ketahui bersama, Microsoft akan menambahkan skema ke setiap node WebService yang dikirimkan berdasarkan kumpulan data, sehingga tidak kompatibel dengan j2ee dan flash, jadi saya menemukan cara untuk mengubahnya menjadi xml biasa. Kodenya adalah sebagai berikut:
Metode 1:
DataSetToXML Kelas Publik : Mewarisi System.Web.UI.Page
Sub Page_Load Pribadi (Pengirim ByVal Sebagai System.Object, ByVal dan Sebagai System.EventArgs) Menangani MyBase.Load
Redupkan objekConn Sebagai SqlConnection
Redupkan strSql As String
strSql = "PILIH 10 TERATAS * DARI Pelanggan"
objConn = SqlConnection Baru(ConfigurationSettings.AppSettings("ConnectionString"))
Redupkan sdaCust Sebagai SqlDataAdapter Baru(strSql, objConn)
Redupkan dstCust Sebagai DataSet Baru()
sdaCust.Fill(dstCust, "Pelanggan")
'Simpan data ke file xml dan file skema
dstCust.WriteXML(Server.MapPath("Pelanggan.xml"),XmlWriteMode.IgnoreSchema)
dstCust.WriteXMLSchema(Server.MapPath("Pelanggan.xsd"))
End Sub
Metode ini untuk menulis file xml
Metode dua:
<WebMethod(Deskripsi:="Semua Daftar Kelas")> _
Fungsi Publik ListAllRooms() Sebagai XmlDocument
Coba
m_CpCourseArrange.FillRoomId(m_DsCourseArrange)
'Redupkan pembaca Sebagai MemoryStream Baru
Redupkan dokumen Sebagai XmlDocument Baru
doc.LoadXml(m_DsCourseArrange.GetXml.ToString)
Kembalikan dokumen
Catch ex As Protocols.SoapException
Throw SoapExceptionE.RaiseException("ListAllRooms", " http://tempuri.org/CourseArrange ", ex.Message, "4000", ex.Source, SoapExceptionE.FaultCode.Server)
Akhiri Coba
Fungsi Akhir
GetXML--Mengembalikan representasi XML dari data yang disimpan di DataSet (MSDN).
Sub Bersama Pribadi DemonstrateGetXml()
' Buat DataSet dengan satu tabel yang berisi dua kolom dan 10 baris.
Redupkan ds Sebagai DataSet = DataSet Baru("myDataSet")
Redupkan As DataTable = ds.Tables.Add("Item")
t.Kolom.Tambahkan("id", Type.GetType("System.Int32"))
t.Columns.Add("Item", Type.GetType("System.String"))
' Tambahkan sepuluh baris.
Redupkan Sebagai DataRow
Redupkan saya Sebagai Integer
Untuk i = 0 sampai 9
r = t.Baris Baru()
r("id") = saya
r("Barang")= "Barang" & i
t.Baris.Tambahkan(r)
Berikutnya
' Tampilkan konten DataSet sebagai XML.
Konsol.WriteLine(ds.GetXml())
Akhiri Sub
Tampaknya Anda tidak perlu khawatir tentang konversinya saat meneruskannya dengan kumpulan data di masa mendatang.