ExportXML 方法
內容
使用 ExportXML 方法，開發(fā)人員可以從 Microsoft SQL Server 2000 Desktop Engine (MSDE 2000)、Microsoft SQL Server 6.5 或更高版本或者 Microsoft Jet 數(shù)據(jù)庫引擎導出 XML 數(shù)據(jù)、架構和表述信息。
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 參數(shù)所指定類型的對象。
DataTarget String 型，可選。導出的數(shù)據(jù)所對應的文件名和路徑。如果省略該參數(shù)，就不會導出數(shù)據(jù)。
SchemaTarget String 型，可選。已導出架構信息的文件名和路徑。如果省略該參數(shù)，則架構信息不會導出到單獨的 XML 文件。
PresentationTarget String 型，可選。導出的表述信息所對應的文件名和路徑。如果省略該參數(shù)，就不會導出表述信息。
ImageTarget String 型，可選。導出的圖像所對應的路徑。如果省略該參數(shù)，就不會導出圖像。
Encoding AcExportXMLEncoding，可選。用于導出的 XML 的文本編碼。
AcExportXMLEncoding 可以是下列 AcExportXMLEncoding 常量之一： |
acUTF16 |
acUTF8 默認 |
OtherFlags AcExportXMLOtherFlags 型，可選。此位掩碼指定與導出到 XML 相關的其他行為。下表說明了特定值導致的行為；通過添加值可以指定一組行為。
AcExportXMLOtherFlags 可以是下列 AcExportXMLOtherFlags 常量之一： |
acEmbedSchema 將架構信息寫入 DataTarget 參數(shù)指定的文檔中；該值優(yōu)先于 SchemaTarget 參數(shù)。 |
acExcludePrimaryKeyAndIndexes 不導出主鍵和索引架構屬性。 |
acLiveReportSource 創(chuàng)建到遠程 Microsoft SQL Server 2000 數(shù)據(jù)庫的實時鏈接。僅在導出綁定到 Microsoft SQL Server 2000 數(shù)據(jù)庫的報表時有效。 |
acPersistReportML 保持已導出的對象的 ReportML 信息。 |
acRunFromServer 創(chuàng)建 Active Server Pages (ASP) 包裝程序；否則，默認為 HTML 包裝程序。只有在導出報表時才應用該值。 |
FilterCriteria String 型，可選。指定要導出記錄的子集。
AdditionalData 可選 AdditionalData。指定要導出的附加表。如果OtherFlags 參數(shù)設為 acLiveReportSource 將忽略該參數(shù)。
說明
盡管 DataTarget、SchemaTarget 和 PresentationTarget 參數(shù)都是可選的，但使用該方法時至少要指定其中一個。在 AccessObject 對象中調用 ExportXML 方法時，默認行為是覆蓋在所有參數(shù)中指定的所有現(xiàn)有文件。
示例
下例將 Northwind Traders 示例數(shù)據(jù)庫的 Customer 表格內容連同 Orders 和 Orders Details 表內容一起導出到名為 Customer Orders.xml 的 XML 數(shù)據(jù)文件中。
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
下面的示例將當前數(shù)據(jù)庫中名為 Customers 的表導出到 XML 文件；數(shù)據(jù)和架構作為單獨的文件導出。
Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Customers", _
DataTarget:="Customers.xml", _
SchemaTarget:="CustomersSchema.xml"
下面的示例將當前數(shù)據(jù)庫中名為 Fall2000 的報表導出到 XML 文件，同時導出表述信息，并將圖像放在指定的目錄中。導出報表時使用 ASP 包裝程序，而不是 HTML 包裝程序。
Application.ExportXML _
ObjectType:=acExportReport, _
DataSource:="Fall2000", _
DataTarget:="Fall2000.xml", _
PresentationTarget:="Fall2000Report.xsl", _
ImageTarget:="Images", _
OtherFlags:=acRunFromServer