VB6从vb.net webservice读取数据集xml响应

时间:2011-02-10 04:40:20

标签: xml vb.net vb6

我不知道这样做....

我在网上冲浪......但是没有一个代码在工作......

我从vb.net webservice获得了这个xml响应:

      <?xml version="1.0" encoding="utf-8" ?> 
- <DataSet xmlns="http://Wtechwebservice.com.my/">
- <xs:schema id="NewDataSet" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
- <xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true">
- <xs:complexType>
- <xs:choice minOccurs="0" maxOccurs="unbounded">
- <xs:element name="Table">
+ <xs:complexType>
+ <xs:sequence>
  <xs:element name="MessageID" type="xs:int" minOccurs="0" /> 
  <xs:element name="MessageTitle" type="xs:string" minOccurs="0" /> 
  <xs:element name="MessageDesc" type="xs:string" minOccurs="0" /> 
  <xs:element name="StartDate" type="xs:dateTime" minOccurs="0" /> 
  <xs:element name="EndDate" type="xs:dateTime" minOccurs="0" /> 
  <xs:element name="Repeat" type="xs:int" minOccurs="0" /> 
  <xs:element name="Status" type="xs:string" minOccurs="0" /> 
  <xs:element name="DateCreated" type="xs:dateTime" minOccurs="0" /> 
  <xs:element name="LastUpdated" type="xs:dateTime" minOccurs="0" /> 
  <xs:element name="UpdatedBy" 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">
- <NewDataSet xmlns="">
- <Table diffgr:id="Table1" msdata:rowOrder="0">
  <MessageID>11</MessageID> 
  <MessageTitle>Happy New Year</MessageTitle> 
  <MessageDesc>New Year is the time to unfold new horizons & realize new dreams</MessageDesc> 
  <StartDate>2011-01-01T16:10:34.963+08:00</StartDate> 
  <EndDate>2011-01-01T16:10:34.963+08:00</EndDate> 
  <Repeat>1</Repeat> 
  <Status>Active</Status> 
  <DateCreated>2010-02-01T16:10:34.963+08:00</DateCreated> 
  <LastUpdated>2010-02-01T16:10:34.963+08:00</LastUpdated> 
  <UpdatedBy>Nosyi</UpdatedBy> 
  </Table>
  </NewDataSet>
  </diffgr:diffgram>
  </DataSet>

如何让我的VB6应用程序读取此XML的结果?

1 个答案:

答案 0 :(得分:0)

在vb6中有许多处理XML的参考资料。 我的偏好遵循以下文章: http://www.xml.com/pub/a/2000/07/12/vbasic/vb_and_xml.html 它建议通过XSLT处理XML。

最基本的方法是使用MSXML。但与使用XSLT相比,这是一项更多的工作