Discussion :

[gorjette]

Bonjour,

Je veux, si mon serveur est fermé, avertir mon client que le serveur n'est pas disponible et ensuite fermer le programme.
Le problème est que ça prends 15 (ODBC windows), 20(currentdb), 40(ADODB) secondes avant que je reçoive l'erreur.

Merci pour vos pistes.
JF

[marot_r]

Bonjour.

Dépendament du driver ODBC, certains offrent la possibilité de régler le TimeOut au niveau du du driver ou au niveau de la connextion.

Quelle est la BD à laquelle tu veux te connecter ? Oracle ? MS-SQL Server ?

A+

[gorjette]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DB As ADODB.Connection
Set DB = New ADODB.Connection
DB.Open "driver={SQL Server};server=DESKTOP-1HAJ2KN\SQLEXPRESS;uid=sa;pwd=;database=MABD_be"

J'ai aussi lié mes tables avec le driver ODBC 17 de Sql Server qui offre le paramétrage query time, Retry# et Interval.

Merci bien.
JF

[marot_r]

Bonjour.

Au lieu de faire une connexion via ADO, as-tu essayé avec une table liée ordinaire ?

De mon expérience avec Oracle, je savais immédiatement si ma table était indisponible si le serveur était "down".
Il suffisait d'essayer de lire des données et on avait une erreur tout de suite.

A+

[gorjette]

J'ai essayé avec dao

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Set DB = DBEngine.OpenDatabase(CurrentProject.FullName)
    On Error Resume Next
    Set RS = DB.OpenRecordset("select * from dbo_aalog", dbOpenDynaset, dbSeeChanges)

d'appeler une requête builtIn sur une table liée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume Next
DBEngine(0)(0).QueryTimeout = 1
DoCmd.OpenQuery "req12", , acReadOnly

Un Dlookup sur une table liée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim ALLO As Double
    If IsNull(ALLO = DLookup("[id]", "dbo_aalog") = False) Then
    MsgBox "Connexion non possible", , "Gestion Chapô"

.. et je travaille avec des tables liés, car c'est la meilleure façon que je comprend pour utiliser des sous-formulaires dans Access.

Quand l'application ouvre, le programme se met à lagger, car les tables liées ne trouvent pas leur lien. Or je veux faire une macro autoexec au startup pour vérifier si le serveur est up and running. Mais peut importe la façon que j’essaie, le client met minimum 20 secondes à répondre. Il reste accroché parfois jusqu'à 40 secondes. Et j’imagine qu'il essais et réessaie de se connecter continuellement durant ce temps.

Dans Access in y a, dans les options sous Paramètre du client dans Avancé, des champs pour paramétriser la temporisation, les intervalles d'actualisation, le nombre de tentatives de mise à jour... intervalle d'actualisation ODBC. J'ai fais des tests et n'y aie pas trouvé de lien avec mon problème.

J'ai été fouillé dans la base de registre de mon ordi. et j'ai trouvé un seul timeout pour ODBC. Mais il n'a pas de lien avec mon problème.

Par défaut, quand je teste la connexion dans l'Administrateur de source de données ODBC de Windows, j'obtiens une réponse au bout de 15 secondes (exactement) si le serveur est inaccessible.

Il doit bien avoir un moyen de contrôler le temps maximum pour tenter une connexion ODBC! Comme le "DB.connexiontimeout = 2 secondes".

Merci.

[marot_r]

Désolé, plus d'idées :-(.

A+

[gorjette]

Moi je dirais que c'est Windows qui ne me donne pas mon Timeout.
On m'a dit qu'il était possible d'augmenter le Timeout ODBC, mais j'ai jamais été capable de le réduire.

Merci.