Connection string für SQL Server 2014 Express (VBA)

Ich versuche herauszufinden, was gehen muss in der Verbindungszeichenfolge für die SQL-Servers per VBA.

Dies ist der code, den ich jetzt haben,

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

Problem ist, ich weiß nicht, was in der Verbindungszeichenfolge. Mein vollständiger Pfad einer Datei.

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

Kann mir jemand sagen, was gehen muss mit dem,

"Provider"
 "Source"
 "Initial Catalog"

Dank.

Siehe Lektion 2: Angabe der Verbindungsinformationen für parellel Informationen.
Ja, ich bin noch sehr neu in SQL Server und, der link ist im Grunde das, was ich bin mit dem problem.
Der Anbieter sollte in Ordnung sein, die Data Source werden muss, um den Namen des Servers und die Initial Catalog ist der name der aktuellen Datenbank, zu der Sie eine Verbindung herstellen möchten.

InformationsquelleAutor | 2015-12-21

  1. 11

    Finden Sie in diesem link.

    http://www.connectionstrings.com/

    Auch, siehe dieses Beispiel-Skript, das funktioniert für mich vollkommen in Ordnung.

    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
    Ich habe es funktioniert, ich war nicht Namen, den der server korrekt.
    Ich weiß nicht, was ist mein server name.... Ich installierte SQL Server Express 2008 auf meinem PC... Wo kann ich finden den server-Namen...

    InformationsquelleAutor

Schreibe einen Kommentar