vb加载不了xml,该怎么处理

vb加载不了xml
<?xml version="1.0" encoding="gb2312"?>
<Update>
  <!-- Object="Sys" 指系统当前数据库, "PNP" 为 Main.Mdb 的连接， 否则,就是外接程序数据库,外接程序名称在PNP中是禁止命名为PNP,Sys,System的 -->
  <!-- Source 如果没有给出，默认为当前update.mdb 也可以是DDD.XML 格式的数据集合，根据Sorce的扩展名确定来源，如果没有扩展名，就认定是从注册中查连接-->
  <!--Source 和 Object用同不方法去取连接数-->
  <DB Object="Sys" Source="Update.mdb">

  <!-- SQL 执行前,有三个属性需要确定, FindTable FindField FindValue ，没有给出属性，表明不需要判定 -->
  <!-- 这三个条件必须同时符合的情况下才执行,内容第一个字母为判定,分别有"=" "!" -->
  <!-- FindValue 必须有 FindKey 配合,由FindKey 字段过滤给出条件 -->
   
  <!--命令节点 直接执行里面的命令行 共5个固定命令 -->
  <Cmd FindTable="=Report" FindField="!Reprot.Value" FindKey="Report.Key='Keyvalue'" FindValue="=Field3='123'" >
   
  <!--'删除表: 是指目标连接中的表，用“，”分隔删除多个表-->

  <Drop>
<TABLE>表1</TABLE>
<TABLE>表2</TABLE>
</Drop>
  <!--插入表： 是指从源MDB中的表 插入表 目标数据库中 有AS -->
  <Insert>
<TABLE NAME="表1">表1</TABLE>
<TABLE NAME="表2">表2</TABLE>
</Insert>

<!--'更新表: 是指源表中的表中的更新到目标表中，根据关键值更新，没有关键值，就添加-->
  <Update>
<TABLE NAME="表1" KEY="关键字段"></TABLE>
<TABLE NAME="表2" KEY="关建字段"></TABLE>
</Update>

  <!--'删除字体段: 是指目标连接中的表，用“，”分隔删除多个字段 用.分隔表和字体段-->
  <Remove>
<TABLE NAME="表1">字段1，字段2</TABLE>
<TABLE NAME="表2">字段1，字段2</TABLE>
</Remove>
  <!--'添加体段: 是指源表中的表中的字段添加到目标中，同一表名，用“，”分隔删除多个字段 用.分隔表和字体段-->
  <Add>
<TABLE NAME="表1">字段1,字段2</TABLE>
<TABLE NAME="表1">字段1,字段2</TABLE>
</Add>

  </Cmd>
   
  </DB>

</Update>

[解决办法]

VB code

Public Function getxml() As String    Dim n  As Integer    Set xml_document = New DOMDocument        xml_document.Load App.Path & "Update.xml"        '(******** 更改下面从“DB”到“Update/DB”后，此外可以通过)    Set Root_Node = xml_document.selectSingleNode("Update/DB")        Set values_node = Root_Node.selectSingleNode("Cmd")        '(******下面就完全不知所谓了，和XML里的内容不区配，个人认为你的XML不正确)    For n = 1 To CInt(values_node.Text)        Set values_node = Root_Node.selectSingleNode("_" & n)                getxml = getxml + "Drop:" & GetNodeValue(values_node, "Drop", "???") & vbCrLf                getxml = getxml + "Insert:" & GetNodeValue(values_node, "FileName", "???") & vbCrLf        getxml = getxml + "Update" & GetNodeValue(values_node, "Del", "???") & vbCrLf        getxml = getxml + "-------------------------------" & vbCrLf    NextEnd Function
[解决办法]
ding
[解决办法]
我给你推荐一种方法：

[code=VB][/code]
Dim xml_document As DOMDocument

Public Function getxml() As String
 Dim n  As Integer
 Set xml_document = New DOMDocument
 xml_document.Load App.Path & "\update.xml"
  
 Call AddNode(xml_document.documentElement, Nothing)
  
End Function 
 

Private Sub AddNode(ByRef XMLNode As IXMLDOMNode, ByRef TreeNode As Node)
 Dim objNode As Node
 Dim xmlNodeList As IXMLDOMNodeList
 Dim lngNodeIndex As Long

 On Error GoTo ERR_HANDLER

 If TreeNode Is Nothing Then
   Set objNode = TreeView1.Nodes.Add
 Else
   Set objNode = TreeView1.Nodes.Add(TreeNode, tvwChild)
 End If

 objNode.Text = XMLNode.nodeName
 objNode.Expanded = True

 '== Add child nodes
 Set xmlNodeList = XMLNode.childNodes
 For lngNodeIndex = 0 To xmlNodeList.length - 1
   Call AddNode(xmlNodeList.Item(lngNodeIndex), objNode)
 Next lngNodeIndex


ERR_HANDLER:
   If Err.Number <> 0 Then
     MsgBoxErr.Description
   End If
End Sub
[解决办法]
XML对象的LOADXML方法返回真假,
当返回FALSE时,取XML对象的错误信息,
一看就明白了.