MS Access exécute POST webrequest

Question

Dans mon application MS Access, je dois envoyer régulièrement un lot d'informations à mon serveur Web. Je n'ai pas besoin de quelque chose d'aussi sophistiqué que SOAP, XML-RPC ou autre chose, juste une simple demande de page POST est suffisante. J'ai googlé un peu, mais j'ai été incapable de trouver quelque chose de vraiment utile.

Est-ce que quelqu'un connaît une ressource ou possède un exemple de code pour effectuer cela?

Answer 1

En voici un que j'ai utilisé pour les demandes HTTP GET dans lesquelles je voulais récupérer le code HTML d'une page Web. Vous pouvez substituer POST pour le paramètre pMethod et ignorer le texte de la réponse.

J'ai utilisé MSXML2 qui n'est pas garanti pour être disponible dans toutes les versions de Windows. Si ce n'est pas disponible sur vos systèmes, vous pouvez essayer MSXML à la place. Ou utilisez un gestionnaire d'erreurs pour revenir à MSXML lorsque MSXML2 n'est pas disponible.

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