MS SQL-Server: Список серверов

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
qx14az17
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 22.12.2003 (Пн) 22:05

MS SQL-Server: Список серверов

Сообщение qx14az17 » 20.01.2004 (Вт) 13:23

Никто не знает, можно ли из программы на VB получить список доступных SQL-Serverов?
Если бы строители строили дома так, как программисты пишут программы, то первый же залетный дятел разрушил бы цивилизацию...

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 21.01.2004 (Ср) 16:05

Был ведь у меня исходник, но посеял я его в дебрях винча.

Могу дать совет - копай в сторону полезной функции SQLBrowseConnect - поищи МСДН.

Rainbow
Человек-радуга
Человек-радуга
 
Сообщения: 543
Зарегистрирован: 13.05.2003 (Вт) 14:16

Сообщение Rainbow » 21.01.2004 (Ср) 16:48

Из MSDN:

1) Start a new Standard EXE project.

2) On the Project menu, click References. Select Microsoft SQLDMO Object library, and then click OK.

3) Place a CommandButton and a ListBox control on Form1.

4)Add the following code to the form's module:

Private Sub Command1_Click()
Dim i As Integer
Dim oNames As SQLDMO.NameList
Dim oSQLApp As SQLDMO.Application
Set oSQLApp = New SQLDMO.Application


Set oNames = oSQLApp.ListAvailableSQLServers()
List1.Clear
For i = 1 To oNames.Count
List1.AddItem oNames.Item(i)
Next i
End Sub

qx14az17
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 22.12.2003 (Пн) 22:05

Сообщение qx14az17 » 21.01.2004 (Ср) 22:48

To RainBow:
Огромное спасибо! Все отлично получилось!
Если бы строители строили дома так, как программисты пишут программы, то первый же залетный дятел разрушил бы цивилизацию...

Rainbow
Человек-радуга
Человек-радуга
 
Сообщения: 543
Зарегистрирован: 13.05.2003 (Вт) 14:16

Сообщение Rainbow » 22.01.2004 (Чт) 10:47

Здорово! :D


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList