ADO Test de connexion

MystSith

XLDnaute Nouveau
Bonjour,

J'utilise ADO pour communiquer entre un fichier Access mdb et Excel... à l'ouverture du classeur de ce dernier j'active une connexion avec ma base de donnée (ceci afin de gagner du temps de calcul...pas de connexion/déconnexion à chaque requête SQL), tout fonctionne... cependant dès que je passe en mode édition (la petite équerre au crayon) la connexion se déconnecte. Bien que je puisse la remonter manuellement, j'aimerais faire un test sur cette connexion (plus prudent même pour la suite), savoir si elle encore active ou s'il faut faire une reconnection.
Qq'un aurait il une idée svp?

PS: ma connexion est définie en : Global cn As ADODB.Connection

Merci d'avance ;)

MystSith
 

MystSith

XLDnaute Nouveau
Merci MichelXld... ça fonctionne :)

En fait je faisais un test (cn = Nothing)... mais avec le 'Is' ça va bc mieux ;)

Voilà ce que donne le code (rien de bien sorcier ;) ):

Code:
Global cn As ADODB.Connection

Sub ConnecterBase() 'Connexion à la base

    Dim Fichier As String
    
    Set cn = New ADODB.Connection
    Fichier = Range('BDD').Value 'le chemin d'accès est stocké dans une cellule nommée 'BDD'
    
    cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' & Fichier & ';'

End Sub


Sub FermerBase() 'Fermeture de la base

    cn.Close
    Set cn = Nothing

End Sub


Sub TesterBase() 'La base est elle encore active?

    If (cn Is Nothing) Then ConnecterBase

End Sub

Et aussi...

Code:
Private Sub Workbook_Open()

    Call ConnecterBase

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call FermerBase

End Sub

Message édité par: mystsith, à: 24/10/2005 13:58
 

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs