devxlogo

CheckOLEDBProvider – Check whether an OLEDB provider is registered correctly

CheckOLEDBProvider – Check whether an OLEDB provider is registered correctly

'Check if the specified OLEDB Provider is installed and registered correctly''Example: check the Jet 4.0 OLEDB Provider'MsgBox "The specified OLEDB provider " & '        IIf(CheckOLEDBProvider' ("Microsoft.Jet.OLEDB.4.0"), "does", "does not") & " exist"'' NOTES: Requires CheckRegistryKey and GetRegistryValueFunction CheckOLEDBProvider(ByVal ProgID As String) As Boolean    Dim CLSID As String    Dim InprocServer As String        Const HKEY_CLASSES_ROOT = &H80000000        On Error Resume Next        'if the ProgID for the OLEDB does not exist, return false    If Not CheckRegistryKey(HKEY_CLASSES_ROOT, ProgID) Then Exit Function    'get the clsid    CLSID = GetRegistryValue(HKEY_CLASSES_ROOT, ProgID & "CLSID", "")    'check if there is the key "OLE DB Provider" under the CLSID key    If Not CheckRegistryKey(HKEY_CLASSES_ROOT, _        "CLSID" & CLSID & "OLE DB Provider") Then Exit Function    'check if the physical file exists    InprocServer = GetRegistryValue(HKEY_CLASSES_ROOT, _        "CLSID" & CLSID & "InprocServer32", "")        If (GetAttr(InprocServer) And vbDirectory) = 0 Then        'if the routine arrives here, return True        CheckOLEDBProvider = True    End IfEnd Function

See also  5 Benefits of Using Time Tracking Software
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist