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

发布时间：2020-12-15 23:52:45 所属栏目：百科来源：网络整理

导读：参见英文答案 exporting multiple access tables to single XML2个我需要从Access创建一个XML文件.它必须具有关系节点类型格式. 例如： Item description/description colors blue green /colors/item 项目的数据在表格中.颜色在另一个.我有参考ID,所以我可

参见英文答案 > exporting multiple access tables to single XML2个
我需要从Access创建一个XML文件.它必须具有关系节点类型格式.

例如：

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

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

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

下面是我用于查询数据然后将结果导出到平面文件的示例.我已根据您的需要进行了调整.

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:ExportXML__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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!