SQL Server 2014 Express (VBA) 的连接字符串答案

【问题标题】：Connection string for SQL Server 2014 Express (VBA)SQL Server 2014 Express (VBA) 的连接字符串
【发布时间】：2016-03-27 04:13:00
【问题描述】：

我正在尝试通过 VBA 找出 SQL 服务器的连接字符串中需要包含的内容。

这是我现在的代码，

Sub ConnectSqlServer()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String

    ' Create the connection string.
    sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
              "Initial Catalog=MyDatabaseName;" & _
              "Integrated Security=SSPI;"

                ' Create the Connection and Recordset objects.
                Set conn = New ADODB.Connection
                Set rs = New ADODB.Recordset

                ' Open the connection and execute.
                    conn.Open sConnString


                      'Do my stuff here


                    If CBool(conn.State And adStateOpen) Then conn.Close
                Set conn = Nothing
                Set rs = Nothing

End Sub

问题是我不知道在连接字符串中放什么。我的完整文件路径是这样的。

C:\Program Files\Microsoft SQL Server\MSSQL12.SQLEXPRESS\MSSQL\DATA\Staff_Manager.mdf

谁能告诉我需要什么，

"Provider"
 "Source"
 "Initial Catalog"

谢谢。

【问题讨论】：

请参阅Lesson 2: Specifying Connection Information 了解并行信息。
是的，我对 SQL Server 还是很陌生，这个链接基本上就是我遇到的问题。
提供者应该没问题，Data Source 需要是服务器名称，Initial Catalog 是您要连接的实际数据库的名称。

标签： vba excel connection-string sql-server-2014-express

【解决方案1】：

请查看此链接。

http://www.connectionstrings.com/

另外，请参阅这个示例脚本，它对我来说非常适合。

Sub ADOExcelSQLServer()
     ' Carl SQL Server Connection
     '
     ' FOR THIS CODE TO WORK
     ' In VBE you need to go Tools References and check Microsoft Active X Data Objects 2.x library
     '

    Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    Server_Name = "EXCEL-PC\EXCELDEVELOPER" ' Enter your server name here
    Database_Name = "AdventureWorksLT2012" ' Enter your database name here
    User_ID = "" ' enter your user ID here
    Password = "" ' Enter your password here
    SQLStr = "SELECT * FROM [SalesLT].[Customer]" ' Enter your SQL here

    Set Cn = New ADODB.Connection
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"

    rs.Open SQLStr, Cn, adOpenStatic
     ' Dump to spreadsheet
    With Worksheets("sheet1").Range("a1:z500") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset rs
    End With
     '            Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub

【讨论】：

我得到了它的工作，我没有正确命名服务器。
我不知道我的服务器名称是什么……我在我的 PC 上安装了 SQL Server Express 2008……在哪里可以找到服务器名称……

【解决方案2】：

Server_Name = 双引号中的您的服务器名称或服务器 IP，例如 SQL SERVER 中的“192.168.0.89,1433”

服务器名称是您安装或尝试时输入的名称：

.\SQLEXPRESS

【讨论】：