Binaryworld - GetODBCDriverInfo - Get information about a specific ODBC driver ... [ VB -> ODBC ]

Const HKEY_LOCAL_MACHINE = &H80000002

' Return information about an ODBC driver
'
' The 1st argument must be an ODBC driver name,
' as returned by the GetODBCDrivers function
' Not all drivers return the Timeout value
'
' Requires the GetRegistryValue function

Sub GetODBCDriverInfo(ByVal ODBCDriver As String, FileName As String, _
  ODBCVersion As String, Optional Timeout As String)
  Dim keyName As String

  ' this is the key that contains all the info
  keyName = "Software\ODBC\ODBCINST.INI\" & ODBCDriver

  ' retrieve the values
  FileName = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "Driver", "")
  ODBCVersion = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "DriverODBCVer", _
    "")
  Timeout = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "CPTimeout", "")
End Sub