| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список доступных MS SQL серверов [D5, MSSQL]

ppcat ©   (2002-08-28 10:36:00) 

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

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

---

ppcat   (2002-08-28 14:11:00) [1]

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

---

Balu   (2002-08-28 14:03:00) [2]

Используй 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;

---

Delirium   (2002-08-28 12:42:00) [3]

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

---

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

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

---

ppcat   (2002-08-28 12:17:00) [5]

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

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

---

ЮЮ   (2002-08-28 10:48:00) [6]

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

---

ЮЮ   (2002-08-28 10:40:00) [7]

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

---

Наверх