Tester la version du mdac installé


Commenter

Contenu du snippet

reste à définir le mdac que vous utilisez

Const V_MDAC As String = "2.8"

puis

Call testMdacVersion

Source / Exemple : 


Private Function testMdacVersion()
Dim sMessage As String
Dim rapport  As Boolean
Dim cnTest   As Object ' New ADODB.Connection

  rapport = False
  
  On Error Resume Next
  sMessage = "Microsoft Data Access Components Version Check"
  Set cnTest = CreateObject("ADODB.Connection")
  
  If Err.Number <> 0 Then
    MsgBox "Microsoft Data Access Components n'est pas installé.", vbExclamation, sMessage
    
  ElseIf cnTest.Version < V_MDAC Then
    MsgBox "Votre version de Microsoft Data Access Components version est " & cnTest.Version & "." & _
            vbCrLf & "Vous devez la mettre à jour (version " & V_MDAC & "+)", vbOKOnly, sMessage
  Else
    rapport = True
  End If
  
  If cnTest.State = 1 Then cnTest.Close
  Set cnTest = Nothing
  
  testMdacVersion = rapport
  
End Function

Conclusion :


voici un code qui m'a été demandé...
si ça peut aider quelqu'un d'autre...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Zlub)