错误 3420：对象无效或不再设置

Question

我在 excel-vba 工具中遇到 odbc 连接问题。

Public connString As Connection

    Sub login()
        logout
        Set wrkODBC1 = CreateWorkspace("NewODBC", "admin", "", dbUseODBC)
        Set connString= wrkODBC1.OpenConnection("odbc-database", dbDriverNoPrompt, , "ODBC;uid=user;pwd=passwrd;DSN=odbc-database")
    End Sub

    Sub logout()
        On Error Resume Next
        connString.Close
        wrkODBC1.Close
        On Error GoTo 0
    End Sub

当运行这段代码时：

login
txt = "SELECT [col1],[col1] FROM database.[dbo].[table]"
sqlToWorksheet sheet, connString, txt


Sub sqlToWorksheet(sheet, conn, sqlString)
    Set temp = conn.OpenRecordset(sqlString, dbOpenSnapshot)

执行 conn.OpenRecordset 时出现错误：错误 3420：对象无效或不再设置。任何人都知道什么是错误的？与我的其他 odbc 连接一起使用。数据库是mssqlserver2012.

Answer 1

我忘了这个实例化 wrkODBC1，现在正在工作。

错误 3420：对象无效或不再设置

Error 3420: Object invalid or no longer set

excel

vba

sql-server-2012