Question

我正在尝试将许多表从MS访问数据库导出到嵌套的xml文件。这些表包含我的数据库中的所有数据，但我需要xml文件仅包含用户输入的Journal，Volume和Issue值。 Journal，Volume和Issue值的数据存储在单独的表中。

到目前为止，我已经能够使用forCondition为tblJournal表导出嵌套的xml，这允许用户只选择一个日志（使用文本框＆＃34; txtJournal＆＃34;），但我需要能够使用＆＃34; txtVolume＆＃34;同时按体积和发行数进行过滤。和＆＃34; txtIssue＆＃34;。

这是我到目前为止所做的：

Dim objVolumes As AdditionalData, objIssues As AdditionalData, objArticles As AdditionalData, objColour As AdditionalData, objESM As AdditionalData

Set objVolumes = Application.CreateAdditionalData

' Add the Vol, Iss, Article, colour and ESM tables to the data to be exported.

Set objIssues = objVolumes.Add("tblVolumes")
Set objArticles = objIssues.Add("tblIssues")
Set objColour = objArticles.Add("tblArticles")
Set objESM = objArticles.Add("tblArticles")
objColour.Add "tblColour"
objESM.Add "tblESM"

Application.ExportXML _
        ObjectType:=acExportTable, _
        DataSource:="tblJournals", _
        DataTarget:="C:\Users\TomL\Desktop\IssueData.xml", _
        WhereCondition:="Journal= '" & Me.txtJournal & "'", _
        AdditionalData:=objVolumes
End Sub

任何帮助都会非常感激！以下是我设置的Database relationships的概述。

从MS访问导出嵌套的xml，并在多个表

0 个答案: