xml - MS Access to XML 'Saved Export' 重新导出时会产生不同的 XML 结构

标签 xml database ms-access export structure

我有一个 Microsoft Access 数据库(通过 Office 2010)，用于管理类(class)数据，我需要定期将此数据导出到特定的 XML 结构。

不幸的是，我发现当“保存的导出”稍后重新运行时，通过初始 XML 导出生成的结构不会被复制。我进行了多次测试并尝试在网上研究这个问题，但还没有找到解决方案。希望有人能帮忙!

数据库的相关部分如下所示:(这已从原始数据库简化，但仍然出现同样的问题)。

Database structure - Screenshot

一些上下文信息:“类(class)”是总体培训计划，可能会多次运行。 “事件”是学生实际注册的类(class)的特定实例/运行。 “单元”是该事件的特定教学部分(例如实践、研讨会)。 “Units”可以构成多个“Occurrences”的一部分，因此需要多对多桥接表“OccurrencesUnits”。这个结构是经过仔细规划的，我们实际上无法改变它(希望不需要)。

当我导出到 XML(外部数据 > XML 文件)时，我选择从所有这些表中导出数据:

Export XML settings - screenshot

初始导出完成后，生成的 XML 如下所示:

<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2015-11-25T16:09:31">
        <Courses>
                <CourseID>1</CourseID>
                <CourseTitle>Meat Science</CourseTitle>
                <Occurrences>
                        <OccurrenceID>1</OccurrenceID>
                        <OccurrenceTitle>Meat Science - 10 Credit Version</OccurrenceTitle>
                        <CourseID>1</CourseID>
                        <OccurrencesUnits>
                                <OccurrencesUnitsID>1</OccurrencesUnitsID>
                                <OccurrenceID>1</OccurrenceID>
                                <UnitID>1</UnitID>
                        </OccurrencesUnits>
                </Occurrences>
                <Occurrences>
                        <OccurrenceID>2</OccurrenceID>
                        <OccurrenceTitle>Meat Science - 20 Credit Version</OccurrenceTitle>
                        <CourseID>1</CourseID>
                        <OccurrencesUnits>
                                <OccurrencesUnitsID>2</OccurrencesUnitsID>
                                <OccurrenceID>2</OccurrenceID>
                                <UnitID>1</UnitID>
                        </OccurrencesUnits>
                                <OccurrencesUnits>
                                <OccurrencesUnitsID>3</OccurrencesUnitsID>
                                <OccurrenceID>2</OccurrenceID>
                                <UnitID>2</UnitID>
                        </OccurrencesUnits>
                </Occurrences>
        </Courses>
        <Units>
                <UnitID>1</UnitID>
                <UnitTitle>Meat Safety</UnitTitle>
        </Units>
        <Units>
                <UnitID>2</UnitID>
                <UnitTitle>Meat Genetics</UnitTitle>
        </Units>
</dataroot>

这正是我们想要的正确数据结构，其中“OccurrencesUnits”嵌套在“Occurrences”内。然后，我保存导出步骤以便稍后在 MS Access 中使用。

不幸的是，每当我重新使用此导出步骤(通过“外部数据”>“保存的导出”)时，就会出现问题。这会产生一个结构不同的 XML 文件:

<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2015-11-25T16:10:34">
        <Courses>
                <CourseID>1</CourseID>
                <CourseTitle>Meat Science</CourseTitle>
                <Occurrences>
                        <OccurrenceID>1</OccurrenceID>
                        <OccurrenceTitle>Meat Science - 10 Credit Version</OccurrenceTitle>
                        <CourseID>1</CourseID>
                </Occurrences>
                <Occurrences>
                        <OccurrenceID>2</OccurrenceID>
                        <OccurrenceTitle>Meat Science - 20 Credit Version</OccurrenceTitle>
                        <CourseID>1</CourseID>
                </Occurrences>
        </Courses>
        <OccurrencesUnits>
                <OccurrencesUnitsID>1</OccurrencesUnitsID>
                <OccurrenceID>1</OccurrenceID>
                <UnitID>1</UnitID>
        </OccurrencesUnits>
                <OccurrencesUnits>
                <OccurrencesUnitsID>2</OccurrencesUnitsID>
                <OccurrenceID>2</OccurrenceID>
                <UnitID>1</UnitID>
        </OccurrencesUnits>
        <OccurrencesUnits>
                <OccurrencesUnitsID>3</OccurrencesUnitsID>
                <OccurrenceID>2</OccurrenceID>
                <UnitID>2</UnitID>
        </OccurrencesUnits>
        <Units>
                <UnitID>1</UnitID>
                <UnitTitle>Meat Safety</UnitTitle>
        </Units>
        <Units>
                <UnitID>2</UnitID>
                <UnitTitle>Meat Genetics</UnitTitle>
        </Units>
</dataroot>

在此版本中，您可以看到“OccurrencesUnits”不再驻留在“Occurrences”内，现在完全位于“Occurrences”和“Courses”标签之外。这给我们带来了很多困难，因为我们需要将其保留在原始结构中。

