How to generate XML with SQL 2000?

王朝mssql·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

以前在介绍SQL2k的时候已经提到了SQL2k对XML的支持,使用for XML语句就可以很容易的把执行的结果转化为一个XML,这样可以在很大程度上提高系统运行效率和开发速度,详见What's new in Microsoft SQL Server 2000(四),更详细的内容请参见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

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航