2023年11月23日发(作者:)

首先介绍如何将现有文件导入到数据库:

XML Access

复制代码

Const acAppendData = 2

Set objAccess = CreateObject("ation")

rrentDatabase "C:"

XML "c:", acAppendData

在此脚本中,假定该文件具有一个外部元素标记(例如),该标记引用

XML Inventory

C:

Inventory XML

的表。)这意味着您的文件开头可能类似如下代码:

复制代码

atl-fs-01

XML

acAppendData 2

的常量并将其值设为。随后将使用该常量告诉脚本导入数据并将其添

加到现有的表中。

我们您将提出问题:是的,还有其他导入数据的方法。例如,可以定义名为

早就知道

acStructureOnly 0Access XML

的常量并将其值设为。在这种情况下,将检查该

件并创建模仿该文件结构的表。但却不会导入任何数据;我们将在数据库中只获得一张空

表。

或者,可以定义名为的常量并将其值设为。如果是这样,

acStructureAndData 1

Access

将不但会创建新表,而且会将数据导入到该表中。根据数据本身的特点,这么做

非常有效。例如,将创建一个表,并在默认情况下,将每个字段的数据类型设置

Access

文本。如果需要将数据存储在备注日期字段中,这就会是个问题。这仅仅是您

必须按逐个文件进行确定的内容。

提示:为了以防万一,我们建议先构建数据库表,添加数据。为此,可从 XML 文件导

然后

入结构,然后在 Access 中打开新表格并根据需要更改字段类型。完成之后即可添加数据,

而不会有任何问题。

ation

OpenCurrentDatabase C:

方法打开文件

复制代码

Set objAccess = CreateObject("ation")

rrentDatabase "C:"

现在我们只需要调用方法并向其传递两个参数:要导入的文件的路

ImportXML XML

和导入类型(由常量指定):

(C:) acAppendData

复制代码

XML "c:", acAppendData

就是这样。等几秒钟(取决于该文件的大小),然后数据就会导入到

XML Microsoft

Access

中。然后即可从中随心所欲地处理这些数据。我们插一句,可以将数据导回为

XML

您需要版本的表吗?好啊,为什么不试试:

XML Access

复制代码

Const acExportTable = 0

Set objAccess = CreateObject("ation")

rrentDatabase "C:"

XML acExportTable,"Inventory","c:"

我们仍然从定义常量开始(在本例中是名为的常量),然后将其值设为

acExportTable

0

。为何要使用该常量呢?很简单:因为我们要导出存储在表中的全部数据。或者,我们

可以选择从查询、报表、函数或其他一些元素导出数据。事实上,您可以使用下

Access

表列出的任何常量(及其对应的值):

常量

acExportForm 2

acExportFunction 10

acExportQuery 1

acExportReport 3

acExportServerView 7

acExportStoredProcedure 9

acExportTable 0

定义了常量后,我们创建对象的实例,打开数据库,然后调用

ation

ExportXML

acExportTable

:该常量指示我们将从表中导出数据。

Inventory

:要导出的表的名称。

C: XML

:我们要创建的文件的路径。如果该文件已存在,默认情

况下则会将其覆盖。

Access