SQL Server 2000 查詢中使用 XDR (XML-Data Reduced) 範例

XDR 是簡化的 XML-Data 結構描述。本文示範在 ASP 中使用 ADO Command 物件，設定 Dialect 為 XDR，輸出 XML 資料島。

ASP 程式碼

<%@ Language=VBScript %>
<%
Dim sConn, adoConn, adoCmd
sConn = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=Northwind; User ID=SA;Password=;"
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString = sConn
adoConn.CursorLocation = 3 ' adUseClient
adoConn.Open

Set adoCmd = CreateObject("ADODB.Command")
Set adoCmd.ActiveConnection = adoConn
adoCmd.CommandText = "Customer[@CompanyName=""Tortuga Restaurante""]"
adoCmd.Dialect = "{ec2a4293-e898-11d2-b1b7-00c04f680c56}" ' XDR Dialect GUID

adoCmd.Properties("Mapping Schema") = "Orders.xml"
adoCmd.Properties("Base Path") = "C:\INETPUB\WWWROOT\PBA"
adoCmd.Properties("Output Stream") = Response

Response.Write ""
adoCmd.Execute , , 1024 ' adExecuteStream
Response.Write ""
%>

輸出結果

<XML ID="MyDataIsle">
<Customer CustomerID="TORTU" CompanyName="Tortuga Restaurante"> 
 <Order CustomerID="TORTU" OrderID="10276" OrderDate="1996-08-08T00:00:00" /> 
 <Order CustomerID="TORTU" OrderID="10293" OrderDate="1996-08-29T00:00:00" /> 
...
</Customer>
</XML>

說明：需先準備 Orders.xml 對應結構描述檔，定義資料表與關聯對應。XDR 現已被 XML Schema (XSD) 取代，新專案建議使用 FOR XML 原生輸出。