FInns det något API för att lista ODBC-kopplingar på en Win32-dator? Eller något annat smidigt sätt?

Jag vill minnas att jag sett en liknande fråga förut på detta forum, men sökfunktionen funkar inte så bra just nu.

Tror det finns i tips & tricks.
/Pelle

Ja det finns det (en activex component till och med).
ODBC Driver & Data Source Name Functions heter den, lägg till den ifrån References och test följande kod i ett formulär:
<code>
Option Explicit

Private Sub Form_Load()
Dim oODBC As New ODBCTool.Dsn
Dim sDataSources() As String
Dim sOdbcDrivers() As String
Dim i As Integer

oODBC.GetDataSourceList sDataSources
For i = LBound(sDataSources) To UBound(sDataSources)
Debug.Print "Datasource #" & i & " = " & sDataSources(i)
Next i

oODBC.GetOdbcDriverList sOdbcDrivers
For i = LBound(sOdbcDrivers) To UBound(sOdbcDrivers)
Debug.Print "ODBCDriver #" & i & " = " & sOdbcDrivers(i)
Next i
End Sub
</code>