कंपाइलर त्रुटि: उपयोगकर्ता-परिभाषित प्रकार

Question

परिभाषित नहीं मैं इस लाइन पर संकलन समय त्रुटि "परिभाषित नहीं उपयोगकर्ता-परिभाषित प्रकार" मिल:

Dim cn As ADODB.Connection 

क्या गलत हो सकता है?

कोड:

Sub test() 

    Dim cn As ADODB.Connection 

    'Not the best way to get the name, just convenient for notes 

    strFile = Workbooks(1).FullName 
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" 
    Set cn = CreateObject("ADODB.Connection") 
    'For this to work, you must create a DSN and use the name in place of 

    'DSNName 

    'strSQL = "INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable " & "Select AnyField As NameOfMySQLField FROM [Sheet1$];" 
    strSQL = "SELECT F1 FROM [Sheet1$];" 
    cn.Execute strSQL 
End Sub 

Answer 1

मैं एक संदर्भ जोड़ने के लिए भूल गया था करने के लिए "Microsoft ActiveX डेटा ऑब्जेक्ट 2.5 लाइब्रेरी":

उपकरण> संदर्भ> "के माइक्रोसॉफ्ट ActiveX डाटा सामने वाला चेकबॉक्स चेक ऑब्जेक्ट्स 2.5 लाइब्रेरी "

Answer 2

आप लेट बाइंडिंग का उपयोग कर सकते हैं:

Dim cn As Object 

समस्या दूर हो जाएगी। Set cn = CreateObject("ADODB.Connection") कथन निष्पादित होने पर VBA स्वचालित रूप से संदर्भ देगा।

Answer 3

मैंने माइक्रोसॉफ़्ट एक्टिवैक्स डेटा ऑब्जेक्ट्स 2.5 और 2.8 लाइब्रेरी जोड़ने की कोशिश की, लेकिन यह काम नहीं कर सका। लेकिन जब मैंने नीचे की तरह नई वस्तु बनाने की कोशिश की तो यह काम किया।

Set cn = CreateObject("ADODB.Connection")