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>
[解决办法]
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
Next
End Function
