SQL Server 2000中產生XML的小技巧

來源:互聯網
上載者:User
  以前在介紹SQL2k的時候已經提到了SQL2k對XML的支援,使用for XML語句就可以很容易的把執行的結果轉化為一個XML,這樣可以在很大程度上提高系統運行效率和開發速度,詳細的內容請參見Books Online。
 
  但是在使用ADO(Required ADO 2.6)訪問返回的XML的方式和原來的Recordset是有所不同的。如果你還是使用Recordset訪問的話,只能得到一個Unicode格式的XML Schema,而無法得到XML的內容。
 
  其實這個問題也是很容易就能解決的,只是我自以為很熟悉ADO,沒有仔細看Help,所以沒有發現ADO是採用Stream的方式來得到和返回XML的。
 
  Command 對象有兩個屬性,叫Input Stream和Output Stream,屬性的值是一個IUnknown介面。可以把一個XML Parser的介面賦給它,或者是直接用Request、Response等。這樣的好處是不需要再去產生一個Recordset,不需要去儲存這些資料,從而節省了系統開銷。
 
  下面給大家一個簡單的把XML用Response返回的Example:
<%@ 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
 objCmd.Properties("XML Root") = "root"
 objCmd.CommandText = "Select * from UserStatus for XML Auto"
 Response.ContentType = "text/xml"
 objCmd.Execute i, , adExecuteStream
 Set objCmd = Nothing
 objConn.Close
 Set objConn = Nothing
%>


聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.