程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> 在SQL2000查詢中使用XDR的一些例子

在SQL2000查詢中使用XDR的一些例子

編輯:關於SqlServer
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:INETPUBWWWROOTPBA"
  
    adoCmd.PropertIEs("Output Stream") = Response
  
    Response.write ""
  
    adoCmd.Execute , , 1024 'adExecuteStream
  
    Response.write "
"
  
  %>
  
  Result:
  
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved