MS Access выполняет POST webrequest

Question

В моем приложении MS Access мне необходимо регулярно отправлять пакет информации на мой веб-сервер. Мне не нужно ничего такого, как SOAP, XML-RPC или что-то еще, достаточно простого запроса страницы POST. Я немного искал Google, но не смог найти ничего полезного.

Кто-нибудь знает о ресурсе или имеет образец кода для выполнения этого?

Answer 1

Вот один из тех, что я использовал для запросов HTTP GET, где я хотел получить HTML-код веб-страницы. Вы можете заменить POST для параметра pMethod и отменить текст ответа.

Я использовал MSXML2, который не гарантированно будет доступен для всех версий Windows. Если он недоступен в ваших системах, вы можете попробовать MSXML. Или используйте обработчик ошибок, чтобы вернуться к MSXML, когда MSXML2 недоступен.

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