ByVal file As String) As
#End Region
<WebMethod()> Public Function XMLData( ByVal file As String) As DataSet Dim FS As IO.FileStream Dim Reader As IO.StreamReader FS = New IO.FileStream(Server.MapPath(file), IO.FileMode.Open, IO.FileAccess.Read) Reader = New IO.StreamReader(FS) DataSet1.ReadXml(Reader) FS.Close() XMLData = DataSet1 End Function
End Class
Листинг 13.2.
Если содержимое XML-файла, используемого в нашем примере, будет выглядеть следующим образом:
<Document> <Row><Document> <Row> <Columnl>l</Columnl> <Column2>2</Column2> <Column3>Textl</Column3> <Column4>Text2</Column4> </Row> <Row> <Columnl>3</Columnl> <Column2>4</Column2> <Column3>Text3</Column3> <Column4>Text4</Column4> </Row> </Document>, <Columnl>l</Columnl> <Column2>2</Column2> <Column3>Textl</Column3> <Column4>Text2</Column4> </Row> <Row> <Columnl>3</Columnl> <Column2>4</Column2> <Column3>Text3</Column3> <Column4>Text4</Column4> </Row> </Document>,
то в результате работы данного Web- сервиса мы получим:
<?xml version="1.0" encoding="utf-8" ?> - <DataSet xmlns="http://tempuri.org/"> - <xs:schema id="Document" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> - <xs:element name="Document" msdata:IsDataSet="true" msdata:Locale="ru-RU"> - <xs:complexType> - <xs:choice maxOccurs="unbounded"> - <xs:element name="Row"> - <xs:complexType> - <xs:sequence> <xs:element name="Columnl" type="xs:string" minOccurs="0" /> <xs:element name="Column2" type="xs:string" minOccurs="0" /> <xs:element name="Column3" type="xs:string" minOccurs="0" /> <xs:element name="Column4" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> </xs:choice> </xs:complexType> </xs:element> </xs:schema> - <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1"> - <Document xmlns=""> - <Row diffgr:id="Row1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Columnl>l</Columnl> <Column2>2</Column2> <Column3>Textl</Column3> <Column4>Text2</Column4> </Row> - <Row diffgr:id="Row2" msdata:rowOrder="1" diffgr:hasChanges="inserted"> <Columnl>3</Columnl> <Column2>4</Column2> <Column3>Text3</Column3> <Column4>Text4</Column4> </Row> </Document> </diffgr:diffgram> </DataSet>
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий