代码之家 › 专栏 › 技术社区 › Icode4food

MS Access执行POST webrequest

post vba ms-access web-services

Icode4food · 技术社区 · 15 年前

在我的msaccess应用程序中,我需要定期向我的web服务器发送一批信息。我不需要任何像SOAP、XML-RPC之类的花哨东西,只要一个简单的POST-page请求就足够了。我在google上搜索了一下,但找不到任何真正有用的东西。

有人知道资源或有代码示例来执行此操作吗?

1 回复 | 直到 15 年前

HansUp 15 年前

这里有一个我用于httpget请求,我想在其中检索网页的HTML。您可以用POST代替pMethod参数并丢弃响应文本。

我使用了MSXML2,它不能保证在所有Windows版本中都可用。如果在您的系统上不可用,可以尝试使用MSXML。或者在MSXML2不可用时使用错误处理程序回退到MSXML。

Public Function HttpRequest(ByVal pUrl As String, _
        Optional ByVal pMethod As String = "GET") As String
    Dim strResponse As String
    Dim objHttp As Object

    'use "MSXML.XMLHTTPRequest" if MSXML2 not available '
    Set objHttp = CreateObject("MSXML2.XMLHTTP")

    objHttp.Open pMethod, pUrl, False
    objHttp.send
    strResponse = objHttp.responseText
    HttpRequest = strResponse
    Set objHttp = Nothing
End Function

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

6 月前