Chaine de Connexion SQL : bdd en paramètre

[megachris]

Bonjour,

Question à 100 points.... 😀
J'utilise des connexions à des bases SQL pour effectuer des tests unitaires.
J'ai désormais besoin de lancer ces tests sur une autre base de données.
Plutôt que de changer systématiquement le nom de la base de données dans la chaine de connexion de chaque connexion (Données - Connexions - Propriétés - Définition), je souhaiterai passer le nom de la base en variable sur une des cellules de mon fichier excel.
Est ce possible, et si oui comment?

Ceci me faciliterais grandement la vie en vue de toutes les connexions à modifier, merci d'avance !!!

Chris.

 

[MJ13]

Re : Chaine de Connexion SQL : bdd en paramètre

Bonjour Chris.

Tu peux essayer avec l'enregistreur de macros et voir si le code est facilement modifiable.

 

[megachris]

Re : Chaine de Connexion SQL : bdd en paramètre

Merci de ta réponse, j'ai enregistré une macro mais cela ne donne pas grand chose d'exploitable (j'ai modifié le nom de bdd de VCSCnext4 en VCSCnext3).
Je ne suis pas sûr que ce soit une bonne piste.

Sub Macro2()
'
' Macro2 Macro
'
With ActiveWorkbook.Connections("srv-mpl-test04 VCSCnext4 Version"). _
OLEDBConnection
.BackgroundQuery = True
.CommandText = Array("""VCSCnext4"".""dbo"".""Version""")
.CommandType = xlCmdTable
.Connection = Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=phoenix;Initial Catalog=VCSCnext4;Data Source=srv-mpl-test04;Use Procedur" _
, _
"e for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CLA-PIALOT;Use Encryption for Data=False;Tag with column col" _
, "lation when possible=False")
.RefreshOnFileOpen = False
.SavePassword = False
.SourceConnectionFile = _
"C:\Documents and Settings\chassagnard\Mes documents\Mes sources de données\srv-mpl-test04 VCSCnext4 Version.odc"
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
.ServerFillColor = False
.ServerFontStyle = False
.ServerNumberFormat = False
.ServerTextColor = False
End With
With ActiveWorkbook.Connections("srv-mpl-test04 VCSCnext4 Version")
.Name = "srv-mpl-test04 VCSCnext4 Version"
.Description = ""
End With
ActiveWorkbook.Connections("srv-mpl-test04 VCSCnext4 Version").Refresh
End Sub

 

[MJ13]

Re : Chaine de Connexion SQL : bdd en paramètre

Re

Après, il faut faire des tests.

 

[megachris]

Re : Chaine de Connexion SQL : bdd en paramètre

A partir du moment ou la modification du nom de bdd saisi n'est pas visible dans les actions enregistrées, je ne vois pas trop ce qu'il y a à tester... 😕
Peut être peux tu m'aguiller, je ne suis pas un expert....

Merci !

 

[MJ13]

Re : Chaine de Connexion SQL : bdd en paramètre

Re

A partir du moment ou la modification du nom de bdd saisi n'est pas visible dans les actions enregistrées, je ne vois pas trop ce qu'il y a à tester... 😕
Peut être peux tu m'aguiller, je ne suis pas un expert....

Moi non plus, je ne suis pas un expert mais quand je veux en faire (je travaille plus sur des fichiers txt), j'utilise l'enregistreur mais après, il y a plusieurs façon de se logger avec le bon driver et il faut tester plusieurs méthodes. Mais quand cela fonctionne, cest assez simple.

Il faudrait essayer de ne pas passer par la:

.SourceConnectionFile = _
"C:\Documents and Settings\chassagnard\Mes documents\Mes sources de données\srv-mpl-test04 VCSCnext4 Version.odc"

mais avoir la liste des champs et que tu cliques sur ceux que tu veux.