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

A voir également:

Adodb.connection open
Erreur ole db ou odbc: exception de hresult : 0x80040e4e. une erreur inattendue s'est produite. ✓ - Forum ASP / ASP.NET
Erreur OLE ✓ - Forum Foxpro
Erreur ole db ou odbc - Forum ASP / ASP.NET
Erreur OLE - Forum Delphi / Pascal
Erreur Connexion ODBC avec Jet 4.0 ✓ - Forum Visual Basic 6

1 réponse

Réponse 1 / 1

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

Discussions similaires

comment vérifier JRE si existe dans le système?

erreur Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

boucle pour loto

verifier la validité d'un nom de domaine en php

Verifier un nom de domaine