Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

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

若要指定要导出的其他数据,必须使用 CreateAdditionalData 方法创建 AdditionalData 对象。 然后,使用 Add 方法添加要与主表一起导出的其他表。

以下过程说明如何在将表导出为 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


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助