Binaryworld - Get the list of ODBC DSNs (Using ODBCTOOL.DLL) ... [ VB -> ODBC ]

The ODBCTOOL.DLL library contains three functions that make it easier to manage DSNs. To run the following code you must add a reference to the "ODBC Driver & Data Source Name Functions" library to your References dialog box. If you don't find this library listed in the References list, use the Start-Find dialog to locate it (it should be in the \Microsoft Visual Studio\Common\Tools\APE directory).

To get the list of installed DSNs you can use the following code:

Click here to copy the following block

' Fill a listbox control with the list of all available DSNs
Dim odbcTool As New ODBCTool.Dsn
Dim Dsn() As String, i As Long
If odbcTool.GetDataSourceList(Dsn()) Then
  ' a True return value means success
  lstDataSources.Clear
  For i = 0 To UBound(dsn)
    lstDataSources.AddItem dsn(i)
  Next
Else
  ' a False value means error
  MsgBox "Unable to read DSN list", vbExclamation
End If