I would like to programmatically get a list of the SQL server drivers
installed. This is needed for re-linking tables. If there is only
one, I would use that in the connect string, but if more than one, I
want to offer a list of SQL drivers available to choose from.

Any ideas?

Thanks.
KW

Are you asking for the drivers installed on a client machine, or the
servers installed on a client machine, or servers on a network, or
ODBC connections available on a client machine ?

The Frog

On Oct 30, 4:06*am, The Frog <mr.frog.to.... (AT) googlemail (DOT) com> wrote:

I asking about the ODBC SQL drivers installed on the local machine;
the machine on which the app is running.

Thx

This came from datAdrenaline on UtterAccess....just what I was looking
for:
------------------------------------------------------------------------------------------------
You can possibly use a variant of the following code to do what you
wish:

Public Sub PrintListOfODBCDriversToImmediateWindow()

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer As String
Dim objRegistry As Object
Dim strKeyPath As String
Dim arrValueNames As Variant
Dim arrValueTypes As Variant
Dim strValueName As String
Dim strValueType As String
Dim strValue As String
Dim i As Long

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root
\default:StdRegProv")

strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers"
objRegistry.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,
arrValueNames, arrValueTypes

For i = 0 To UBound(arrValueNames)
strValueName = arrValueNames(i)
objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath,
strValueName, strValue
Debug.Print arrValueNames(i) & " -- " & strValue
Next

End Sub