How to identify if MDAC is loaded on PC

[JBuckley]

Within VB how do I tell if MDAC is loaded on a client PC. Then end code I want will be....

If <MDAC not loaded> then
msgbox &quot;Go and load MDAC&quot;
End if


any ideas?????

 

[Norris68]

A quick way without searching for installed files/registry entries would be to try to create an object and trap the error.

e.g.

Dim MDACVersion As String

Private Function MDACInstalled() As Boolean
Dim O As Object
On Error Resume Next
Set O = CreateObject("ADODB.Connection")
If Err.Number <> 0 Then     'Error occurred - not installed
    Err.Clear
    MDACInstalled = False
    MDACVersion = &quot;Not Installed&quot;
Else
    MDACVersion = O.Version 'May as well find out the version while it's open
    Set O = Nothing         'Dispose of the object
    MDACInstalled = True
End If
End Function

Private Sub Command1_Click()
If MDACInstalled() Then
    MsgBox &quot;MDAC Version &quot; & MDACVersion & &quot; installed&quot;, vbInformation
End If
End Sub