Binaryworld - GetMdacVersion - Retrieve the installed MDAC version ... [ VB.net -> ADO.net ]

' Retrieve the installed MDAC version
'
' Examples:
' Dim ver As Version = GetMdacVersion()
' ' print the full version
' MessageBox.Show(ver.ToString())
' ' print the major and minor portions
' MessageBox.Show("Major: " & ver.Major & ", Minor: " & ver.Minor)
' ' check whether the current version is at least 2.7
' If ver.CompareTo(New Version(2, 7, 0, 0)) < 0 Then
'   MessageBox.Show("MDAC version 2.7 or above is required!")
' End If

Function GetMdacVersion() As Version
  ' get the value of the FullInstallVer value under the HKLM\SOFTWARE\
  ' Microsoft\DataAccess key
  Dim regKey As Microsoft.Win32.RegistryKey = _
    Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
    "SOFTWARE\Microsoft\DataAccess")
  Dim ver As String = CType(regKey.GetValue("FullInstallVer", "0.0.0.0"), _
    String)
  regKey.Close()
  ' split the string in tokens and build a Version object
  Dim verTokens() As String = ver.Split("."c)
  Return New Version( Integer.Parse(verTokens(0)), Integer.Parse(verTokens(1)) _
    , Integer.Parse(verTokens(2)), Integer.Parse(verTokens(3)))
End Function