Нужно получить список DSN в системе

[PSV]

Хаюшки!

Нужно получить список DSN имеющихся в системе (вообще нужны системные DSN) чтобы пользователь мог выбирать каким воспользоваться для подключения к СУБД. Так же желательно отобрать только те DSN которые используют MS SQL OLEDB провайдера.

Самое обидное, что в одном из визардов-примочек к VB6 Enterprise видел хрень которая генерила формочку для выбора подключения к СУБД, в которой был код с API-вызовами для получения указанного - но не смог вспомнить где это видел

[skiperski]

Смотри в регистре
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC DATA SOURCES

[skiperski]

Ещё можно при работе с DAO вызывать метод OpenDatabase с неинициализированным аргументом Name.

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

    Dim daoDB As DAO.Database
   
    Set daoDB = OpenDatabase("")

В этом случае появится стандартный диалог выбора DSN-соединения

[PSV]

Сенькс, про реестр я знаю - но это не совсем стандартный подход,
а список DSN и выбирать из них и т.д. мне нужно в моей программе.