在SQL 2000查询中使用XDR的一些例子

　　SELECT o.OrderID, o.OrderDate from Orders o, Customers c,
　　
　　WHERE o.CustomerID = c.CustomerID and c.CompanyName = ?
　　
　　Code:
　　
　　<%@ Language=VBScript %>
　　
　　<%
　　
　　　　Dim sConn
　　
　　　　sConn = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=Northwind; User ID=SA;Password=;"
　　
　　　　Dim adoConn
　　
　　　　Set adoConn = Server.CreateObject("ADODB.Connection")
　　
　　　　adoConn.ConnectionString = sConn
　　
　　　　adoConn.CursorLocation = 3 'adUseClient
　　
　　　　adoConn.Open
　　
　　　　Dim adoCmd
　　
　　　　Set adoCmd = CreateObject("ADODB.Command")
　　
　　　　Set adoCmd.ActiveConnection = adoConn
　　
　　　　adoCmd.CommandText = "Customer[@CompanyName=""Tortuga Restaurante""]"
　　
　　　　adoCmd.Dialect = "{ec2a4293-e898-11d2-b1b7-00c04f680c56}"
　　
　　　　 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 ""
　　
　　%>
　　
　　Result:
　　
　　
　　
　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　　
　　
　　
　　
　　　
　　
　　Orders.xml
　　
　　
　　
　　　　
　　xmlns:sql="urn:schemas-microsoft-com:xml-sql">
　　
　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　
　　
　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　
　　
　　　　　　　
　　relation="Orders" />
　　
　　　　
　　
　　　
　　
　　

【责编:admin】

--------------------next---------------------