Comment puis-je interroger une base de données SQL directement à partir de mon code Excel VBA ?

Interrogation SQL à partir de VBA dans Excel

En utilisant VBA dans Excel, vous pouvez étendre les fonctionnalités de vos feuilles de calcul en interagissant directement avec les bases de données SQL. Cela vous permet d'exécuter des requêtes SQL, de récupérer les résultats et de les intégrer dans vos classeurs Excel.

Considérez le sous-programme VBA suivant, qui se connecte à une instance SQL Server spécifique et exécute une requête SQL :

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

Pour utiliser ce sous-programme, modifiez les parties suivantes :

• Données Source : Remplacez "INSTANCESQLEXPRESS" par le nom de votre instance SQL Server.
• Catalogue initial : Remplacez "MyDatabaseName" par le nom de la base de données à laquelle vous souhaitez vous connecter.
• Sécurité intégrée : Ajustez sur « Vrai » si vous utilisez l'authentification Windows ou sur « Faux » si en utilisant l'authentification SQL Server. Dans ce dernier cas, remplacez « Integrated Security=SSPI ; » avec "User ID=[username];Password=[password];".

Une fois modifié, exécutez le sous-programme VBA pour établir une connexion, exécutez la requête SQL spécifiée dans l'instruction "Execute", et remplissez les résultats sur la feuille Excel spécifiée.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!