Http 如何在Access 2010中使用vba上载文件

我正在尝试在Access 2010数据库中使用vba/XMLHTTP上载文件。虽然它正在进行过程中，我没有收到任何错误，但我的网站上没有任何结果

下面是使用以下方法调用的代码：

响应=HTTP_文件上传（ShowName，“www.website_name”，“POST”）

---

很可能您需要使用objHttp.setRequestHeader“Content Type”、“application/x-www-form-urlencoded”，并在objHttp.send（formData）中实际提供要发送的内容

Public Function HTTP_FileUpload(FileName As String, ByVal pUrl As String, _
    Optional ByVal pMethod As String = "GET") As String
Dim strResponse As String

On Error GoTo ErrorHandler

Dim xmlStream As Object
Set xmlStream = CreateObject("ADODB.Stream")
xmlStream.Mode = 3 ' //read write
xmlStream.Type = adTypeBinary
xmlStream.Open
xmlStream.LoadFromFile FileName

Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.XMLHTTP")
objHttp.Open pMethod, pUrl, False
Debug.Print "file Name is " & FileName & "   Size of file is " & xmlStream.Size

objHttp.setRequestHeader "Content-Type", "text/generic"
objHttp.setRequestHeader "Content-Length", xmlStream.Size
objHttp.send
strResponse = objHttp.responseText
HTTP_FileUpload = strResponse
Set objHttp = Nothing
Exit Function

ErrorHandler:
    MsgBox "Error - code is " & Err.Number & " - " & Err.Description

End Function