Bonjour à tous,


Je dispose d'un fichier Excel avec une macro qui va récupérer des informations dans ma base de donnée (mssql server)


Mon code fonctionne, mais je voulais savoir si il y a une astuce pour qu'au niveau du code CommandTimeout , lorsqu'il atteint la limite il continue le script et n'affiche pas erreur à l’écran?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim cnBat As ADODB.Connection
Set cnBat = New ADODB.Connection
Dim strConn As String
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=10.91.7.93;UID=ii;PWD=mmm;DATABASE=mp"
cnBat.Open strConn
cnBat.CommandTimeout = 580
guigui69