IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Test de connexion ODBC au démarrage d'access


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2010
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 12
    Par défaut Test de connexion ODBC au démarrage d'access
    Bonjour
    Avec une base access 2010 je me connecte avec au choix 2 liaisons odbc soit sur SQLEXPRESS en local soit sur SQL server ...

    Quand je suis en mode déconnecté, j'ai besoin de me connecter à la base locale sqlexpress. je souhaiterais donc que l'application test à l'ouverture si je suis en local ou pas et me monte la connexion odbc qui va bien ...

    J'ai mis ce code dans un formulaire au démarrage mais le test n'a pas lieu ... l'appli essaye de s'ouvrir sur la connexion odbc sql server qui est par défaut et comme je ne suis pas connecté elle s'arrête et m'affiche un beau message "ODBC echec de connexion...."

    Pourriez vous me dire quel code pourrait tester ma connexion et où placer le placer ?
    J'ai bien penser mettre par défaut une connexion locale odbc mais tous mes utilisateurs ne travaillent pas forcément en local
    Merci d'avance

    Mon code :
    '
    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
    24
    25
    26
    27
    28
    29
    '************************************************************
    'MISE A JOUR CONNEXION ODBC EN FONCTION DU TYPE DE CONNEXION
    '*************************************************************
    'si l 'utilisateur connecté est en local (gesbac) on le connecte à la base de donnée locale sur SQL Express
    'sinon on le connecte au serveur SQL
        Dim sChemin As String
        Dim newConnectionString As String
        Dim db As DAO.Database
        Dim tb As DAO.TableDef
        Set db = CurrentDb
    If Environ("USERDOMAIN") = "CG67" Then
        newConnectionString = DLookup("[ODBC_SERVEUR]", "dbo_T_ODBC", "[id_ODBC]=1") 'valeur de la chaine de connexion au serveur SQL stockée dans la table T_ODBC
        Me.Mode = "SQL"
        Me.Mode2 = "SQL"
    Else
        newConnectionString = DLookup("[ODBC_LOCAL]", "dbo_T_ODBC", "[id_ODBC]=1") 'valeur de la chaine de connexion à la base locale stockée dans la table ODBC
        Me.Mode = "LOCAL"
        Me.Mode2 = "LOCAL"
     
    End If
     
        For Each tb In db.TableDefs
            If Left(tb.Connect, 4) = "ODBC" Then
                tb.Connect = newConnectionString
                tb.RefreshLink
                Debug.Print "Refreshed ODBC table " & tb.Name
            End If
        Next tb
        Set db = Nothing

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Je te propose une autre méthode.

    En effet, ton serveur est un disque dur externe, donc tu pourrais tester en t'aidant de cela : http://warin.developpez.com/access/fichiers/#LI-B

    Philippe

Discussions similaires

  1. test de connexion ODBC
    Par Delphi-ne dans le forum HyperFileSQL
    Réponses: 1
    Dernier message: 09/10/2014, 07h37
  2. [AC-2007] connexion ODBC avec une base Access
    Par lemabs dans le forum Access
    Réponses: 1
    Dernier message: 24/12/2009, 08h08
  3. [ODBC] Connexion ODBC à une base Access sur serveur distant
    Par jsteffe dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 25/11/2008, 10h43
  4. connexion odbc access sql server
    Par harjer dans le forum MS SQL Server
    Réponses: 11
    Dernier message: 30/05/2007, 11h13
  5. réactiver une connexion ODBC rompue avec ACCESS
    Par CGRCB dans le forum Access
    Réponses: 1
    Dernier message: 31/07/2006, 19h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo