如何在 access 中调用 WEB SERVICE

时　间:2006-07-03 00:00:00
作　者:陈格   ID：8  城市：上海  QQ：2851379730
摘　要:如何在 ACCESS 中调用 WEB SERVICE 
正　文:

这里先来说 ACCESS 如何调用 Web Service ，如果您还不清楚什么是 Web Service 请先看文章最下放的蓝色部分。

Access 调用 Web Service 其实非常简单，利用SOAP发送在默认情况下即可得到.Net Framework1.1的支持这一特点，只要我们用构造Soap请求的xml字符串给xmlhttp对象来send的方法就可以调用 Web Service 了于是根据local显示的例子构造了一个soapRequest的string,发送给了即将部署的远程主机,结果返回了200的status code,并且可以顺利取得responseXML.类似代码如下：

Dim url,xmlhttp,dom,node,xmlDOC
'根据webservice的测试页不同的方法构造不同的soap request
SoapRequest = "<?xml version=" & CHR(34) & "1.0" & CHR(34) & " encoding=" & CHR(34) & "utf-8" & CHR(34) & "?>" & _
"<soap:Envelope xmlns:xsi=" & CHR(34) & "http://www.w3.org/2001/XMLSchema-instance" & CHR(34)& " " & _
"xmlns:xsd=" & CHR(34) & "http://www.w3.org/2001/XMLSchema" & CHR(34) & " " & _
"xmlns:soap=" & CHR(34) & "http://schemas.xmlsoap.org/soap/envelope/" & CHR(34) & ">" & _
"<soap:Body>" & _
"<add xmlns=" & CHR(34) & "http://localhost" & CHR(34) & ">" & _
"<x>3</x>" & _
"<y>4</y>" & _
"</add>" & _
"</soap:Body>" & _
"</soap:Envelope>"
url = "http://www.xxxx.com/Service1.asmx?methodname=Add"
Set xmlDOC =CreateObject("MSXML.DOMDocument")
xmlDOC.loadXML(SoapRequest)
Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
'SOAPAction这个Header头同样可以在sample中找到
xmlhttp.setRequestHeader "SOAPAction", "http://localhost/add"
xmlhttp.setRequestHeader "Content-Length", LEN(SoapRequest)
xmlhttp.Send(xmlDOC)
msgbox xmlhttp.Status
msgbox xmlhttp.StatusText
msgbox xmlhttp.responseText
If xmlhttp.Status = 200 Then
    xmlDOC.load(xmlhttp.responseXML)
    msgbox "执行结果为："&xmlDOC.getElementsByTagName("addResult")(0).text
else
    msgbox "failed"
end if

以上代码在本地测试都没有问题（在部署webservice的本地机器上测试的），然而把strWebserviceURL = "http://localhost/possible/Service1.asmx/add"改为部署在其他机器上的webservice时，却出了问题，结果一直是返回500错误，即objHTTP.Status一直都为500。

   原因在于.Net Framework1.1默认不支持HttpGet和HttpPost。如果修改webservice里的web.config增加

<webServices>
<protocols>
<add name="HttpPost"/>
<add name="HttpGet"/>
</protocols>
</webServices>

后，上代码就可以调用远程机器上的webservice了。

   但是请注意！由于 ACCESS MDB 其实是一个 OFFICE 文档，其运行环境往往未知，所以微软甚至在 TechED 上都建议不要在 OFFICE 文档中用 VBA 编程调用 Web Service 因为很有可能会出现无法解释的未知错误（由于环境配置引起的）

以下资料非本站原创
摘自：http://searchwebservices.techtarget.com.cn/tips/194/2113194.shtml

1. 什么是webservice

　　从表面上看，Web service 就是一个应用程序，它向外界暴露出一个能够通过Web进行调用的API。这就是说，你能够用编程的方法通过Web来调用这个应用程序。

　　对Web service 更精确的解释: Web services是建立可互操作的分布式应用程序的新平台。作为一个Windows程序员，你可能已经用COM或DCOM建立过基于组件的分布式应用程序。COM是一个非常好的组件技术，但是我们也很容易举出COM并不能满足要求的情况。Web service平台是一套标准，它定义了应用程序如何在Web上实现互操作性。你可以用任何你喜欢的语言，在任何你喜欢的平台上写Web service ，只

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店