将数据、架构和相关表导出为 XML

时　间:2021-12-19 09:02:08
作　者:杨雪   ID：42182  城市：南京
摘　要:ExportXML 方法可用于导出表中包含的数据和格式以及您指定的任何其他数据。
正　文:

以下过程说明如何在将表导出为 XML 时包括其他数据。 “订单”表随若干其他表一起导出。 架构和格式也分别导出为单独的 .xsd 和 .xsl 文件。

Private Sub ExportRelTables() 
   ' 用途:导出Orders表以及  
   ' 将多个相关数据库连接到一个XML文件
   ' 还创建了XSD和XSL文件 
 
   Dim objAD As AdditionalData 
 
   ' 创建AdditionalData对象
   Set objAD = Application.CreateAdditionalData 
 
   ' 将相关的表添加到对象中
   With objAD 
      .Add "Order Details" 
      objAD(Item:="Order Details").Add "Order Details Details" 
      .Add "Customers" 
      .Add "Shippers" 
      .Add "Employees" 
      .Add "Products" 
      objAD(Item:="Products").Add "Product Details" 
      objAD(Item:="Products")(Item:="Product Details").Add _ 
         "Product Details Details" 
      .Add "Suppliers" 
      .Add "Categories" 
   End With 
 
   ' 导出Orders表和附加数据】
   Application.ExportXml acExportTable, "Orders", _ 
       "C:\Orders.xml", "C:\OrdersSchema.xsd", _ 
       "C:\OrdersStyle.xsl", AdditionalData:= objAD 
End Sub