Datei mit ADODB für Web-DAV hochladen "kann keine Objekte oder Daten in Übereinstimmung mit dem Namen finden ..."

Question

Ich habe eine MS Access 2007 VBA-Anwendung unter Windows 7. Eine entscheidende Funktion ist das Hochladen von Dateien auf ein WebDAV Server. Der folgende Code funktioniert perfekt auf einem PC, aber auf anderen PCs (und ja, jeder ist auf die gleiche Weise konfiguriert).

Hier ist eine translate.google.com Übersetzung der Nachricht Norwegion Fehler, der erscheint, wenn er auf dem anderen PC ausfällt:

Run-time error '-2147217895 (80040e19)': can not find any objects or data in accordance with the name, range or selection criteria within the scope of this operation

versagt es in dieser Codezeile:

objRecord.Open fil, "URL=" & URL, adModeReadWrite, adCreateOverwrite, adDelayFetchStream, sUsername, sPwd

Der vollständige Funktionscode ist unten. Es ist wirklich nur die Wiederverwendung des Codes bei http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/26b8e905-33d0-438b-98a7-bb69053b931e/. Alle Hinweise würden sehr geschätzt werden!

Function DAVPUT(ByVal URL As String, ByVal fil As String) As Boolean ' 
    Dim sUsername As String 
    Dim sPwd As String 
    sUsername = "k@dummy.com" 
    sPwd = "dummy" 

    Dim objRecord As New ADODB.Record 
    Dim objStream As New ADODB.Stream 

    objRecord.Open fil, "URL=" & URL, adModeReadWrite, adCreateOverwrite, adDelayFetchStream, sUsername, sPwd 
    objStream.Type = adTypeBinary 
    objStream.Open objRecord, adModeWrite, adOpenStreamFromRecord 
    objStream.LoadFromFile fil 
    objStream.Flush 
    DoEvents 
    objStream.close 
    objRecord.close 

    DAVPUT = True 

End Function 

Answer 1

This post empfehlen Sie, "die Versionen von MDAC lokalen und Remote-Vergleichen". Mir ist klar, dass ich eine minimale, unerklärliche Antwort anbiete, aber da es keine anderen gibt, ist es hier.