作者:手机用户2502910463 | 来源:互联网 | 2018-04-20 09:02
XDR不会不知道吧?就是简化的XML-Data啦。现在示范一个如何实现这样的查询SELECTo.OrderID,o.OrderDatefromOrderso,Customersc,WHEREo.CustomerIDc.CustomerIDandc.CompanyName?Code:%@LanguageVBScript%%DimsConnsConnProviderSQLOLEDB
XDR不会不知道吧?就是简化的XML-Data啦。现在示范一个如何实现这样的查询
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" />