Modifier une Chaîne de Connexion incorporée dans microsoft excel macro

La réponse à ma question ci-dessous.

Toutes les autres réponses sont la plupart du temps correct et de se concentrer sur la modification de la connexion en cours, mais je veux juste envie de savoir comment définir la chaîne de connexion de la connexion.

Le bug est venue à cette situation. Si vous regardez ma capture d'écran, vous verrez que la chaîne de connexion est:

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ADCData_Doric;Data Source=doric-server5;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LHOLDER-VM;Use Encryption for Data=False;Tag with column collation when possible=False

Je tente de mettre sur cette chaîne avec ActiveWorkbook.Connections("Job_Cost_Code_Transaction_Summary").OLEDBConnection.Connection = "connection string"

Je recevais un message d'erreur quand j'essayait simplement d'affecter la chaîne complète de la Connexion. J'ai été en mesure de MsgBox la chaîne de connexion en cours avec cette propriété, mais pas l'ensemble de la chaîne de connexion de retour sans l'obtention de l'erreur.

Depuis, j'ai trouvé que la chaîne de connexion doit avoir OLEDB; ajouté à la chaîne.

si cela fonctionne maintenant!!!

ActiveWorkbook.Connections("Job_Cost_Code_Transaction_Summary").OLEDBConnection.Connection = "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ADCData_Doric;Data Source=doric-server5;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LHOLDER-VM;Use Encryption for Data=False;Tag with column collation when possible=False"

très subtil, mais c'était le bug!

OriginalL'auteur

Vous pouvez utiliser une fonction qui prend le OLEDBConnection et les paramètres de mise à jour, comme les entrées, et retourne la nouvelle chaîne de connexion. Il est similaire à la Jzz de la réponse, mais permet une certaine souplesse sans avoir à modifier la chaîne de connexion dans le code VBA chaque fois que vous voulez changer - au pire tu aurais à ajouter de nouveaux paramètres pour les fonctions.

Function NewConnectionString(conTarget As OLEDBConnection, strCatalog As String, strDataSource As String) As String

    NewConnectionString = conTarget.Connection
    NewConnectionString = ReplaceParameter("Initial Catalog", strCatalog)
    NewConnectionString = ReplaceParameter("Data Source", strDataSource)

End Function

Function ReplaceParameter(strConnection As String, strParamName As String, strParamValue As String) As String

    'Find the start and end points of the parameter
    Dim intParamStart As Integer
    Dim intParamEnd As Integer
    intParamStart = InStr(1, strConnection, strParamName & "=")
    intParamEnd = InStr(intParamStart + 1, strConnection, ";")


    'Replace the parameter value
    Dim strConStart As String
    Dim strConEnd As String
    strConStart = Left(strConnection, intParamStart + Len(strParamName & "=") - 1)
    strConEnd = Right(strConnection, Len(strConnection) - intParamEnd + 1)

    ReplaceParameter = strConStart & strParamValue & strConEnd

End Function

Remarque que j'ai modifié ce de code que j'ai utilisé pour une application particulière, il est donc en partie testé et peut-être besoin de quelques ajustements avant de totalement répond à vos besoins.

Note que bien que c'aurez besoin d'une sorte de code d'appel en tant que bien, ce qui serait (en supposant que le nouveau catalogue et de la source de données sont stockés dans les cellules de la feuille):

Sub UpdateConnection(strConnection As String, rngNewCatalog As Range, rngNewSource As Range)

    Dim conTarget As OLEDBConnection
    Set conTarget = ThisWorkbook.Connections.OLEDBConnection(strConnection)

    conTarget.Connection = NewConnectionString(conTarget, rngNewCatalog.Value, rngNewSource.Value)
    conTarget.Refresh

End Sub

OriginalL'auteur

Je voudrais donner ma petite contribuer ici à ce vieux sujet.
Si vous avez beaucoup de liens dans votre fichier Excel, et vous voulez changer le nom DB et DB serveur pour le tout, vous pouvez utiliser le code suivant:

• Il parcourt toutes les connexions et les extraits de la chaîne de connexion
• Chaque chaîne de connexion est divisé en un tableau de chaînes
• Il parcourt le tableau à la recherche pour le droit des valeurs de connexion pour modifier, les autres ne sont pas touchés
• La il recomposer le tableau dans la chaîne et de valider la modification

Cette façon, vous n'avez pas besoin d'utiliser de remplacer et d'en connaître la valeur précédente, et le reste de la chaîne restera intacte.
Aussi, nous pouvons nous référer à un nom de cellule, de sorte que vous pouvez avoir un nom de votre fichier Excel

J'espère que cela peut aider

Sub RelinkConnections()

Dim currConnValues() As String

For Each currConnection In ThisWorkbook.Connections
    currConnValues = Split(currConnection.OLEDBConnection.Connection, ";")
    For i = 0 To UBound(currConnValues)
        If (InStr(currConnValues(i), "Initial Catalog") <> 0) Then
            currConnValues(i) = "Initial Catalog=" + Range("DBName").value
        ElseIf (InStr(currConnValues(i), "Data Source") <> 0) Then
            currConnValues(i) = "Data Source=" + Range("DBServer").value
        End If
    Next
    currConnection.OLEDBConnection.Connection = Join(currConnValues, ";")
    currConnection.Refresh
Next

End Sub

OriginalL'auteur