欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

在SQL2000查询中使用XDR的例子_MySQL

程序员文章站 2023-12-27 16:03:57
...
XDR不会不知道吧?就是简化的XML-Data啦。现在示范一个如何实现这样的查询

SELECT o.OrderID, o.OrderDate from Orders o, Customers c,

WHERE o.CustomerID = c.CustomerID and c.CompanyName = ?

Code:




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" />





上一篇:

下一篇: