Access数据库导出和导入XML文件.pdfVIP

首先介绍如何将现有 XML 文件导入到 Access 数据库： 复制代码 Const acAppendData = 2 Set objAccess = CreateObject(Access.Application) objAccess.OpenCurrentDatabase C:\Scripts\Test.mdb objAccess.ImportXML c:\scripts\test.xml, acAppendData 在此脚本中，假定该 XML 文件具有一个外部元素标记（例如 Inventory ），该标记引用 数 据 库 C:\Scripts\Test.mdb 中 的 表 。 （换 句 话 说 ， 在 该 数 据 库 中 有 一 个 名 为 Inventory 的表。）这意味着您的 XML 文件开头可能类似如下代码： 复制代码 ?xml version=1.0 encoding=UTF-8? Inventory ComputerNameatl-fs-01/ComputerName 因 为 我 们 要 将 XML 数 据 添 加 到 该 表 中 ， 所 以 我 们 在 脚 本 中 首 先 定 义 名 为 acAppendData 的常量并将其值设为 2 。随后将使用该常量告诉脚本导入数据并将其添 加到现有的表中。 我们 早就知道 您将提出问题：是的，还有其他导入数据的方法。例如，可以定义名为 acStructureOnly 的常量并将其值设为 0 。在这种情况下， Access 将检查该 XML 文 件并创建模仿该文件结构的表。但却不会导入任何数据；我们将在数据库中只获得一张空 表。 或者，可以定义名为 acStructureAndData 的常量并将其值设为 1 。如 果是这样， Access 将不但会创建新表，而且会将数据导入到该表中。根据数据本身的特点，这么做 非常有效。例如， Access 将创建一个表，并在默认情况下，将每个字段的数据类型设置 为 文本 。如果需要将数据存储在 备注 或 日期 字段中，这就会是个问题。这仅仅是您 “ ” “ ” “ ” 必须按逐个文件进行确定的内容。 提示 ：为了以防万一，我们建议先构建数据库表， 然后 添加数据。为此，可从 XML 文件导 入结构，然后在 Access 中打开新表格并根据需要更改字段类型。完成之后即可添加数据， 而不会有任何问题。 在 定 义 了 常 量 后 ， 我 们 创 建 Access.Application 对 象 的 实 例 ， 然 后 调 用 OpenCurrentDatabase 方法打开文件 C:\Scripts\Test.mdb ： 复制代码 Set objAccess = CreateObject(Access.Application) objAccess.OpenCurrentDatabase C:\Scripts\Test.mdb 现在我们只需要调用 ImportXML 方法并向其传递两个参数：要导入的 XML 文件的路 径 (C:\Scripts\Test.xml) 和导入类型（由常量 acAppendData 指定）： 复制代码 objAccess.ImportXML c:\scripts\test.xml, acAppendData 就是这样。等几秒钟（取决于该 XML 文件的大小），然后数据就会导入到 Microsoft Access 中。然后即可从中随心所欲地处理这些数据。我们插一句，可以将数据导回为 XML 。 您需要 XML 版本的 Access 表吗？好啊，为什么不试试： 复制代码 Const acExportTable = 0 Set objAccess = CreateObject(Access.Application) objAccess.OpenCurrentDatab