ODBC

[kif]

Как получить список источников данных в массив, например.

[Ennor]

Тебе DSNы нужны или ODBC-драйвера? И если первое, то какие именно.

[kif]

DSNы желательно и юзерские и системные

[Konst_One]

вот посмотри программку, может поможет:

[kif]

Спасибо, но там только драйверы, а мне нужны созданные DSN.

[Konst_One]

юзай метод GetDataSourceList библиотеки ODBCTool

[Konst_One]

Вот накатал быстренько

Код: Выделить всё


Public Sub GetAllDSNs(ByRef cmb As ComboBox)
' 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
    cmb.Clear
    For i = 0 To UBound(Dsn)
        cmb.AddItem Dsn(i)
    Next
Else
    ' a False value means error
    MsgBox "Unable to read ODBC driver list", vbExclamation
End If

End Sub

'Это вызов
mODBC.GetAllDSNs Me.cmbDSN


[kif]

а подробнее можно?

[Konst_One]

куда уж подробнее
кидаешь свой combobox на форму и вызываешь метод, который я написал - он тебе его заполнит списком всех твоих DSN-ов

[kif]

Я твой предыдущее сообщение не увидел.

Спасибо большое, выручил.