如何将 QueryTable 连接转换为 ADODB 连接？

Question

我正在尝试更新旧的 excel sheet，它使用 QueryTables 连接到 Microsoft SQL 服务器。

以下有效：

With ActiveSheet.QueryTables.Add(Connection:= _
    "ODBC;DSN=[dbname];UID=[name];PWD=[pass];APP=Microsoft Office 2003;WSID=[machine name];DATABASE=[dbname];AutoTranslate=No;QuotedId=No;AnsiNPW=No" _
    , Destination:=Range("A20"))
    .CommandText = Array("[a valid query]")

我希望能够使用此 QueryTable 获取的信息执行一些更复杂的操作，但我不断收到以下错误：

Run-time error '-2147467259 (80004005)': [DBNETLIB][ConnectionOpen (Invalid Instance()).]Invalid connection.

使用以下代码：

Private SqlConn As ADODB.Connection

Private Sub InitiateSqlConn(Optional User As String, Optional Pass As String, Optional Server As String, Optional DB As String)
    If SqlConn Is Nothing Then
    Dim strConn As String

    Set SqlConn = New ADODB.Connection

    If IsNull(User) Or IsEmpty(User) Or User = "" Then
        User = "[user]"
    End If
    If IsNull(Pass) Or IsEmpty(Pass) Or Pass = "" Then
        Pass = "[pass]"
    End If
    If IsNull(Server) Or IsEmpty(Server) Or Server = "" Then
        Server = "[ServerName]"
    End If
    If IsNull(DB) Or IsEmpty(DB) Or DB = "" Then
        DB = "[DBName]"
    End If

    strConn = "Provider=SQLOLEDB;Data Source=" & Server & ";Initial Catalog=" & DB & ";"
    SqlConn.Open "Provider=SQLOLEDB;Data Source=[SeverName];Initial Catalog=[DBName];Trusted_connection=yes;", "[User]", "[Pass]"
    End If
End Sub

Public Sub QueryInto(QR As String, ByRef RS As ADODB.Recordset, Optional User As String, Optional Pass As String, Optional Server As String, Optional DB As String)
    InitiateSqlCon User, Pass, Server, DB

    RS.Open QR, SqlConn
End Sub

我也试过：

 SqlConn.Open "Driver={SQL Server};Server=[SeverName];Database=[DBName];UID=[User];PWD=[Pass];"

我收到以下错误：

Run-time error '-2147467259 (80004005)': [Microsoft][ODBC SQL Server Driver][DBNETLIB]Invalid connection.

错误总是发生在 SqlConn.Open。

如何将与 QueryTable 建立的连接建立为 ADODB.Connection 对象？

Answer 1

这个将失败，因为您在 "Trusted_connection" 参数后附加了额外的文本。如果您使用受信任的连接，则不需要用户名或密码，并且 SQLOLEDB 的语法与 {SQLServer} 的语法不同（它应该是 Integrated Security=SSPI;.

SqlConn.Open "Provider=SQLOLEDB;Data Source=[SeverName];Initial Catalog=[DBName];Trusted_connection=yes;", "[User]", "[Pass]"

您还需要将数据源和初始目录构建到字符串中，而不是 Data Source=[SeverName] 和 Initial Catalog=[DBName]。

这个会失败，因为你没有使用任何安全参数：

strConn = "Provider=SQLOLEDB;Data Source=" & Server & ";Initial Catalog=" & DB & ";"

这个失败了，原因和第一个一样。您需要将实际参数构建到连接字符串中。

SqlConn.Open "Driver={SQL Server};Server=[SeverName];Database=[DBName];UID=[User];PWD=[Pass];"

它看起来应该更像这样：

Private Sub InitiateSqlConn(Optional User As String, Optional Pass As String)
    If SqlConn Is Nothing Then
        Dim strConn As String
        Dim Server As String
        Dim DB As String

        'These can't be optional. They are required.
        Server = "TheActualNameOfTheServerHere"
        DB = "TheActualNameOfTheDatabaseHere"

        Set SqlConn = New ADODB.Connection

        If User = vbNullString Or Pass = vbNullString Then
            'No credentials.  Try a trusted connection.
            strConn = "Provider=SQLOLEDB;Data Source=" & Server & _
                      ";Initial Catalog=" & DB & ";Integrated Security=SSPI;"
        Else
            'Credentials.
            strConn = "Provider=SQLOLEDB;Data Source=" & Server & _
                      ";Initial Catalog=" & DB & ";User Id=" & User & _
                      "; Password=" & Pass & ";"
        End If

        SqlConn.Open strConn
    End If
End Sub

请注意，Server 和 DB 参数不能是可选的。它们实际上是必需的，并且必须有效才能连接。您也可以跳过可选字符串参数的 null 和空检查，除非您正在做一些非常奇怪的事情。如果未传递任何内容，它们将默认为 vbNullString。

如何将 QueryTable 连接转换为 ADODB 连接？

How do I turn a QueryTable Connection into an ADODB connection?

sql

sql-server

excel

vba

adodb