VB6 для чтения XML-ответа набора данных от веб-службы vb.net

Question

Я понятия не имею, чтобы сделать это ....

Я занимаюсь серфингом в сети ... но ни один из кодов не работает ....

У меня есть xml-ответ от веб-службы vb.net:

      <?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 ???

Answer 1

В vb6 есть много ссылок на обработку XML. Мои предпочтения следуют в следующей статье: http://www.xml.com/pub/a/2000/07/12/vbasic/vb_and_xml.html Он предлагает обрабатывать XML через XSLT.

Самый простой способ - использовать MSXML. Но это намного больше работы по сравнению с использованием XSLT