WriteXml 메서드를 DataSet 사용하면 DataSet의 내용을 XML 데이터로 작성할 수 있습니다. 일반적인 작업은 XSLT(XSL 변환)를 사용하여 해당 XML을 다른 형식으로 변환하는 것입니다. 그러나 DataSet을 XmlDataDocument 동기화하면 WriteXml을 사용하여 DataSet의 내용을 XML 데이터로 먼저 작성하지 않고도 DataSet의 내용에 XSLT 스타일시트를 적용할 수 있습니다.
다음 예제에서는 테이블 및 관계로 DataSet 을 채우고, DataSet 을 XmlDataDocument와 동기화하고, XSLT 스타일시트를 사용하여 DataSet 의 일부를 HTML 파일로 씁니다. 다음은 XSLT 스타일시트의 내용입니다.
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="CustomerOrders">
<HTML>
<STYLE>
BODY {font-family:verdana;font-size:9pt}
TD {font-size:8pt}
</STYLE>
<BODY>
<TABLE BORDER="1">
<xsl:apply-templates select="Customers"/>
</TABLE>
</BODY>
</HTML>
</xsl:template>
<xsl:template match="Customers">
<TR><TD>
<xsl:value-of select="ContactName"/>, <xsl:value-of select="Phone"/><BR/>
</TD></TR>
<xsl:apply-templates select="Orders"/>
</xsl:template>
<xsl:template match="Orders">
<TABLE BORDER="1">
<TR><TD valign="top"><B>Order:</B></TD><TD valign="top"><xsl:value-of select="OrderID"/></TD></TR>
<TR><TD valign="top"><B>Date:</B></TD><TD valign="top"><xsl:value-of select="OrderDate"/></TD></TR>
<TR><TD valign="top"><B>Ship To:</B></TD>
<TD valign="top"><xsl:value-of select="ShipName"/><BR/>
<xsl:value-of select="ShipAddress"/><BR/>
<xsl:value-of select="ShipCity"/>, <xsl:value-of select="ShipRegion"/> <xsl:value-of select="ShipPostalCode"/><BR/>
<xsl:value-of select="ShipCountry"/></TD></TR>
</TABLE>
</xsl:template>
</xsl:stylesheet>
다음 코드는 DataSet 을 채우고 XSLT 스타일시트를 적용합니다.
비고
관계가 포함된 DataSet에 XSLT 스타일시트를 적용하는 경우, 중첩된 각 관계에 대해 Nested 속성을 DataRelationtrue로 설정하면 최상의 성능을 얻을 수 있습니다. 이렇게 하면 성능 집약적인 XPath 위치 축(예: 스타일시트 노드 테스트 식에서 이전 형제 및 다음 형제)을 사용하여 탐색하는 대신 자연스러운 하향식 처리를 구현하는 XSLT 스타일시트를 사용하여 계층 구조를 탐색하고 데이터를 변환할 수 있습니다. 중첩된 관계에 대한 자세한 내용은 데이터 관계 중첩을 참조하세요.
' Assumes connection is a valid SqlConnection.
Dim dataSet As DataSet = New DataSet("CustomerOrders")
Dim customerAdapter As SqlDataAdapter = New SqlDataAdapter( _
"SELECT * FROM Customers", connection)
customerAdapter.Fill(dataSet, "Customers")
Dim orderAdapter As SqlDataAdapter = New SqlDataAdapter( _
"SELECT * FROM Orders", connection)
orderAdapter.Fill(dataSet, "Orders")
connection.Close()
dataSet.Relations.Add("CustOrders", _
dataSet.Tables("Customers").Columns("CustomerID"), _
dataSet.Tables("Orders").Columns("CustomerID")).Nested = true
Dim xmlDoc As XmlDataDocument = New XmlDataDocument(dataSet)
Dim xslTran As XslTransform = New XslTransform
xslTran.Load("transform.xsl")
Dim writer As XmlTextWriter = New XmlTextWriter( _
"xslt_output.html", System.Text.Encoding.UTF8)
xslTran.Transform(xmlDoc, Nothing, writer)
writer.Close()
// Assumes connection is a valid SqlConnection.
connection.Open();
DataSet custDS = new DataSet("CustomerDataSet");
SqlDataAdapter customerAdapter = new SqlDataAdapter(
"SELECT * FROM Customers", connection);
customerAdapter.Fill(custDS, "Customers");
SqlDataAdapter orderAdapter = new SqlDataAdapter(
"SELECT * FROM Orders", connection);
orderAdapter.Fill(custDS, "Orders");
connection.Close();
custDS.Relations.Add("CustOrders",
custDS.Tables["Customers"].Columns["CustomerID"],
custDS.Tables["Orders"].Columns["CustomerID"]).Nested = true;
XmlDataDocument xmlDoc = new XmlDataDocument(custDS);
XslTransform xslTran = new XslTransform();
xslTran.Load("transform.xsl");
XmlTextWriter writer = new XmlTextWriter("xslt_output.html",
System.Text.Encoding.UTF8);
xslTran.Transform(xmlDoc, null, writer);
writer.Close();