2 комбобокса. 1-Сервера. 2-Базы

[Polaris]

Доброго времени суток!

Подскажите кто знает. Сам вот сижу 3 дня уже, пока не получатся никак.

задача.
сделать форму с 2-мя комбобоксами.
1- позволяет выбирать все существующие в сети SQL сервера
2- позволяет выбирать все существующие базы на сервере из комбобокса- 1.

ну и последующий коннект к выбранному.
если с 1-м комбобоксом и подключением вопросов не возникло,
то как подтянуть базы - для меня остается загадкой

Сервера достаю при загрузка формы таким образом:
Private Sub Form_Load()

Dim sqlOb As SQLDMO.SQLServer
Dim obj1 As Object

Set ServList = New SQLDMO.Application
Set namX = ServList.ListAvailableSQLServers
For i = 1 To namX.Count
Combo1.AddItem (namX.Item(i))
Next

[Igor_123]

Запусти профайлер на локальный сервер и открой консоль управления серверами и в профайлере увидиш такой запрос:

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

select name, DATABASEPROPERTY(name, N'IsDetached'),     (case when DATABASEPROPERTY(name, N'IsShutdown') is null then -1 else DATABASEPROPERTY(name, N'IsShutdown') end),     DATABASEPROPERTY(name, N'IsSuspect'), DATABASEPROPERTY(name, N'IsOffline'),     DATABASEPROPERTY(name, N'IsInLoad'),     (case when DATABASEPROPERTY(name, N'IsInRecovery') is null then -1 else DATABASEPROPERTY(name, N'IsInRecovery') end),     (case when DATABASEPROPERTY(name, N'IsNotRecovered') is null then -1 else DATABASEPROPERTY(name, N'IsNotRecovered') end),     DATABASEPROPERTY(name, N'IsEmergencyMode'), DATABASEPROPERTY(name, N'IsInStandBy'), has_dbaccess(name),     status, category, status2 from master.dbo.sysdatabases

который вернёт список зарегистрированных баз

[alibek]

Как-то слишком замороченно и не универсально.
OpenSchema лучше.

[Polaris]

Разобрался. Всем спасибо. Особенно Igor_123