Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Apr 22, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 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
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date