如何在 Access2007 中使用基于 Visual Studio (2008/2010) 构建的 XML Web 服务

Posted 2023-05-07

【中文标题】如何在 Access2007 中使用基于 Visual Studio (2008/2010) 构建的 XML Web 服务

【英文标题】：How to use XML web services in Access2007 which are built on Visual studio (2008/2010)

【发布时间】：2011-04-19 16:54:59

【问题描述】：

我想在 Visual Studio (2008/2010) 上构建一些 Web 服务，并希望在 Access 2007 中添加参考。请任何人建议我如何在 Access2007 中使用 Web 服务。我在互联网上搜索过，但我找不到任何地方。如果可能，请帮助我提供模板（代码示例）或在 Access 2007 中使用/调用 Web 服务的步骤。 我需要使用任何支持链接或使用网络服务的第三方工具吗？请帮助我。

【问题讨论】：

检查这个现有的 SO(***.com/questions/3797672/…) 建议

【参考方案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 服务。

【讨论】：

Alber D. Kallal，我已经尝试使用上面的代码，通过使用 XMLHTTP 对象。它确实非常有效。网址中的轻微更正，它没有获取值可能有任何拼写错误，所以我只是用谷歌搜索获取雅虎报价。我确实找到了下面的链接，它工作正常。 strURL = "download.finance.yahoo.com/d/quotes.csv?s=" strWFormat = "&f=sl1d1t1c1ohgv&e=.csv" strSymbol = "MSFT" '微软语料库再次感谢您在这方面的大力帮助。