Vérifier qu'une DB est ouverte

Résolu
Nightmoo Messages postés 22 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 27 juillet 2004 - 13 juil. 2004 à 09:30
cs_PhilippeE Messages postés 437 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 10 août 2010 - 13 juil. 2004 à 09:57
J'ouvre mes DB de la manière suivante :

    Dim cnnADO As New ADODB.Connection
    Dim cmdADO As New ADODB.Command
    Dim rsADO As New ADODB.Recordset

    cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
    cnnADO.ConnectionString = "c:\maDB.mdb"
    cnnADO.Open
    cmdADO.ActiveConnection = cnnADO


J'aimerai savoir si l'objet cnnADO a déjà ouvert une connection.

Merci.

NightMoo

1 réponse

cs_PhilippeE Messages postés 437 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 10 août 2010 2
13 juil. 2004 à 09:57
1. Tester si l'objet est instancié
If cnnADO Is Nothing Then
' Dans ce cas, l'objet n'est pas instancié, il ne peut par conséquent être ouvert
End If


2. Tester l'état de l'objet (à faire uniquement si instancié)
If cnnADO.State = adStateClosed Then
' L'objet est marqué comme fermé
End If
Rejoignez-nous