Envoyé par
Kloun
Tente une connexion avec ADO :
Merci Kloun pour le tuyau. J'ai essayé d'implémenter comme ceci:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Public Sub ADOInitConnection()
On Error GoTo Erreur
Dim lADO_Connection
Set lADO_Connection = New ADODB.Connection
SysCmd acSysCmdSetStatus, "Connecting ..."
lADO_Connection.ConnectionString = "FILEDSN=C:\Caisses\caissier2.dsn;DATABASE=Caisses;UID=caissier2;PWD=xyz"
lADO_Connection.ConnectionTimeout = 1 '10
lADO_Connection.CommandTimeout = 1 '10000
Debug.Print Now
lADO_Connection.Open
Debug.Print Now
SysCmd acSysCmdSetStatus, "Connection OK."
Exit Sub
Erreur:
Debug.Print Now
Stop
End Sub |
Lorsque le serveur est accessible ça passe nickel en une fraction de seconde. Par contre si je désactive la connexion réseau sur le serveur SQL, ça bloque toujours pendant un peu plus de six minutes
J'ai aussi regardé dans le dsn, je ne vois nulle part où régler un timeout.
J'ai aussi essayé avec
lADO_Connection.ConnectionString = "Driver={SQL Native Client};server=191.250.10.57;UID=Caissier2;PWD=xyz;database=Caisses"
... même punition: 6 minutes et 18 secondes d'attente avant le verdict d'échec
Partager