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?
guigui69
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
Partager