从访问中导出嵌套的XML文件.需要带有节点的XML文件

Question

我需要从Access创建一个XML文件.它必须具有关系节点类型格式.

例如:

<Item>
   <description></description>
   <colors>
         <blue>
         <green>
   </colors>
</item>

项目的数据在表格中.颜色在另一个.我有参考ID,所以我可以加入它们.

如何才能做到这一点.我已经看了一遍,看看如何导出表,但不是嵌套类型的文件.

Answer 1

下面是我用来查询数据然后将结果导出到平面文件的示例。我已经根据您可能的需要对其进行了一些调整。

 On Error GoTo Err_My_Click
 Dim rs As DAO.Recordset
 Set rs = CurrentDb.OpenRecordset("SELECT * FROM MyTable", dbOpenDynaset)

 If (rs.RecordCount <> 0) Then
   rs.MoveFirst

   Open "C:\Export\XML__MyFile.xml" For Output As #1

   Do While rs.EOF = False
     TempExportCount = TempExportCount + 1

     Print #1, "<Item>"
     Print #1, "    <description>" & rs.Fields("[Description]").value & "</description>"
     Print #1, "</Item>"

     rs.MoveNext
   Loop
 End If

Exit_My_Click:
  On Error Resume Next
  rs.Close
  Set rs = Nothing
  Close 1#
  Exit Sub
Err_My_Click:
  If (Err.Number = 76) Then
    MsgBox ("The program could not save the txt file." & vbNewLine & vbNewLine & _
            "Make sure you have the following folder created: C:\Export\")
  Else
    MsgBox (Err.Description)
  End If
  Resume Exit_My_Click