ExportXML 方法
内容
使用 ExportXML 方法，开发人员可以从 Microsoft SQL Server 2000 Desktop Engine (MSDE 2000)、Microsoft SQL Server 6.5 或更高版本或者 Microsoft Jet 数据库引擎导出 XML 数据、架构和表述信息。
expression.ExportXML(ObjectType, DataSource, DataTarget, SchemaTarget, PresentationTarget, ImageTarget, Encoding, OtherFlags, FilterCriteria, AdditionalData)
expression 必需。返回 Application 对象的表达式。
ObjectType AcExportXMLObjectType 必需。要导出 AccessObject 对象的类型。
AcExportXMLObjectType 可以是下列 AcExportXMLObjectType 常量之一： |
acExportForm |
acExportFunction |
acExportQuery |
acExportReport |
acExportServerView |
acExportStoredProcedure |
acExportTable |
DataSource 要求 String 型。要导出的 AccessObject 对象的名称。默认为当前打开的，ObjectType 参数所指定类型的对象。
DataTarget String 型，可选。导出的数据所对应的文件名和路径。如果省略该参数，就不会导出数据。
SchemaTarget String 型，可选。已导出架构信息的文件名和路径。如果省略该参数，则架构信息不会导出到单独的 XML 文件。
PresentationTarget String 型，可选。导出的表述信息所对应的文件名和路径。如果省略该参数，就不会导出表述信息。
ImageTarget String 型，可选。导出的图像所对应的路径。如果省略该参数，就不会导出图像。
Encoding AcExportXMLEncoding，可选。用于导出的 XML 的文本编码。
AcExportXMLEncoding 可以是下列 AcExportXMLEncoding 常量之一： |
acUTF16 |
acUTF8 默认 |
OtherFlags AcExportXMLOtherFlags 型，可选。此位掩码指定与导出到 XML 相关的其他行为。下表说明了特定值导致的行为；通过添加值可以指定一组行为。
AcExportXMLOtherFlags 可以是下列 AcExportXMLOtherFlags 常量之一： |
acEmbedSchema 将架构信息写入 DataTarget 参数指定的文档中；该值优先于 SchemaTarget 参数。 |
acExcludePrimaryKeyAndIndexes 不导出主键和索引架构属性。 |
acLiveReportSource 创建到远程 Microsoft SQL Server 2000 数据库的实时链接。仅在导出绑定到 Microsoft SQL Server 2000 数据库的报表时有效。 |
acPersistReportML 保持已导出的对象的 ReportML 信息。 |
acRunFromServer 创建 Active Server Pages (ASP) 包装程序；否则，默认为 HTML 包装程序。只有在导出报表时才应用该值。 |
FilterCriteria String 型，可选。指定要导出记录的子集。
AdditionalData 可选 AdditionalData。指定要导出的附加表。如果OtherFlags 参数设为 acLiveReportSource 将忽略该参数。
说明
尽管 DataTarget、SchemaTarget 和 PresentationTarget 参数都是可选的，但使用该方法时至少要指定其中一个。在 AccessObject 对象中调用 ExportXML 方法时，默认行为是覆盖在所有参数中指定的所有现有文件。
示例
下例将 Northwind Traders 示例数据库的 Customer 表格内容连同 Orders 和 Orders Details 表内容一起导出到名为 Customer Orders.xml 的 XML 数据文件中。
Sub ExportCustomerOrderData()
Dim objOrderInfo As AdditionalData
Dim objOrderDetailsInfo As AdditionalData
Set objOrderInfo = Application.CreateAdditionalData
' Add the Orders and Order Details tables to the data to be exported.
Set objOrderDetailsInfo = objOrderInfo.Add("Orders")
objOrderDetailsInfo.Add "Order Details"
' Export the contents of the Customers table. The Orders and Order
' Details tables will be included in the XML file.
Application.ExportXML ObjectType:=acExportTable, DataSource:="Customers", _
DataTarget:="Customer Orders.xml", _
AdditionalData:=objOrderInfo
End Sub
下面的示例将当前数据库中名为 Customers 的表导出到 XML 文件；数据和架构作为单独的文件导出。
Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Customers", _
DataTarget:="Customers.xml", _
SchemaTarget:="CustomersSchema.xml"
下面的示例将当前数据库中名为 Fall2000 的报表导出到 XML 文件，同时导出表述信息，并将图像放在指定的目录中。导出报表时使用 ASP 包装程序，而不是 HTML 包装程序。
Application.ExportXML _
ObjectType:=acExportReport, _
DataSource:="Fall2000", _
DataTarget:="Fall2000.xml", _
PresentationTarget:="Fall2000Report.xsl", _
ImageTarget:="Images", _
OtherFlags:=acRunFromServer