錯誤：ActiveX 組件無法創建 object

Question

Run-Time error '91':
Object variable or With block variable not set

幫我解決這個問題。

我不知道為什么會發生這種情況，因為我只是按照說明進行操作。

    Sub QueryExcel(ByVal SQL_Statement As String)
    On Error GoTo errHandle
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Dim sConnection As String, sSQL As String
    Dim ws As Worksheet, i As Integer, iCheck As Integer
    Dim num_records As Long
    
    sConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.FullName & _
                  ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=0;ReadOnly=False"""
    
    Set conn = CreateObject("ADOBD.Connection")
    Set rst = CreateObject("ADOBD.Recordset")
    
    sSQL = UCase(SQL_Statement)
    
    conn.Open sConnection
    
    If Left(sSQL, 6) = "UPDATE" Or InStr(sSQL, "INSERT INTO") > 0 Then
    
        conn.Execute sSQL, num_records
        MsgBox num_records & "records affected.", vbInformation
    Else
    
        rst.Open sSQL, conn, adOpenDynamic, adLockOptimistic
        
        Set ws = Worksheets.Add
        With ws
            .Move ThisWorkbook.Worksheets(Sheets.Count)
            
            '// Paste Record Set
            .Range("A2").CopyFromRecordset rst
            
            For i = 0 To rst.Fields.Count - 1
                .Cells(1, i + 1) = rst.Fields(i).Name
            Next i
            
        End With
    
    End If
     
    Door:
    If rst.State <> 0 Then rst.Close
    If conn.State <> 0 Then conn.Close
    
    Set rst = Nothing
    Set conn = Nothing
    Set ws = Nothing
    
    Exit Sub
    
    errHandle:
    MsgBox "Error: " & Err.Description, vbInformation, "JJ Excel SQL.Application"
    GoTo Door
    End Sub

此文本上方的代碼
此代碼： If rst.State <> 0 Then
使所有這些長代碼出錯

Answer 1

快速瀏覽一下，它可能永遠不會正確加載第一個 object。

檢查您的 IF ELSE。 聲明，我想你會發現它從不執行這個命令

rst.Open sSQL, conn, adOpenDynamic, adLockOptimistic

您可以通過在錯誤之前暫停來檢查。 然后在中間window打字。

?typename(rst)

它不會返回任何您知道問題所在的信息。

Answer 2

Set conn = CreateObject("ADOBD.Connection")
    Set rst = CreateObject("ADOBD.Recordset")

在上面的行ADOBD更改為ADODB