वेब-डीएवी के लिए एडीओडीबी के साथ फाइल अपलोड करें "नाम के अनुसार कोई ऑब्जेक्ट या डेटा नहीं मिल सकता है ..."

Question

मेरे पास विंडोज 7 पर चल रहा एक एमएस एक्सेस 2007 वीबीए एप्लीकेशन है। एक महत्वपूर्ण कार्य वेबडावी में फाइल अपलोड करना है सर्वर। नीचे दिया गया कोड एक पीसी पर पूरी तरह से काम करता है, लेकिन अन्य पीसी पर विफल रहता है (और हाँ, प्रत्येक एक ही तरीके से कॉन्फ़िगर किया गया है)।

यहाँ Norwegion त्रुटि संदेश अन्य पीसी पर पॉप अप होने जब यह विफल की एक translate.google.com अनुवाद है:

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

यह कोड की इस पंक्ति पर विफल रहता है:

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

पूर्ण फ़ंक्शन कोड नीचे है। यह वास्तव में कोड का पुन: उपयोग http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/26b8e905-33d0-438b-98a7-bb69053b931e/ पर है। किसी भी संकेत की सराहना की जाएगी!

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 पता चलता है कि आप "MDAC स्थानीय और दूरस्थ के संस्करणों की तुलना"। मुझे एहसास है कि मैं एक न्यूनतम, अनुभवहीन उत्तर दे रहा हूं, लेकिन चूंकि अन्य नहीं हैं, यहां यह है।