Tester une connexion avec le serveur
Comment vérifier que le serveur qui héberge ma base de données est bien accessible ?
Principe
Lorsque vous travaillez en réseau sur Access, vous scindez généralement votre application en 2 : une base frontale (qui contient les requêtes, formulaires, états, macros, modules) et une base dorsale (qui contient les tables et les relations). La base frontale est située sur chaque poste utilisateur, la base dorsale est par contre placée sur le serveur.
Vous aurez peut-être besoin, dans la base frontale, de vérifier si le serveur – ou la base dorsale – est accessible. Notamment dans le cas où vous souhaitez recréer les liaisons de tables. Voici une fonction qui va aider.
Le code Visual Basic
Recopiez la fonction ci-dessous dans un module standard de votre base de données :
1 2 3 4 5 6 7 |
Function ServeurOK(ByVal strCheminBase As String) As Boolean Dim strFichier As String On Error Resume Next strFichier = Dir(strCheminBase) ServeurOK = (Err.Number = 0) End Function |
Tester le code
La fonction précédente doit recevoir un chemin de fichier (une base Access ou n’importe quel autre fichier, en fait). Elle renvoie True
si le fichier existe à l’emplacement donnée, False
sinon. Pour la tester, écrivez ceci dans une procédure ou une fonction VBA :
1 2 3 4 5 |
If ServeurOK("\\Serveur\Dossier\base_dorsale.mdb") Then MsgBox "Serveur ok" Else MsgBox "Pas de serveur" End If |
où :
Serveur
est le nom (ou l’adresse IP) de votre serveur.Dossier
est le nom du dossier partagé qui contient la base MDB (il peut y avoir plusieurs niveaux :\\Serveur\Dossier1\Dossier2
).base_dorsale.mdb
est le nom de votre… base Access dorsale.
Cours très intéressant mais doit être mis sous forme de cours vidéos qui est plus pratique et facile à appliquer.
merci pour cet effort pour aider les débutants.
Salutations
Merci, je prends note !