MS Access 中的异步 HTTP POST 请求

VBA
Sub SendData()
    Dim objHTTP As Object
    Dim strURL As String
    Dim strData As String
    
    ' 创建 HTTP 请求对象
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    
    ' 设置请求的 URL
    strURL = "http://example.com/api/data"
    
    ' 设置请求的方法为 POST
    objHTTP.Open "POST", strURL, True
    
    ' 设置请求的头部信息
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    ' 设置请求的数据
    strData = "name=John&age=30"
    
    ' 发送请求
    objHTTP.send strData
    
    ' 设置回调函数来处理服务器的响应
    objHTTP.onreadystatechange = AddressOf HandleResponse
End Sub
Sub HandleResponse()
    Dim objHTTP As Object
    
    ' 获取 HTTP 请求对象
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    
    ' 处理服务器的响应
    If objHTTP.readyState = 4 Then
        If objHTTP.status = 200 Then
            ' 服务器响应成功，可以处理返回的数据
            MsgBox objHTTP.responseText
        Else
            ' 服务器响应失败，可以进行错误处理
            MsgBox "Error: " & objHTTP.status
        End If
    End If
End Sub