Discussion :

[Bibick]

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.

[Kloun]

Tente une connexion avec ADO :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub ADOInitConnection()
    On Error GoTo Erreur
    Set lADO_Connection = New ADODB.Connection
    SysCmd acSysCmdSetStatus, "Connecting ..."
 
    If lStr_Base = "DEV" Then
        lADO_Connection.ConnectionString = "Driver={SQL Server};server=XX.XXX.X.XXX;UID=" & lStr_UID & ";PWD=" & lStr_PWD & ";database=" & lStr_Database & lStr_Base
    Else
        lADO_Connection.ConnectionString = "Driver={SQL Server};server=XX.XXX.X.XXY;UID=" & lStr_UID & ";PWD=" & lStr_PWD & ";database=" & lStr_Database & lStr_Base
    End If
    lADO_Connection.ConnectionTimeout = 10
    lADO_Connection.CommandTimeout = 10000
    lADO_Connection.Open
    SysCmd acSysCmdSetStatus, "Connection OK."
    Exit Sub
 
Erreur:
    SysCmd acSysCmdSetStatus, Now & " - Connection KO. Attente de " & cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION & " minutes avant nouveau test de connexion."
    'Debug.Print Now & " - " & Err.Number & " - " & Err.Description
    Attendre 60 * cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION
    SysCmd acSysCmdSetStatus, " "
    ADOInitConnection
End Sub

Si pas de connection, gère l'erreur (au lieu de tenter une reconnection comme dans mon code).

[Bibick]

Tente une connexion avec ADO :

Merci Kloun pour le tuyau. J'ai essayé d'implémenter comme ceci:

Code :

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

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

Code :

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

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

[naphta]

Bonjour,

Je m'incruste pour proposer une alternative le ping
je ne sais pas si cela pourrait convenir à ton souci

2 solutions

par un script là (d'autre solutions existent) :

http://windowsitpro.com/article/arti...a-machine.html

sinon dans access même et ici même
là :
http://access.developpez.com/sources...eseau#PingICMP

Bon WE

[Bibick]

Bonjour, Je m'incruste pour proposer une alternative le ping
...

Bonjour Naphta, ton incrustation est bienvenue

Oui c'est une bonne idée, qui donne rapidement réponse en cas de serveur SQL atteignable. Idéalement je voudrais cependant bien avoir une soluce qui couvre aussi les cas où par exemple le serveur tourne mais SQL ne répond pas.

Bon week-end et merci !

[LedZeppII]

Bonjour,

Le code ADO que j'ai vu dans cette discussion utilise ODBC comme fournisseur.

Pour vraiment tester une méthode alternative il faudrait essayer un fournisseur SQL Server pour OLE DB.
SQLOLEDB (7, 2000)
SQLNCLI (2005)
SQLNCLI10 (2008)

Exemple avec SQLOLEDB

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim oConn As ADODB.Connection
 
Set oConn = New ADODB.Connection
oConn.ConnectionString = "Provider=SQLOLEDB;" & _
      "Data Source=NomServeur;" & _
      "User ID=toto;Password=123456;" & _
      "Initial Catalog=BaseDeDonnees"
 
oConn.ConnectionTimeout = 5
 
On Error GoTo ErrH
oConn.Open
MsgBox "Connecté à BdD " & oConn.Properties("Current catalog")
oConn.Close
 
ExitHere:
Set oConn = Nothing
Exit Sub
 
ErrH:
MsgBox Err.Description, , "Err " & Err.Number
Resume ExitHere

A+

[naphta]

Bonsoir,

Il y a aussi ODBCPing mais je suppose que tu as déjà testé, un utilitaire abandonné par Microsoft.

ici sur le MSDN partie sql2008 pourtant.

http://msdn.microsoft.com/fr-fr/library/ms162756.aspx


Je ne l'ai jamais utilisé, d'habitude, en ce qui me concerne, quand un serveur est pas disponible pour une raison ou une autre les utilisateurs se concertent (assez brièvement) puis finissent pas me passer un coup de bigo.

a+

[Kloun]

LedZepII :
OLE/ODBC, y'a une différence de rapidité dans l'accès au données ?

[Bibick]

Pour vraiment tester une méthode alternative il faudrait essayer un fournisseur SQL Server pour OLE DB.

Bonjour LedZeppII. Merci pour l'exemple. J'ai implémenté, ça fonctionne impeccable quand la base est dispo, ça donne rapidement un message d'erreur sir par exemple le mot de passe est faux... mais j'ai tjrs des soucis (là ça plante définitivement Access) si le serveur n'est pas accessible sur le réseau. Je pense que je vais me tourner vers une routine en 2 phases, 1° vérif par ping puis 2° check selon ton exemple. Merci et A+

[LedZeppII]

LedZepII :
OLE/ODBC, y'a une différence de rapidité dans l'accès au données ?

Non, je ne crois pas.
En revanche, comme ce sont des méthodes logicielles différentes, je me disais qu'il pourrait y avoir une gestion différente du timeout.

A+