VBA Connexion de Base de données

Vous avez seulement besoin d'ouvrir la connexion à la fois. Qui, littéralement, signifie que vous pouvez exécuter plusieurs requêtes sur une connexion active. Vous devez fermer la connexion et libre de référence (spécialement avec ADODB) pour éviter les collisions et autres problèmes liés à la connexion.

Si vous connaissez les requêtes que vous allez être en cours d'exécution, vous pouvez créer un tableau (ou de la collection) et ajouter des requêtes à la file d'attente.

Alors que vous avez déjà une connexion ouverte pour travailler avec, vous pouvez garder l'exécution des requêtes.

Scan de code il n'y a pas beaucoup de différence entre le tien et le mien, donc vous devriez être capable de voir ce qui se passe et où. S'il vous plaît, de poser des questions dans les commentaires si quelque chose n'est pas clair

   Sub DbConnection()

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Dim rs As ADODB.Recordset

    Dim strConn As String
    strConn = "Driver={SQL Server};Server=; Database=; UID=; PWD="

    cn.Open strConn

    Dim queryArr, i
    queryArr = Array("SELECT * FROM [MyTable]", "SELECT * FROM [MyOtherTable]")

    For i = LBound(queryArr) To UBound(queryArr)
        ExecuteQuery queryArr(i), cn, rs
    Next i

    cn.Close
    Set cn = Nothing
End Sub

Private Sub ExecuteQuery(query As Variant, ByRef cn As ADODB.Connection, ByRef rs As ADODB.Recordset)
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .Open CStr(query)
        Sheets(1).Range("A1").CopyFromRecordset rs
        .Close
    End With
    Set rs = Nothing
End Sub

Maintenant, vous avez seulement besoin d'exécuter le DBConnection() une fois et toutes les requêtes que vous avez énumérés dans le tableau sera exécuté.

Par ailleurs, si les requêtes sont créées au moment de l'exécution, vous pouvez le passer à la DbConnection() en tant que paramètre.

Sub DbConnection(queryQueue As Collection)

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Dim rs As ADODB.Recordset


    Dim strConn As String
    strConn = "Driver={SQL Server};Server=HELIUM\PRI; Database=sourcedata; UID=tabula; PWD=Tabula123!"

    cn.Open strConn

    For i = 1 To queryQueue.Count
        ExecuteQuery queryQueue.Item(i), cn, rs
    Next i

    cn.Close
    Set cn = Nothing
End Sub

Private Sub ExecuteQuery(query As Variant, ByRef cn As ADODB.Connection, ByRef rs As ADODB.Recordset)
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .Open CStr(query)
        Sheets(1).Range("A1").CopyFromRecordset rs
        .Close
    End With
    Set rs = Nothing
End Sub

Mise à jour:

Vous pouvez déclarer votre connexion en tant que Variable Globale. Vous pouvez maintenant exécuter le DBConnection() autant de fois que vous le souhaitez et vous n'allez pas créer une nouvelle connexion à chaque fois. Au lieu de cela, vous serez à l'aide de l'objet de connexion global.

Option Explicit

Public cn As ADODB.Connection

Sub DbConnection()

    Set cn = New ADODB.Connection
    Dim rs As ADODB.Recordset

    Dim strConn As String
    strConn = "Driver={SQL Server};Server=; Database=; UID=; PWD="

    cn.Open strConn

    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .Open "SELECT * FROM [MyTable]"
        Sheets(1).Range("A1").CopyFromRecordset rs
        .Close
    End With
    Set rs = Nothing

    cn.Close
    Set cn = Nothing
End Sub

OriginalL'auteur