Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

Sitemap