如何用vb获取网络上的xml文件,并解析内容

Question

在公网上搭一服务器,里面存放有数据在数据库中,有vb6.0程序连接到服务器,获取到xml文件包含的数据,服务器端要如何设置?vb6.0程序端要如何做?着方面的知识一点都不懂,希望各位告之,并说的详细点,谢谢

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim objXMLDom As New MSXML.DOMDocument
    Dim objXMLNodeList As MSXML.IXMLDOMNodeList
    Dim objXMLNode As MSXML.IXMLDOMNode    objXMLDom.async = False
    objXMLDom.validateOnParse = False    Dim bSuccess As Boolean
    bSuccess = objXMLDom.Load("http://192.168.1.190/1.xml")
    
    If bSuccess Then
        If objXMLDom.selectNodes("/root/Node1").length > 0 Then
            MsgBox objXMLDom.selectSingleNode("/root/Node1").Text
        End If
    End IfEnd Sub1)要添加对xml的引用
2)1.xml的内容为：
<root>
  <Node1>Text1</Node1>
</root>弹出消息为：Text1