如何在基於Visual Studio的Access2007中使用XML Web服務（2008/2010）

Question

我想在Visual Studio（2008/2010）上構建一些Web服務，並希望在Access 2007中添加引用。任何人都可以建議我如何在Access2007中使用Web服務。 我在互聯網上搜索過，但找不到任何地方。 如果可能的話，請為我提供一個模板（代碼示例）或在Access 2007中使用/調用Web服務的步驟。請問我是否需要使用任何支持鏈接或使用Web服務的第三方工具。

Answer 1

最輕巧的方法可能是使用MSXML庫。

這樣，您的代碼將如下所示：

  Dim objXML           As Object
  Dim strSymbol        As String
  Dim strURL           As String
  Dim strWFormat       As String

  Set objXML = CreateObject("MSXML2.XMLHTTP")

  strURL = "http://ca.finance.yahoo.com/d/quotes.csv?s="
  strWFormat = "&f=sl1d1t1c1ohgv&e=.csv"

  strSymbol = "MSFT"

  objXML.Open "GET", strURL & strSymbol & strWFormat, False
  objXML.Send

  Debug.Print "Symbol = " & Split(objXML.ResponseText, ",")(0)
  Debug.Print "Trade  = " & Split(objXML.ResponseText, ",")(1)
  Debug.Print "Date   = " & Split(objXML.ResponseText, ",")(2)

上面的代碼命中了yahoo股票報價Web服務並返回了csv，但是xml對象對xml數據感到滿意。

因此，這種方法適用於大多數Web服務。