DataSource Name at Runtime

[benpartlow]

Is there an object that allows the user to select an available ODBC datasource at run time from available data sources on the PC? I imagine it would behave in the same manner as the drop down box in the MSRDC data source property window at design time. This feature (I don't know how) lists datasources available on the PC

Thank you in advance.

[Clunietp]

'uses ODBC DRIVER & DATA SOURCE NAME FUNCTIONS library
'this will list all DSNs and ODBC drivers installed
'on the current machine

Dim objDSN As Dsn
Dim lngCounter As Long

Set objDSN = New Dsn

Dim strDSNArray() As String
Dim strDriverArray() As String

'==============================================================
'GET DSN LISTING
'==============================================================
objDSN.GetDataSourceList strDSNArray

Debug.Print "-------------------DSNs--------------------------"
For lngCounter = LBound(strDSNArray()) To UBound(strDSNArray())
Debug.Print strDSNArray(lngCounter)
Next lngCounter
'==============================================================
'GET ODBC DRIVER LISTING
'==============================================================
objDSN.GetOdbcDriverList strDriverArray()

Debug.Print "---------------ODBC Drivers----------------------"
For lngCounter = LBound(strDriverArray()) To UBound(strDriverArray())
Debug.Print strDriverArray(lngCounter)
Next lngCounter
'==============================================================
'cleanup
Set objDSN = Nothing


HTH

Tom