Question

我非常接近完成一个小型的个人项目，只是试图了解如何使用XML和Access ..

基本上，我已经能够将表编译成XML，然后将其转换为我应该使用的单元能够读取的格式。

BUT

在转换时，在文本中查看时，从XML的顶行删除编码声明。

E.g

<?xml version="1.0"?>
<DatabaseData>
<Customers>
<Idx>1</Idx>
<FirstName>David</FirstName>
<LastName>James</LastName>
<IconIdx>0</IconIdx>

但是我需要它来包含编码 - 所以看起来像这样：

<?xml version="1.0" encoding="utf-8"?>

这是我用来转换访问编译的XML的XSLT。 （这只是其中的一部分）

<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml"  version="1.0" encoding="utf-8" indent="yes"/>
<xsl:template match="/">
<DatabaseData>
  <xsl:for-each select="dataroot/Customers">
    <Customers>
      <Idx>

我已经搜索了如何使它只包含处理声明中的编码信息!!

这是我用来在访问中的Button_Click中编译和转换的过程：

Private Sub Export_Click()
Dim objOtherTbls As AdditionalData

Set objOtherTbls = Application.CreateAdditionalData

'Identify the tables or querys to export
objOtherTbls.Add "Customers"

'Here is where the export takes place
Application.ExportXML ObjectType:=acExportTable, _
DataSource:="Customers", _
DataTarget:="C:\Users\David PC\Desktop\XML\RDStest.xml", _
AdditionalData:=objOtherTbls

TransformXML "C:\Users\David PC\Desktop\XML\RDStest.xml", _
"C:\Users\David PC\Desktop\XML\RDSTest.xslt", _
"C:\Users\David PC\Desktop\XML\RDStest.xml"


MsgBox "Export operation completed successfully."

请帮忙！

：）

转换时删除了编码声明 - Access

0 个答案: