Mon application doit pouvoir déterminer rapidement si une table SQL liée par ODBC est disponible. Le problème actuel est que si le serveur SQL n'est pas en ligne (panne serveur ou réseau par exemple), l'ouverture d'un recordset tourne plus de 6 minutes sur la ligne "Set MyRs..." avant de retourner un code d'erreur:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim Mydb As Database, MyRs As Recordset
Set Mydb = CurrentDb
Mydb.QueryTimeout = 1
Set MyRs = Mydb.OpenRecordset("Select IdLiv from dbo_Livraison")
L'erreur est "erreur d'exécution 3151", "ODBC -- Echec de la connexion à 'c:\monDsn.dsn'"

J'ai besoin de pouvoir déterminer en quelques secondes la disponibilité du serveur SQL afin de traiter l'erreur et ne pas bloquer l'utilisateur pendant 5 minutes, soit en définissant un temps max d'attente soit avec une fonction qui donne une réponse rapide sur la disponibilité de SQL Server.

Un grand merci d'avance pour votre aide.