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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
