vérifier à distance qu'une base de donnée est déjà ouverteRésolu

Question

Bonjour je débute en vb6 , et j'aimerais simplement pouvoir vérifier si une base de donnée est ouverte ( Access) et que ca me renvoie un message oui ou non ... Est ce possible

cs_pluplu · Accepted Answer

Que veut dire si une base Access est ouverte ? si quelqu'un travaille déjà dessus ??

Pascal Laurençon

AntoineDsi · Answer

Je m en suis sorti voila la fonction que j'ai créé




Sub W()
    Dim wErr As Long
    Dim Werror As String
    Dim Cn As New ADODB.Connection
    
    ' Test pour vérifier qu'une base de données peut être ouverte en 'Exclusif'
    Cn.Provider = "Microsoft.Jet.OleDB.4.0"
    Cn.ConnectionString = GtCheminData & "ParXXI.MDB"
    Cn.Mode = adModeShareExclusive
    Cn.CursorLocation = adUseClient
    
    On Error Resume Next
    Cn.Open
    wErr = Err.Number
    Werror = Err.Description
    On Error GoTo 0
    
    If wErr <> 0 Then
        MsgBox wErr & " -> " & vbCrLf & Werror
    Else
        Cn.Close
    End If
        
    Set Cn = Nothing



 



End Sub

multisession · Answer

Vérifier à distance qu'une base de donnée est déjà ouverte

3 réponses

Votre réponse

Discussions similaires