ODBCInfo

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