我不明白为什么“保存的导出”实际上并未复制保存它的原始导出。这可能是 MS Access 中的错误，还是我做错了什么？我多次尝试重新创建数据库，也尝试过使用/不使用 XML 模式导出，但找不到解决方案。

希望有人能提供帮助 - 我们将不胜感激!非常感谢。

最佳答案

我无法在 MS Access 中完全重现您的问题。我完成了手动 XML 导出向导和保存的导出，两者都产生相同的结果，即最后的格式，其中前两个相关表(类(class)和事件)嵌套在最后一个表(OccurrenceUnits)堆叠在末尾。我可以说的是，您保存的导出取决于表之间已建立的关系，而不仅仅是表的导出或表的内连接 SQL 查询。

但是，请考虑一种专门自动化您的确切结构需求的编程解决方案。而你需要的是XSLT (重新设计、重新格式化、重新构造 XML 文档的声明性编程语言)。 VBA 可以使用 MSXML 通过 XSLT 脚本转换 XML目的。您可以继续运行保存的导出(使用表关系)，然后加载外部 XML 和 XSLT 文件进行转换。

XSLT (另存为外部 .xsl 或 .xslt 以供下面使用)

<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
               xmlns:od="urn:schemas-microsoft-com:officedata"
               xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"               
               exclude-result-prefixes="od xsi">

<xsl:output version="1.0" encoding="UTF-8" indent="yes" />
<xsl:strip-space elements="*"/>

  <!-- Identity Transform -->
  <xsl:template match="@*|node()">
    <xsl:copy>
      <xsl:apply-templates select="@*|node()"/>
    </xsl:copy>
  </xsl:template>

  <xsl:template match="Courses">
    <Courses>
        <xsl:copy-of select="CourseID"/>
        <xsl:copy-of select="CourseTitle"/>
        <xsl:for-each select="Occurences">
            <xsl:copy-of select="*"/>
            <xsl:variable name="occid" select="OccurenceID"/>
            <xsl:copy-of select="../../OccurrencesUnits[OccurenceID=$occid]"/>
        </xsl:for-each>        
    </Courses>
  </xsl:template>

  <xsl:template match="OccurrencesUnits"/>

</xsl:transform>

VBA 子例程(在命令按钮或触发事件后面使用)

以下是 XML 导出的两个选项:1) 使用保存的导出对象或 2) 自动 Application.ExportXML您可以在其中将其他相关表添加到类(class)输出:

Private Sub XMLOutput_Click()

    Dim rawDoc As Object, xslDoc As Object, newDoc As Object
    Dim xmlstr As String, xslstr As String
    Dim otherTables As AdditionalData

    Set otherTables = Application.CreateAdditionalData
    otherTables.Add "Occurrences"
    otherTables.Add "OccurrencesUnits"        
    otherTables.Add "Units"        

    ' RUN SAVED XML EXPORT ' 
    'DoCmd.RunSavedImportExport "SavedXMLExportName"

    ' RUN AUTOMATED EXPORT XML WITH NESTED ADDITIONAL TABLES ' 
    Application.ExportXML acExportTable, "Courses", "C:\Path\To\Original\XMLfile.xml", _
                 , , , , , , AdditionalData:=otherTables

    ' LOAD XML AND XSL FILES '
    xmlstr = "C:\Path\To\Original\XMLfile.xml"
    xslstr = "C:\Path\To\XSLT\Script.xsl"

    Set rawDoc = CreateObject("MSXML2.DOMDocument")
    Set xslDoc = CreateObject("MSXML2.DOMDocument")
    Set newDoc = CreateObject("MSXML2.DOMDocument")

    rawDoc.async = False
    rawDoc.Load xmlstr

    xslDoc.async = False
    xslDoc.Load xslstr

    ' TRANSFORM TO NEW XML '
    rawDoc.transformNodeToObject xslDoc, newDoc

    ' SAVE NEW XML FILE '
    newDoc.Save "C:\Path\To\Output\XMLfile.xml"

    MsgBox "Successfully transformed xml!", vbInformation

End Sub

关于xml - MS Access to XML 'Saved Export' 重新导出时会产生不同的 XML 结构，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33921974/

上一篇：mysql - NodeJS - 连接到本地 Mysql 数据库

下一篇：mysql - #1064 - 在声明附近创建触发器时出现 MySQL 错误

相关文章：

html - 使用身份验证所需的查询创建 XML 站点地图

java - Android编程——带按钮的ListView

database - PostgreSQL:WHERE id = ANY (idsArray) - 按 idsArray 排序结果

vba - 获取数据库的VBProject

database - 如何从脚本创建 Access 数据库

sql - 使用 xml 批量更新 sql server 表

Android 更改选项卡文本颜色

mysql - 在mysql中插入两次之间的持续时间

php - 通过表单提交输入新行后，如何使用 AJAX 刷新数据库表？

vba - 获取昨天的日期，如果周一获取周末范围

©2024 IT工具网  联系我们