Continuer le script VBA apres erreurs
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:
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