SQL Server 2000 利用 ADO Stream 輸出 XML 的技巧

SQL Server 2000 的 FOR XML 子句可輕易將查詢結果轉為 XML，但搭配 ADO 2.6+ 讀取時，傳統 Recordset 只能取得 XML Schema，無法取得實際 XML 內容。關鍵在於使用 Command 物件的 Output Stream 屬性，直接將 XML 串流輸出至 Response 或 Stream 物件，避免中間 Recordset 開銷。

核心概念：Stream 導向輸出

• Command 物件具備 Input Stream 與 Output Stream 屬性 (型別為 IUnknown)
• 可指派 XML Parser 介面、Request、Response 等支援 Stream 的物件
• 優點：不建立 Recordset、不暫存資料、降低記憶體與 CPU 開銷

ASP + ADO 完整範例：直接輸出 XML 至瀏覽器

<%@ Language=VBScript %>
<!-- #include file="ADOVBS.inc" -->
<%
Dim objConn, objCmd, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=PBA;Data Source=(local)"

Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
objCmd.Properties("Output Stream") = Response          ' 關鍵：直接串流到 HTTP 回應
objCmd.Properties("XML Root") = "root"                 ' 根元素名稱
objCmd.CommandText = "SELECT * FROM UserStatus FOR XML AUTO"

Response.ContentType = "text/xml"                      ' 設定 MIME 型別
objCmd.Execute i, , adExecuteStream                    ' 串流執行模式

Set objCmd = Nothing
objConn.Close
Set objConn = Nothing
%>

關鍵屬性說明

進階應用場景

• Web Service 回應：直接輸出 SOAP 訊息格式
• 檔案下載：Output Stream = Server.CreateObject("ADODB.Stream") 存檔後 Response.BinaryWrite
• XSLT 轉換鏈：輸出至 MSXML2.DOMDocument 再套用樣式表
• 大量資料分段輸出：搭配 FOR XML EXPLICIT 控制結構，避免記憶體暴增

常見問題排查

1. 只收到 Schema：未設定 Output Stream，或未使用 adExecuteStream
2. 中文亂碼：確認 Response.CodePage = 65001 (UTF-8) 或 950 (Big5)，資料庫排序規則一致
3. 權限錯誤：連線帳號需具備 SELECT 權限與 FOR XML 執行權限

版本演進提示

SQL Server 2005+ 引入原生 xml 資料型別、FOR XML PATH、XQuery 支援，配合 ADO.NET XmlReader 處理更靈活。新專案建議直接採用新架構。