GetODBCDriverInfo – Get information about a specific ODBC driver

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 functionSub 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 = "SoftwareODBCODBCINST.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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: