Список доступных MS SQL серверов

← →
ppcat (2002-08-28 10:36) [0]

Как получить список доступных MS SQL серверов в сети? Чтобы юзер выбирал из списка, а не набивал руками. Имеем ADO, MS SQL 2000, Delphi 5.

Заранее благодарен.

← →
ЮЮ © (2002-08-28 10:40) [1]

А у тебя юзер из своего приложения юзает тот сервер, который ему больше нравится? Интересный подход.

← →
ЮЮ © (2002-08-28 10:48) [2]

При удачном коннекте записывать ия сервера и БД где-нибудь вовне

← →
ppcat (2002-08-28 12:17) [3]

Прога будет гулять по регионам и не везде сервера называются одинаково.

Так что, без вариантов?

← →
Ученик © (2002-08-28 12:21) [4]

Может быть лучше настраивать соединение ADODB.PromptDataSource, база данных тоже может быть другая

← →
Delirium © (2002-08-28 12:42) [5]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sqldmo/dmoref_m_l_9jfo.asp

Используй SQLDMO
Var dmo, Sn: Variant; S: String; begin try StartWait; dmo := CreateOleObject("SQLDMO.Application"); lbSourceServer.Items.Clear; sn := dmo.ListAvailableSQLServers; for i := 1 to sn.Count do begin S := sn.Item(i); if S[1] <> "(" then lbSourceServer.Items.Add(sn.Item(i)); end; ActiveControl := lbSourceServer; except StopWait; MessageDlg("Ошибка чтения списка серверов!", mtError, [mbOK], 0); end; StopWait;

← →
ppcat (2002-08-28 14:11) [7]

Спасибо всем.
Спасибо Balu. Мне кажется это дело заработает.

Список доступных MS SQL серверов Найти похожие ветки