Wie kann ich eine SQL-Datenbank direkt aus meinem Excel-VBA-Code abfragen?

Abfragen von SQL aus VBA in Excel

Durch die Verwendung von VBA in Excel können Sie die Funktionalität Ihrer Tabellenkalkulationen durch die direkte Interaktion mit SQL-Datenbanken erweitern. Dadurch können Sie SQL-Abfragen ausführen, Ergebnisse abrufen und diese in Ihre Excel-Arbeitsmappen integrieren.

Betrachten Sie die folgende VBA-Subroutine, die eine Verbindung zu einer bestimmten SQL Server-Instanz herstellt und eine SQL-Abfrage ausführt:

Sub ConnectSqlServer()

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

    ' Adjust according to your environment
    sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
                  "Initial Catalog=MyDatabaseName;" & _
                  "Integrated Security=SSPI;"

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

    ' Open connection and execute query
    conn.Open sConnString
    Set rs = conn.Execute("SELECT * FROM Table1;")

    ' Check for data
    If Not rs.EOF Then
        ' Transfer results to Excel sheet
        Sheets(1).Range("A1").CopyFromRecordset rs
        ' Close recordset
        rs.Close
    Else
        MsgBox "Error: No records returned.", vbCritical
    End If

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

End Sub

Um diese Unterroutine zu verwenden, ändern Sie die folgenden Teile:

• Datenquelle: Ersetzen „INSTANCESQLEXPRESS“ durch den Namen Ihrer SQL Server-Instanz.
• Anfangskatalog: Ersetzen Sie „MyDatabaseName“ durch den Namen der Datenbank, mit der Sie eine Verbindung herstellen möchten.
• Integrierte Sicherheit: Stellen Sie die Einstellung auf „True“ ein, wenn Sie die Windows-Authentifizierung verwenden, oder auf „False“, wenn Sie die SQL Server-Authentifizierung verwenden. Im letzteren Fall ersetzen Sie „Integrated Security=SSPI;“ mit „Benutzer-ID=[Benutzername];Passwort=[Passwort];“.

Führen Sie nach der Änderung die VBA-Subroutine aus, um eine Verbindung herzustellen, führen Sie die in der „Execute“-Anweisung angegebene SQL-Abfrage aus, und tragen Sie die Ergebnisse in die angegebene Excel-Tabelle ein.

Das obige ist der detaillierte Inhalt vonWie kann ich eine SQL-Datenbank direkt aus meinem Excel-VBA-Code abfragen?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!