ADO Test de connexion

[MystSith]

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

[MichelXld]

bonjour

tu pourrais tester une procedure de ce type pour verifier si la connection est active


If Cn Is Nothing Then MsgBox 'déconnecté'



bonne journée
MichelXld

Message édité par: michelxld, à: 24/10/2005 06:11

[MystSith]

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 ):

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...

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